diff --git a/ansi-tests/syntax-tokens.lsp b/ansi-tests/syntax-tokens.lsp index adfdf60faae43d25c20683a82e5e7774a70c21af..82f9bdff6b882d88a93149248e889fcaabc2c38b 100644 --- a/ansi-tests/syntax-tokens.lsp +++ b/ansi-tests/syntax-tokens.lsp @@ -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)