Saving first part of large rewrite

1 files changed, 4 insertions, 0 deletions

diff --git a/t/lex.lisp b/t/lex.lisp
index 7a20608..98d7c28 100644
--- a/t/lex.lisp
+++ b/t/lex.lisp
@@ -20,6 +20,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))))