From fdc924b023122b09b536a3d372658ecf15277cfb Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Dec 2016 07:18:25 -0400
Subject: - Refactored lux/regex tests to avoid the "Truncate class file"
 issue.

---
 stdlib/test/test/lux/regex.lux | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'stdlib/test')

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")
 
-- 
cgit v1.2.3