ikarus/lib/tests-5.6-req.scm

16 lines
433 B
Scheme
Raw Normal View History

2006-11-23 19:33:45 -05:00
(add-tests-with-string-output "fxmodulo"
[(fxmodulo 16 4) => "0\n"]
[(fxmodulo 5 2) => "1\n"]
[(fxmodulo -45 7) => "4\n"]
[(fxmodulo 10 -3) => "-2\n"]
[(fxmodulo -17 -9) => "-8\n"]
[(let ([t 4]) (fxmodulo 16 t)) => "0\n"]
[(let ([t 2]) (fxmodulo 5 t)) => "1\n"]
[(let ([t 7]) (fxmodulo -45 t)) => "4\n"]
[(let ([t -3]) (fxmodulo 10 t)) => "-2\n"]
[(let ([t -9]) (fxmodulo -17 t)) => "-8\n"]
)