unit test: fxwrapquotient

feeley · Feb 5, 2016 · a7219ab · a7219ab
1 parent 357836e
commit a7219ab
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/tests/unit-tests/01-fixnum/fxwrapquotient.scm b/tests/unit-tests/01-fixnum/fxwrapquotient.scm
@@ -0,0 +1,15 @@
+(include "#.scm")
+
+(check-eqv? (fxwrapquotient 1 1) 1)
+(check-eqv? (fxwrapquotient -3 2) -1)
+(check-eqv? (fxwrapquotient -6 -4) 1)
+(check-eqv? (fxwrapquotient -8 -4) 2)
+
+(check-tail-exn divide-by-zero-exception? (lambda () (fxwrapquotient 1 0)))
+
+(check-tail-exn wrong-number-of-arguments-exception? (lambda () (fxwrapquotient)))
+(check-tail-exn wrong-number-of-arguments-exception? (lambda () (fxwrapquotient 1)))
+(check-tail-exn wrong-number-of-arguments-exception? (lambda () (fxwrapquotient 1 1 1)))
+
+(check-tail-exn type-exception? (lambda () (fxwrapquotient 1 0.5)))
+(check-tail-exn type-exception? (lambda () (fxwrapquotient 1 1/2)))