From 6ba1871c3825e17d33b96ffd3051239dfe18d61a Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 9 Apr 2025 19:26:51 -0400 Subject: Saving first part of large rewrite --- t/lex.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't/lex.lisp') diff --git a/t/lex.lisp b/t/lex.lisp index 7a20608..98d7c28 100644 --- a/t/lex.lisp +++ b/t/lex.lisp @@ -19,6 +19,10 @@ " (is (eq (lex:read-token) 'lex::nl)))) +(test read-token-reads-left-paren + (read-this "." + (is (eq (lex:read-token) 'lex::period)))) + (test read-token-reads-left-paren (read-this "(" (is (eq (lex:read-token) 'lex::left-paren)))) -- cgit v1.2.3