From: Mike D. Lowis <mike@mdlowis.com>
Date: Thu, 19 Jul 2012 00:10:04 +0000 (-0400)
Subject: Added tests for dlang/core-form?
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=3ea7ef7b00ddb545f2f58cb67da1f6d35a01fc73;p=archive%2Fdlang-scm.git

Added tests for dlang/core-form?
---

diff --git a/tests/test_parser.scm b/tests/test_parser.scm
index a2ef1f6..f8ad857 100644
--- 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"