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

unlock eval tests

This commit is contained in:
Yuichi Nishiwaki 2014-07-27 14:29:39 +09:00
parent 137a01e74e
commit c29c07dec5
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
t/r7rs-tests.scm
View File

@ -34,7 +34,7 @@
(scheme file) (scheme file)
(scheme read) (scheme read)
(scheme write) (scheme write)
; (scheme eval) (scheme eval)
(scheme process-context) (scheme process-context)
(scheme case-lambda) (scheme case-lambda)
(picrin test)) (picrin test))
@ -1766,18 +1766,18 @@
(test-begin "6.12 Environments and evaluation") (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 (test 20
;; (let ((f (eval '(lambda (f x) (f x x)) (null-environment 5)))) (let ((f (eval '(lambda (f x) (f x x)) (null-environment 5))))
;; (f + 10))) (f + 10)))
;; (test 1024 (eval '(expt 2 10) (environment '(scheme base)))) (test 1024 (eval '(expt 2 10) (environment '(scheme base))))
;; ;; (sin 0) may return exact number ;; (sin 0) may return exact number
;; (test 0.0 (inexact (eval '(sin 0) (environment '(scheme inexact))))) (test 0.0 (inexact (eval '(sin 0) (environment '(scheme inexact)))))
;; ;; ditto ;; ditto
;; (test 1024.0 (eval '(+ (expt 2 10) (inexact (sin 0))) (test 1024.0 (eval '(+ (expt 2 10) (inexact (sin 0)))
;; (environment '(scheme base) '(scheme inexact)))) (environment '(scheme base) '(scheme inexact))))
(test-end) (test-end)