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

unlock comparator tests

This commit is contained in:
Yuichi Nishiwaki 2014-06-28 20:30:10 +09:00
parent c5400b4b2d
commit 015d0872c9
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
t/r7rs-tests.scm
View File

@ -648,14 +648,14 @@
;; (test #t (= 1 1.0 1.0+0.0i))
;; (test #f (= 1.0 1.0+1.0i))
;; (test #t (< 1 2 3))
;; (test #f (< 1 1 2))
;; (test #t (> 3.0 2.0 1.0))
;; (test #f (> -3.0 2.0 1.0))
;; (test #t (<= 1 1 2))
;; (test #f (<= 1 2 1))
;; (test #t (>= 2 1 1))
;; (test #f (>= 1 2 1))
(test #t (< 1 2 3))
(test #f (< 1 1 2))
(test #t (> 3.0 2.0 1.0))
(test #f (> -3.0 2.0 1.0))
(test #t (<= 1 1 2))
(test #f (<= 1 2 1))
(test #t (>= 2 1 1))
(test #f (>= 1 2 1))
;; From R7RS 6.2.6 Numerical operations:
;;