From c29c07dec5d65a018df7608d487ab79e8bfdbcf2 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sun, 27 Jul 2014 14:29:39 +0900 Subject: [PATCH] unlock eval tests --- t/r7rs-tests.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index 869fbc42..a9757218 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -34,7 +34,7 @@ (scheme file) (scheme read) (scheme write) -; (scheme eval) + (scheme eval) (scheme process-context) (scheme case-lambda) (picrin test)) @@ -1766,18 +1766,18 @@ (test-begin "6.12 Environments and evaluation") -;; (test 21 (eval '(* 7 3) (scheme-report-environment 5))) +(test 21 (eval '(* 7 3) (scheme-report-environment 5))) -;; (test 20 -;; (let ((f (eval '(lambda (f x) (f x x)) (null-environment 5)))) -;; (f + 10))) +(test 20 + (let ((f (eval '(lambda (f x) (f x x)) (null-environment 5)))) + (f + 10))) -;; (test 1024 (eval '(expt 2 10) (environment '(scheme base)))) -;; ;; (sin 0) may return exact number -;; (test 0.0 (inexact (eval '(sin 0) (environment '(scheme inexact))))) -;; ;; ditto -;; (test 1024.0 (eval '(+ (expt 2 10) (inexact (sin 0))) -;; (environment '(scheme base) '(scheme inexact)))) +(test 1024 (eval '(expt 2 10) (environment '(scheme base)))) +;; (sin 0) may return exact number +(test 0.0 (inexact (eval '(sin 0) (environment '(scheme inexact))))) +;; ditto +(test 1024.0 (eval '(+ (expt 2 10) (inexact (sin 0))) + (environment '(scheme base) '(scheme inexact)))) (test-end)