Commit 0431e331 authored by pfdietz's avatar pfdietz
Browse files

More tests of parsing of tokens containing dots and escapes

parent ef656620
......@@ -62,6 +62,38 @@
;;; Dot tokens
(def-syntax-test syntax.dot-token.1
(read-from-string "\\.")
|.| 2)
(def-syntax-test syntax.dot-token.2
(read-from-string ".\\.")
|..| 3)
(def-syntax-test syntax.dot-token.3
(read-from-string "\\..")
|..| 3)
(def-syntax-test syntax.dot-token.4
(read-from-string "..\\.")
|...| 4)
(def-syntax-test syntax.dot-token.5
(read-from-string ".\\..")
|...| 4)
(def-syntax-test syntax.dot-token.6
(read-from-string "\\...")
|...| 4)
(def-syntax-test syntax.dot-token.7
(read-from-string ".||")
|.| 3)
(def-syntax-test syntax.dot-token.8
(read-from-string "..||")
|..| 4)
(def-syntax-test syntax.dot-error.1
(signals-error (read-from-string ".") reader-error)
t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment