Add plus and minus symbols to lexer

1 files changed, 8 insertions, 0 deletions

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))))