diff options
| author | Eduardo Julian | 2017-01-01 07:03:52 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-01-01 07:03:52 -0400 |
| commit | a3ad6c7c7e0f11d2b9392fd2d41c7658e8d39b50 (patch) | |
| tree | 10066141ee6c939e0f382248f1e48ca2a6f81586 | |
| parent | 0f445bbcb6a20873ecec5b432bbc516eee16f71d (diff) | |
- Separators in a test for text functions will now be 1-char long, to avoid false negatives.
| -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) |