boot: fix builtin? tests.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 09:14:33 +0000 (11:14 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 09:14:33 +0000 (11:14 +0200)
* tests/scm.test: Test primitives, not eval.

tests/scm.test

index 351094a49848e29d3b96ca0007980db9e7c289cd..3d33e71eadffab405a4b468420c93c91c230d906 100755 (executable)
@@ -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?)