From 3ea7ef7b00ddb545f2f58cb67da1f6d35a01fc73 Mon Sep 17 00:00:00 2001 From: "Mike D. Lowis" Date: Wed, 18 Jul 2012 20:10:04 -0400 Subject: [PATCH] Added tests for dlang/core-form? --- tests/test_parser.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) 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" -- 2.54.0