Added tests for dlang/core-form?

diff --git a/tests/test_parser.scm b/tests/test_parser.scm
index a2ef1f609c8adbd877d448149cd8f66eb10db718..f8ad857a2431c17a54624dd8ad9793450a9db2ff 100644 (file)
--- a/tests/test_parser.scm
+++ b/tests/test_parser.scm
@@ -67,6 +67,44 @@
             (syntree 'args "" '())
             (syntree 'block "" '())))))))
 
+; dlang/core-form?
+;------------------------------------------------------------------------------
+(def-test "dlang/core-form? should recognize def as a core form"
+  (call-with-input-string "def"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #t (dlang/core-form? lxr)))))
+
+(def-test "dlang/core-form? should recognize set! as a core form"
+  (call-with-input-string "set!"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #t (dlang/core-form? lxr)))))
+
+(def-test "dlang/core-form? should recognize def as a core form"
+  (call-with-input-string "if"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #t (dlang/core-form? lxr)))))
+
+(def-test "dlang/core-form? should recognize def as a core form"
+  (call-with-input-string "begin"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #t (dlang/core-form? lxr)))))
+
+(def-test "dlang/core-form? should recognize def as a core form"
+  (call-with-input-string "func"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #t (dlang/core-form? lxr)))))
+
+(def-test "dlang/core-form? should return false for non-coreform"
+  (call-with-input-string "foo"
+    (lambda (input)
+      (define lxr (make-lexer input))
+      (equal? #f (dlang/core-form? lxr)))))
+
 ; dlang/define
 ;------------------------------------------------------------------------------
 (def-test "dlang/define should parse a variable definition"