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

boot: fix builtin? tests.

Browse source 
* tests/scm.test: Test primitives, not eval.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-21 11:14:33 +02:00
parent 2545605a69
commit 497bbdc76f
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/scm.test
View file

@ -118,9 +118,13 @@ exit $?
;; (display ((lambda (x) x) (values 1 2 3)))
;; (newline)))
(pass-if "builtin?" (builtin? car))
(pass-if "builtin?" (not (builtin? not)))
;;(pass-if "builtin?" (builtin? cond))
(pass-if "builtin? car" (builtin? car))
(pass-if "builtin? cdr" (builtin? cdr))
(pass-if "builtin? cons" (builtin? cons))
(pass-if "builtin? eq?" (builtin? eq?))
(pass-if "builtin? if" (builtin? eq?))
(when (not guile?)
(pass-if "builtin? eval" (not (builtin? not))))
(pass-if "procedure?" (procedure? builtin?))
(pass-if "procedure?" (procedure? procedure?))
(when (not guile?)