removing flonums from basic tests

This commit is contained in:
Alex Shinn 2009-12-28 00:06:59 +09:00
parent 1fda388db9
commit 4f45da310a

View file

@ -168,15 +168,15 @@
(test #t (equal? 2 2))
(test #f (eqv? 2 2.0))
;;(test #f (eqv? 2 2.0))
(test #f (equal? 2.0 2))
;;(test #f (equal? 2.0 2))
(test #t (equal? (make-vector 5 'a) (make-vector 5 'a)))
(test 4 (max 3 4))
(test 4 (max 3.9 4))
;;(test 4 (max 3.9 4))
(test 7 (+ 3 4))