diff options
Diffstat (limited to 'src/unit-tests/parser/parser-test.scm')
| -rw-r--r-- | src/unit-tests/parser/parser-test.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/unit-tests/parser/parser-test.scm b/src/unit-tests/parser/parser-test.scm index 8baedda..61f9e03 100644 --- a/src/unit-tests/parser/parser-test.scm +++ b/src/unit-tests/parser/parser-test.scm @@ -6,7 +6,6 @@ (test-begin "parser-harness") - (test-equal "trivial function main 2" '(program (function (identifier "main") (return (constant 2)))) (p-program '(int "main" left-paren void right-paren open-brace return 2 semi-colon close-brace))) @@ -19,10 +18,13 @@ (p-program '(int "foo" left-paren void right-paren open-brace return return 4 semi-colon close-brace))) (test-error "trivial function bad parens" - (p-program '(int "foo" right-paren void left-paren open-brace return return 4 semi-colon close-brace))) + (p-program '(int "foo" right-paren void left-paren open-brace return 4 semi-colon close-brace))) (test-error "trivial function bad int parameter" - (p-program '(int "foo" right-paren int left-paren open-brace return return 4 semi-colon close-brace))) + (p-program '(int "foo" left-paren int right-paren open-brace return 4 semi-colon close-brace))) + +(test-error "trivial function incomplete function" + (p-program '(int "foo" left-paren void right-paren open-brace return))) (test-end "parser-harness") |