fix scheme-lexer tests

svn: r9688
This commit is contained in:
Matthew Flatt 2008-05-06 14:44:31 +00:00
parent d04c90b7fe
commit 07bac63506

View File

@ -446,85 +446,85 @@ end-string
(test "#x1d+2" "xxxxxx")
;; Keywords
(test "#:" "cc")
(test "#:a#:a" "cccccc")
(test "#:a #:a" "ccc ccc")
(test "#:a\t#:a" "ccc ccc")
(test "#:a\n#:a" "ccc ccc")
(test "#:a\"#:a" "cccxxxx")
(test "#:a,#:a" "cccoccc")
(test "#:a'#:a" "ccccccc" 3)
(test "#:a`#:a" "ccccccc" 3)
(test "#:a;#:a" "ccc;;;;")
(test "#:a(#:a" "cccpccc")
(test "#:a)#:a" "cccpccc")
(test "#:a[#:a" "cccpccc")
(test "#:a]#:a" "cccpccc")
(test "#:a{#:a" "cccpccc")
(test "#:a}#:a" "cccpccc")
(test "#:a##:a" "ccccccc")
(test "#:a.#:a" "ccccccc")
(test "#:a@#:a" "ccccccc")
(test "#:a/#:a" "ccccccc")
(test "#:a\"#:a\"#:a" "cccsssssccc")
(test "#:a1#:a" "ccccccc")
(test "#:a%#:a" "ccccccc")
(test "#:" "pp")
(test "#:a#:a" "pppppp")
(test "#:a #:a" "ppp ppp")
(test "#:a\t#:a" "ppp ppp")
(test "#:a\n#:a" "ppp ppp")
(test "#:a\"#:a" "pppxxxx")
(test "#:a,#:a" "pppoppp")
(test "#:a'#:a" "pppcppp" 3)
(test "#:a`#:a" "pppcppp" 3)
(test "#:a;#:a" "ppp;;;;")
(test "#:a(#:a" "ppppppp" 3)
(test "#:a)#:a" "ppppppp" 3)
(test "#:a[#:a" "ppppppp" 3)
(test "#:a]#:a" "ppppppp" 3)
(test "#:a{#:a" "ppppppp" 3)
(test "#:a}#:a" "ppppppp" 3)
(test "#:a##:a" "ppppppp")
(test "#:a.#:a" "ppppppp")
(test "#:a@#:a" "ppppppp")
(test "#:a/#:a" "ppppppp")
(test "#:a\"#:a\"#:a" "pppsssssppp")
(test "#:a1#:a" "ppppppp")
(test "#:a%#:a" "ppppppp")
(test "#:1a" "cccc")
(test "#:\\8" "cccc")
(test "#:\\a" "cccc")
(test "#:\\\\" "cccc")
(test "#:a\\ a" "cccccc")
(test "#:a\\\ta" "cccccc")
(test "#:a\\\na" "cccccc")
(test "#:a\\\"a" "cccccc")
(test "#:a\\,a" "cccccc")
(test "#:a\\'a" "cccccc")
(test "#:a\\`a" "cccccc")
(test "#:a\\;a" "cccccc")
(test "#:a\\(a" "cccccc")
(test "#:a\\)a" "cccccc")
(test "#:a\\[a" "cccccc")
(test "#:a\\]a" "cccccc")
(test "#:a\\{a" "cccccc")
(test "#:a\\}a" "cccccc")
(test "#:\\|" "cccc")
(test "#:a\\|a" "cccccc")
(test "#:1a" "pppp")
(test "#:\\8" "pppp")
(test "#:\\a" "pppp")
(test "#:\\\\" "pppp")
(test "#:a\\ a" "pppppp")
(test "#:a\\\ta" "pppppp")
(test "#:a\\\na" "pppppp")
(test "#:a\\\"a" "pppppp")
(test "#:a\\,a" "pppppp")
(test "#:a\\'a" "pppppp")
(test "#:a\\`a" "pppppp")
(test "#:a\\;a" "pppppp")
(test "#:a\\(a" "pppppp")
(test "#:a\\)a" "pppppp")
(test "#:a\\[a" "pppppp")
(test "#:a\\]a" "pppppp")
(test "#:a\\{a" "pppppp")
(test "#:a\\}a" "pppppp")
(test "#:\\|" "pppp")
(test "#:a\\|a" "pppppp")
(test #<<end-string
#:\ \8\ \a\\
end-string
"cccccccccccc")
(test "#:||" "cccc")
(test "#:|a|" "ccccc")
(test "#:|8|" "ccccc")
(test "#:|\\|" "ccccc")
(test "#:a| |a" "ccccccc")
(test "#:a|\t|a" "ccccccc")
(test "#:a|\n|a" "ccccccc")
(test "#:a|\"|a" "ccccccc")
(test "#:a|,|a" "ccccccc")
(test "#:a|'|a" "ccccccc")
(test "#:a|`|a" "ccccccc")
(test "#:a|;|a" "ccccccc")
(test "#:a|(|a" "ccccccc")
(test "#:a|)|a" "ccccccc")
(test "#:a|[|a" "ccccccc")
(test "#:a|]|a" "ccccccc")
(test "#:a|{|a" "ccccccc")
(test "#:a|}|a" "ccccccc")
(test "#:a|,|\\ |||\\|| se \\|\\\\|\\\\|" "cccccccccccccccccccccccccc")
(test "#:\\ ,#:a" "ccccoccc")
(test "#:| |a,#:a" "ccccccoccc")
(test "#:a#||#" "ccccccc")
(test "#:a#;1 2" "cccc;;;;")
(test "#:a#<<a" "ccccccc")
(test "#:1#!1" "cccccc")
(test "#:1+nan.0" "ccccccccc")
(test "#:-inf.0+1" "cccccccccc")
(test "#:\\#:a" "cccccc")
(test "#:#\\:a" "cccccc")
"pppppppppppp")
(test "#:||" "pppp")
(test "#:|a|" "ppppp")
(test "#:|8|" "ppppp")
(test "#:|\\|" "ppppp")
(test "#:a| |a" "ppppppp")
(test "#:a|\t|a" "ppppppp")
(test "#:a|\n|a" "ppppppp")
(test "#:a|\"|a" "ppppppp")
(test "#:a|,|a" "ppppppp")
(test "#:a|'|a" "ppppppp")
(test "#:a|`|a" "ppppppp")
(test "#:a|;|a" "ppppppp")
(test "#:a|(|a" "ppppppp")
(test "#:a|)|a" "ppppppp")
(test "#:a|[|a" "ppppppp")
(test "#:a|]|a" "ppppppp")
(test "#:a|{|a" "ppppppp")
(test "#:a|}|a" "ppppppp")
(test "#:a|,|\\ |||\\|| se \\|\\\\|\\\\|" "pppppppppppppppppppppppppp")
(test "#:\\ ,#:a" "ppppoppp")
(test "#:| |a,#:a" "ppppppoppp")
(test "#:a#||#" "ppppppp")
(test "#:a#;1 2" "pppp;;;;")
(test "#:a#<<a" "ppppppp")
(test "#:1#!1" "pppppp")
(test "#:1+nan.0" "ppppppppp")
(test "#:-inf.0+1" "pppppppppp")
(test "#:\\#:a" "pppppp")
(test "#:#\\:a" "pppppp")
(test "#:1.1" "ccccc")
(test "#:1.1" "ppppp")
(test "#:a|" "xxxx")
(test "#:a#|" "xxxxx")
(test "#:a||a|, a\n\"" "xxxxxxxxxxxx")