summaryrefslogtreecommitdiff
path: root/src/unit-tests/parser/parser.test.scm
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
committerbd <bdunahu@operationnull.com>2025-01-18 02:07:40 -0700
commit14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa (patch)
tree511b6dfb8fca47e078ea3af6bf6ba428f0e7c0a1 /src/unit-tests/parser/parser.test.scm
parenta3d234983b259576e985f810eacf0d03eefc02d2 (diff)
set modules folder to modules path
Diffstat (limited to 'src/unit-tests/parser/parser.test.scm')
-rw-r--r--src/unit-tests/parser/parser.test.scm12
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")