diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format/tar.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index f837c0d18..73ccec27f 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -13,9 +13,10 @@ ["." maybe] ["." binary ("#\." equivalence)] ["." text ("#\." equivalence) + ["%" format (#+ format)] ["." encoding] - ["." unicode] - ["%" format (#+ format)]] + ["." unicode + ["#/." segment]]] [number ["n" nat] ["i" int]] @@ -38,7 +39,7 @@ (do {! random.monad} [expected (random.ascii/lower-alpha /.path-size) invalid (random.ascii/lower-alpha (inc /.path-size)) - not-ascii (random.text (random.char (unicode.set [unicode.katakana (list)])) + not-ascii (random.text (random.char (unicode.set [unicode/segment.katakana (list)])) /.path-size)] (`` ($_ _.and (_.cover [/.path /.from-path] @@ -71,7 +72,7 @@ (do {! random.monad} [expected (random.ascii/lower-alpha /.name-size) invalid (random.ascii/lower-alpha (inc /.name-size)) - not-ascii (random.text (random.char (unicode.set [unicode.katakana (list)])) + not-ascii (random.text (random.char (unicode.set [unicode/segment.katakana (list)])) /.name-size)] (`` ($_ _.and (_.cover [/.name /.from-name] @@ -312,7 +313,7 @@ [path (random.ascii/lower-alpha /.path-size) expected (random.ascii/lower-alpha /.name-size) invalid (random.ascii/lower-alpha (inc /.name-size)) - not-ascii (random.text (random.char (unicode.set [unicode.katakana (list)])) + not-ascii (random.text (random.char (unicode.set [unicode/segment.katakana (list)])) /.name-size)] (_.for [/.Ownership /.Owner /.ID] ($_ _.and |