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/lexer/lexer.test.scm | 8 ++++---- src/unit-tests/parser/parser.test.scm | 12 ++++++------ src/unit-tests/utils/t-factory.test.scm | 6 +++--- 3 files changed, 13 insertions(+), 13 deletions(-) (limited to 'src/unit-tests') diff --git a/src/unit-tests/lexer/lexer.test.scm b/src/unit-tests/lexer/lexer.test.scm index 807dbec..ce3520d 100644 --- a/src/unit-tests/lexer/lexer.test.scm +++ b/src/unit-tests/lexer/lexer.test.scm @@ -1,6 +1,6 @@ -;; -*- compile-command: "guile -L ./src ./src/unit-tests/lexer/lexer.test.scm"; -*- +;; -*- compile-command: "guile -L ./src/modules ./src/unit-tests/lexer/lexer.test.scm"; -*- (use-modules (srfi srfi-64) - (modules lexer lexer)) + (lexer lexer)) (define (read-this str) (set-current-input-port @@ -64,7 +64,7 @@ (read-tokens)) (test-error (read-this "3.4") - (read-tokens)) + (read-tokens)) (test-equal (read-this "a") '("a") @@ -75,7 +75,7 @@ (read-tokens)) (test-error (read-this "1foo") - (read-tokens)) + (read-tokens)) (test-equal (read-this "void") '(void) 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") diff --git a/src/unit-tests/utils/t-factory.test.scm b/src/unit-tests/utils/t-factory.test.scm index eda983b..d780c17 100644 --- a/src/unit-tests/utils/t-factory.test.scm +++ b/src/unit-tests/utils/t-factory.test.scm @@ -1,7 +1,7 @@ -;; -*- compile-command: "guile -L ./src ./src/unit-tests/utils/t-factory.test.scm"; -*- +;; -*- compile-command: "guile -L ./src/modules ./src/unit-tests/utils/t-factory.test.scm"; -*- (use-modules (srfi srfi-64) - (modules ast assembly-tree) - (modules utils t-factory)) + (ast assembly-tree) + (utils t-factory)) (test-begin "t-factory-harness") -- cgit v1.2.3