diff options
Diffstat (limited to 'src/unit-tests/parser/parser.test.scm')
| -rw-r--r-- | src/unit-tests/parser/parser.test.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/unit-tests/parser/parser.test.scm b/src/unit-tests/parser/parser.test.scm index b3573d0..32e1e6c 100644 --- a/src/unit-tests/parser/parser.test.scm +++ b/src/unit-tests/parser/parser.test.scm @@ -1,6 +1,6 @@ -;; -*- compile-command: "guile -L ./src ./src/unit-tests/parser/parser.test.scm"; -*- +;; -*- compile-command: "guile -L ./src/modules ./src/unit-tests/parser/parser.test.scm"; -*- (use-modules (srfi srfi-64) - (modules parser parser)) + (parser parser)) (test-begin "parser-harness") @@ -15,16 +15,16 @@ (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))) + (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))) + (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))) + (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))) + (p-program '(int "foo" left-paren void right-paren open-brace return))) (test-end "parser-harness") |