diff options
Diffstat (limited to 'src/unit-tests')
-rw-r--r-- | src/unit-tests/lexer/lexer.test.scm | 8 | ||||
-rw-r--r-- | src/unit-tests/parser/parser.test.scm | 12 | ||||
-rw-r--r-- | src/unit-tests/utils/t-factory.test.scm | 6 |
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") |