diff options
| author | Eduardo Julian | 2018-08-22 22:50:33 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-22 22:50:33 -0400 |
| commit | 5e13ae0ad68947249a98dc69ab513bdbeca1697e (patch) | |
| tree | 96f96c209979c095e48bb17f24e3e168385438cc /stdlib/test/test | |
| parent | d2efa1fd37efa50a460dfa609ddd274d82d082e3 (diff) | |
No more escaping of horizontal-tab.
Diffstat (limited to 'stdlib/test/test')
| -rw-r--r-- | stdlib/test/test/lux/compiler/default/syntax.lux | 2 | ||||
| -rw-r--r-- | stdlib/test/test/lux/data/text/regex.lux | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/test/test/lux/compiler/default/syntax.lux b/stdlib/test/test/lux/compiler/default/syntax.lux index 1bcb9dad8..6a447e9c1 100644 --- a/stdlib/test/test/lux/compiler/default/syntax.lux +++ b/stdlib/test/test/lux/compiler/default/syntax.lux @@ -30,7 +30,7 @@ (do r.Monad<Random> [#let [digits "0123456789" delimiters "()[]{}#.\"" - space "\t\v \n\r\f" + space "\v \n\r\f" invalid-range (format digits delimiters space) char-gen (|> r.nat (:: @ map (|>> (n/% 256) (n/max 1))) diff --git a/stdlib/test/test/lux/data/text/regex.lux b/stdlib/test/test/lux/data/text/regex.lux index 96f56c3d9..7a6e88d33 100644 --- a/stdlib/test/test/lux/data/text/regex.lux +++ b/stdlib/test/test/lux/data/text/regex.lux @@ -5,7 +5,7 @@ pipe ["p" parser]] [data - [text ("text/." Equivalence<Text>) + ["." text ("text/." Equivalence<Text>) format ["." lexer (#+ Lexer)] ["&" regex]]] @@ -117,10 +117,10 @@ (and (should-pass (&.regex "\\p{OctDigit}") "6") (should-fail (&.regex "\\p{OctDigit}") ".")) - (and (should-pass (&.regex "\\p{Blank}") "\t") + (and (should-pass (&.regex "\\p{Blank}") text.tab) (should-fail (&.regex "\\p{Blank}") ".")) - (and (should-pass (&.regex "\\p{ASCII}") "\t") + (and (should-pass (&.regex "\\p{ASCII}") text.tab) (should-fail (&.regex "\\p{ASCII}") "\u1234")) (and (should-pass (&.regex "\\p{Contrl}") "\u0012") |