Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding environment tests.

Browse source
This commit is contained in:
Alex Shinn 2012-11-04 21:46:14 +09:00
parent 33326888f0
commit 5b9a41f2c1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/r7rs-tests.scm
View file

@ -1272,6 +1272,11 @@
(let ((f (eval '(lambda (f x) (f x x)) (null-environment 5))))
(f + 10)))
(test 1024 (eval '(expt 2 10) (environment '(scheme base))))
(test 0.0 (eval '(sin 0) (environment '(scheme inexact))))
(test 1024.0 (eval '(+ (expt 2 10) (sin 0))
(environment '(scheme base) '(scheme inexact))))
;; 6.13 Input and output
(test #t (port? (current-input-port)))