From 0431e331e6943204c47f944c00bb66ac0101f19c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 27 Feb 2005 23:09:52 +0000 Subject: [PATCH] More tests of parsing of tokens containing dots and escapes --- ansi-tests/syntax-tokens.lsp | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/ansi-tests/syntax-tokens.lsp b/ansi-tests/syntax-tokens.lsp index adfdf60f..82f9bdff 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) -- GitLab