fix scheme-lexer tests
svn: r9688
This commit is contained in:
parent
d04c90b7fe
commit
07bac63506
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue
Block a user