From 14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Jan 2025 02:07:40 -0700 Subject: set modules folder to modules path --- src/unit-tests/parser/parser.test.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/unit-tests/parser/parser.test.scm') 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") -- cgit v1.2.3