conservatory/ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added fxdiv, fxmod, fxdiv-and-mod.

Browse Source
This commit is contained in:
Abdulaziz Ghuloum
2007-11-11 20:43:59 -05:00
parent 0d2e1f4246
commit e48c2e17c1
5 changed files with 102 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scheme/tests/fixnums.ss
+32
View File
@@ -0,0 +1,32 @@
(library (tests fixnums)
(export test-fxdiv-and-mod)
(import (ikarus))
(define (test-fxdiv-and-mod)
(define (test x1 x2)
(let-values ([(d m) (fxdiv-and-mod x1 x2)])
(printf "(fxdiv-and-mod ~s ~s) = ~s ~s\n" x1 x2 d m)
(assert (= d (fxdiv x1 x2)))
(assert (= m (fxmod x1 x2)))
(assert (<= 0 m))
(assert (< m (abs x2)))
(assert (= x1 (+ (* d x2) m)))))
(test +17 +3)
(test +17 -3)
(test -17 +3)
(test -17 -3)
(test +16 +3)
(test +16 -3)
(test -16 +3)
(test -16 -3)
(test +15 +3)
(test +15 -3)
(test -15 +3)
(test -15 -3)
(test +10 +4)
(test +10 -4)
(test -10 +4)
(test -10 -4)))