diff options
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux/regex.lux | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/stdlib/test/test/lux/regex.lux b/stdlib/test/test/lux/regex.lux index b2a2b71b1..00be2c2d8 100644 --- a/stdlib/test/test/lux/regex.lux +++ b/stdlib/test/test/lux/regex.lux @@ -218,7 +218,7 @@ (should-fail (&;regex "a+") ""))) )) -(test: "Regular Expressions [Specific Quantifiers]" +(test: "Regular Expressions [Crisp Quantifiers]" ($_ seq (assert "Can match a pattern N times." (and (should-passT "aa" (&;regex "a{2}") "aa") @@ -264,11 +264,7 @@ (should-fail (&;regex "a|b") "c"))) (assert "Can have groups within alternations." - (and (should-check ["abc" (+0 "b")] (&;regex "a(.)c|b(.)d") "abc") - (should-check ["bcd" (+1 "c")] (&;regex "a(.)c|b(.)d") "bcd") - (should-fail (&;regex "a(.)c|b(.)d") "cde") - - (should-check ["abc" (+0 ["b" "c"])] (&;regex "a(.)(.)|b(.)(.)") "abc") + (and (should-check ["abc" (+0 ["b" "c"])] (&;regex "a(.)(.)|b(.)(.)") "abc") (should-check ["bcd" (+1 ["c" "d"])] (&;regex "a(.)(.)|b(.)(.)") "bcd") (should-fail (&;regex "a(.)(.)|b(.)(.)") "cde") |