aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
authorEduardo Julian2017-01-01 07:03:52 -0400
committerEduardo Julian2017-01-01 07:03:52 -0400
commita3ad6c7c7e0f11d2b9392fd2d41c7658e8d39b50 (patch)
tree10066141ee6c939e0f382248f1e48ca2a6f81586 /stdlib
parent0f445bbcb6a20873ecec5b432bbc516eee16f71d (diff)
- Separators in a test for text functions will now be 1-char long, to avoid false negatives.
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/test/test/lux/data/text.lux7
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)