diff options
| author | bd <bdunahu@operationnull.com> | 2024-12-28 12:44:07 -0700 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-12-28 12:47:56 -0700 |
| commit | babe9f9d0e84daec1015d7593a9d6c6d480662b8 (patch) | |
| tree | 1314d8803b4fa564e06c58444e3524e688c4f204 /src/unit-tests/parser/parser-test.scm | |
| parent | 11ecac1d0686d5ed75b73eee0c860d7d67f6d6f0 (diff) | |
Assembly generation for trivial programs
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") |