diff options
Diffstat (limited to 'src/unit-tests/lexer/lexer-test.scm')
| -rw-r--r-- | src/unit-tests/lexer/lexer-test.scm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/src/unit-tests/lexer/lexer-test.scm b/src/unit-tests/lexer/lexer-test.scm index 48291b9..324ba66 100644 --- a/src/unit-tests/lexer/lexer-test.scm +++ b/src/unit-tests/lexer/lexer-test.scm @@ -35,6 +35,18 @@ '(1) (read-tokens)) +(test-equal (read-this "~+-") + '(complement add sub) + (read-tokens)) + +(test-equal (read-this "---") + '(decrement sub) + (read-tokens)) + +(test-equal (read-this "+--") + '(add decrement) + (read-tokens)) + (test-equal (read-this "0") '(0) (read-tokens)) @@ -52,7 +64,7 @@ (read-tokens)) (test-error (read-this "3.4") - (read-tokens)) + (read-tokens)) (test-equal (read-this "a") '("a") @@ -63,7 +75,7 @@ (read-tokens)) (test-error (read-this "1foo") - (read-tokens)) + (read-tokens)) (test-equal (read-this "void") '(void) |