unit test: fx<

feeley · Feb 5, 2016 · 68c65fe · 68c65fe
1 parent 56c02ac
commit 68c65fe
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/unit-tests/01-fixnum/fxlt.scm b/tests/unit-tests/01-fixnum/fxlt.scm
@@ -0,0 +1,14 @@
+(include "#.scm")
+
+(check-eqv? (##fx<) #t)
+(check-eqv? (##fx< 1) #t)
+(check-eqv? (##fx< ##max-fixnum ##min-fixnum) #f)
+(check-eqv? (##fx< ##min-fixnum ##max-fixnum) #t)
+
+(check-eqv? (fx<) #t)
+(check-eqv? (fx< 1) #t)
+(check-eqv? (fx< ##max-fixnum ##min-fixnum) #f)
+(check-eqv? (fx< ##min-fixnum ##max-fixnum) #t)
+
+(check-tail-exn type-exception? (lambda () (fx< 1 0.5)))
+(check-tail-exn type-exception? (lambda () (fx< 1/3 1)))