artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

test: Add toplevel begin define test.

Browse source 
* tests/base.test (top begin define): New test.
This commit is contained in:
Jan Nieuwenhuizen 2016-11-05 13:46:22 +01:00
parent ffd2d3df4f
commit c121fe3d72
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/base.test
View file

@ -39,6 +39,9 @@ exit $?
(begin (define *top-begin-a* '*top-begin-a*)) (begin (define *top-begin-a* '*top-begin-a*))
(pass-if "top begin " (seq? *top-begin-a* '*top-begin-a*)) (pass-if "top begin " (seq? *top-begin-a* '*top-begin-a*))
(begin (begin (define *top-begin-begin-a* '*top-begin-begin-a*)))
(pass-if "top begin begin " (seq? *top-begin-begin-a* '*top-begin-begin-a*))
(pass-if "if" (seq? (if #t 'true) 'true)) (pass-if "if" (seq? (if #t 'true) 'true))
(pass-if "if 2" (seq? (if #f #f) *unspecified*)) (pass-if "if 2" (seq? (if #f #f) *unspecified*))
(pass-if "if 3" (seq? (if (seq? 0 '0) 'true 'false) 'true)) (pass-if "if 3" (seq? (if (seq? 0 '0) 'true 'false) 'true))