From a3ad6c7c7e0f11d2b9392fd2d41c7658e8d39b50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 1 Jan 2017 07:03:52 -0400
Subject: - Separators in a test for text functions will now be 1-char long, to
 avoid false negatives.

---
 stdlib/test/test/lux/data/text.lux | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/stdlib/test/test/lux/data/text.lux b/stdlib/test/test/lux/data/text.lux
index 1c75963d2..df2e621a9 100644
--- a/stdlib/test/test/lux/data/text.lux
+++ b/stdlib/test/test/lux/data/text.lux
@@ -98,15 +98,14 @@
           ))
 
 (test: "More text functions"
-  [sizeS bounded-size
-   sizeP bounded-size
+  [sizeP bounded-size
    sizeL bounded-size
    #let [## The wider unicode charset includes control characters that
          ## can make text replacement work improperly.
          ## Because of that, I restrict the charset.
          normal-char-gen (|> R;char (:: @ map (|>. char;code (n.% +128) (n.max +1) char;char)))]
-   sep1 (R;text' normal-char-gen sizeS)
-   sep2 (R;text' normal-char-gen sizeS)
+   sep1 (R;text' normal-char-gen +1)
+   sep2 (R;text' normal-char-gen +1)
    #let [part-gen (|> (R;text' normal-char-gen sizeP)
                       (R;filter (. not (&;contains? sep1))))]
    parts (R;list sizeL part-gen)
-- 
cgit v1.2.3