From 015d0872c9590c0602be519b17ab4d5ee8e69aa4 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 28 Jun 2014 20:30:10 +0900 Subject: [PATCH] unlock comparator tests --- t/r7rs-tests.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index d89afd12..2bdea07e 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -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: ;;