diff options
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 32e1e6c..0000000 --- a/src/unit-tests/parser/parser.test.scm +++ /dev/null @@ -1,30 +0,0 @@ -;; -*- compile-command: "guile -L ./src/modules ./src/unit-tests/parser/parser.test.scm"; -*- -(use-modules (srfi srfi-64) - (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") |