"Testing ceiling"

clear

check(infixform(ceiling(x)) == "ceiling(x)")
check(ceiling((x,y)) == (ceiling(x),ceiling(y)))

-- compare intrinsic

for(x,-10,10,
  d = float(ceiling(x/3)) - ceiling(float(x/3)),
  check(abs(d) < 1.0 10^(-6))
)
