"Testing floor"

clear

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

-- compare intrinsic

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