commit b46bb36551e1d051b3a28c4554cba1f983ecc626 parent a8a4efd859c695728bbafbd0103465ca13c1866b Author: Andres Navarro <canavarro82@gmail.com> Date: Fri, 25 Nov 2011 13:54:33 -0300 Added tests for exact-integer? Diffstat:
| M | src/tests/numbers.k | | | 10 | +++++++++- |
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/tests/numbers.k b/src/tests/numbers.k @@ -60,7 +60,6 @@ ($check equal? #i+infinity #i+infinity) ;; 12.5.1 number? finite? integer? - ($check-predicate (number? 0 1 3/5 -3.14e0 #real)) ($check-not-predicate (number? 5 "6" 7)) @@ -77,6 +76,15 @@ ($check-not-predicate (integer? #real)) ($check-not-predicate (integer? "0")) +;; 12.?? exact-integer? +($check-predicate (exact-integer? 0 8/2 -12/6)) +($check-not-predicate (exact-integer? 1.0)) +($check-not-predicate (exact-integer? #e+infinity)) +($check-not-predicate (exact-integer? #e-infinity)) +($check-not-predicate (exact-integer? #real)) +($check-not-predicate (exact-integer? "0")) + + ;; 12.5.2 =? ($check-predicate (=?))