From 4c76966b49e8559f710013463dac04143c1f4e09 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 8 Apr 2025 00:41:00 -0400 Subject: Add plus and minus symbols to lexer --- t/lex.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 't/lex.lisp') diff --git a/t/lex.lisp b/t/lex.lisp index ab0ed99..dfa632a 100644 --- a/t/lex.lisp +++ b/t/lex.lisp @@ -31,6 +31,14 @@ (read-this "$" (is (eq (lex:read-token) 'lex::dollar)))) +(test read-token-reads-plus + (read-this "+" + (is (eq (lex:read-token) 'lex::plus)))) + +(test read-token-reads-minus + (read-this "-" + (is (eq (lex:read-token) 'lex::minus)))) + (test read-token-ignores-space (read-this " (" (is (eq (lex:read-token) 'lex::left-paren)))) -- cgit v1.2.3