diff options
author | bd <bdunahu@operationnull.com> | 2025-01-12 15:09:37 -0700 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2025-01-12 15:09:37 -0700 |
commit | 2bc7c77b7f63b1df0340112db6272dc9a78139c1 (patch) | |
tree | 06c5005ef8644180c7fd5bfd8ba320ffc7ceddf4 /src/unit-tests/parser/parser-test.scm | |
parent | 0d69984338399a78a3ba6f3a2493f1ffb34964f8 (diff) |
*** empty log message ***
Diffstat (limited to 'src/unit-tests/parser/parser-test.scm')
-rw-r--r-- | src/unit-tests/parser/parser-test.scm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/src/unit-tests/parser/parser-test.scm b/src/unit-tests/parser/parser-test.scm deleted file mode 100644 index 61f9e03..0000000 --- a/src/unit-tests/parser/parser-test.scm +++ /dev/null @@ -1,30 +0,0 @@ -;; -*- compile-command: "guile -L ./src ./src/unit-tests/parser/parser-test.scm"; -*- -(use-modules (srfi srfi-64) - (modules parser parser)) - - -(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))) - -(test-equal "trivial function foo 4" - '(program (function (identifier "foo") (return (constant 4)))) - (p-program '(int "foo" left-paren void right-paren open-brace return 4 semi-colon close-brace))) - -(test-error "trivial function bad double return" - (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 4 semi-colon close-brace))) - -(test-error "trivial function bad int parameter" - (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") |