From c4b297fcb0e981591ea8c98339498a68c0a89ce0 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 31 Dec 2024 01:41:03 -0700 Subject: Add (and test) sub, add, inc/decrement, and bit-complement to lexer --- src/unit-tests/lexer/lexer-test.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'src/unit-tests/lexer') 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) -- cgit v1.2.3