diff options
| author | bd <bdunahu@operationnull.com> | 2024-12-31 01:41:03 -0700 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-12-31 01:41:03 -0700 |
| commit | c4b297fcb0e981591ea8c98339498a68c0a89ce0 (patch) | |
| tree | b90e12c1c7020f5cb7b00c5ac3d012f18cef4036 /src/unit-tests | |
| parent | af71acaa9f22f17dc1a6ce0737b6255d3af0a7ab (diff) | |
Add (and test) sub, add, inc/decrement, and bit-complement to lexer
Diffstat (limited to 'src/unit-tests')
| -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) |