diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/control/parser/text.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux index dd8ce8ceb..6b2152320 100644 --- a/stdlib/source/test/lux/control/parser/text.lux +++ b/stdlib/source/test/lux/control/parser/text.lux @@ -82,15 +82,15 @@ (and (..should_pass expected (/.range offset limit)) (..should_fail out_of_range (/.range offset limit))))) (do {! random.monad} - [expected (random.char unicode.ascii/upper_alpha) - invalid (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/upper_alpha) not) + [expected (random.char unicode.ascii/upper) + invalid (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/upper) not) (random.char unicode.character))] (_.cover [/.upper] (and (..should_pass (text.from_code expected) /.upper) (..should_fail (text.from_code invalid) /.upper)))) (do {! random.monad} - [expected (random.char unicode.ascii/lower_alpha) - invalid (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/lower_alpha) not) + [expected (random.char unicode.ascii/lower) + invalid (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/lower) not) (random.char unicode.character))] (_.cover [/.lower] (and (..should_pass (text.from_code expected) /.lower) @@ -116,8 +116,8 @@ (do {! random.monad} [expected (random.char unicode.ascii/alpha) invalid (random.filter (function (_ char) - (not (or (unicode/block.within? unicode/block.basic_latin/upper_alpha char) - (unicode/block.within? unicode/block.basic_latin/lower_alpha char)))) + (not (or (unicode/block.within? unicode/block.basic_latin/upper char) + (unicode/block.within? unicode/block.basic_latin/lower char)))) (random.char unicode.character))] (_.cover [/.alpha] (and (..should_pass (text.from_code expected) /.alpha) @@ -125,8 +125,8 @@ (do {! random.monad} [expected (random.char unicode.ascii/alpha_num) invalid (random.filter (function (_ char) - (not (or (unicode/block.within? unicode/block.basic_latin/upper_alpha char) - (unicode/block.within? unicode/block.basic_latin/lower_alpha char) + (not (or (unicode/block.within? unicode/block.basic_latin/upper char) + (unicode/block.within? unicode/block.basic_latin/lower char) (unicode/block.within? unicode/block.basic_latin/decimal char)))) (random.char unicode.character))] (_.cover [/.alpha_num] @@ -395,8 +395,8 @@ (!expect (^multi (#try.Success actual) (text\= expected actual)))))) (do {! random.monad} - [invalid (random.ascii/upper_alpha 1) - expected (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/upper_alpha) + [invalid (random.ascii/upper 1) + expected (random.filter (|>> (unicode/block.within? unicode/block.basic_latin/upper) not) (random.char unicode.character)) #let [upper! (/.one_of! "ABCDEFGHIJKLMNOPQRSTUVWXYZ")]] @@ -413,11 +413,11 @@ (!expect (^multi (#try.Failure error) (exception.match? /.expected_to_fail error))))))) (do {! random.monad} - [upper (random.ascii/upper_alpha 1) - lower (random.ascii/lower_alpha 1) + [upper (random.ascii/upper 1) + lower (random.ascii/lower 1) invalid (random.filter (function (_ char) - (not (or (unicode/block.within? unicode/block.basic_latin/upper_alpha char) - (unicode/block.within? unicode/block.basic_latin/lower_alpha char)))) + (not (or (unicode/block.within? unicode/block.basic_latin/upper char) + (unicode/block.within? unicode/block.basic_latin/lower char)))) (random.char unicode.character)) #let [upper! (/.one_of! "ABCDEFGHIJKLMNOPQRSTUVWXYZ") lower! (/.one_of! "abcdefghijklmnopqrstuvwxyz")]] |