summaryrefslogtreecommitdiff
path: root/src/unit-tests
diff options
context:
space:
mode:
Diffstat (limited to 'src/unit-tests')
-rw-r--r--src/unit-tests/lexer/lexer.test.scm8
-rw-r--r--src/unit-tests/parser/parser.test.scm12
-rw-r--r--src/unit-tests/utils/t-factory.test.scm6
3 files changed, 13 insertions, 13 deletions
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")