diff options
| -rw-r--r-- | stdlib/test/test/lux/data/text.lux | 7 |
1 files 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) |