aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/data
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/data')
-rw-r--r--stdlib/source/test/lux/data/collection/dictionary/plist.lux4
-rw-r--r--stdlib/source/test/lux/data/collection/tree/finger.lux8
-rw-r--r--stdlib/source/test/lux/data/format/json.lux12
-rw-r--r--stdlib/source/test/lux/data/format/tar.lux20
-rw-r--r--stdlib/source/test/lux/data/text.lux14
-rw-r--r--stdlib/source/test/lux/data/text/buffer.lux2
-rw-r--r--stdlib/source/test/lux/data/text/unicode/block.lux6
-rw-r--r--stdlib/source/test/lux/data/text/unicode/set.lux10
8 files changed, 38 insertions, 38 deletions
diff --git a/stdlib/source/test/lux/data/collection/dictionary/plist.lux b/stdlib/source/test/lux/data/collection/dictionary/plist.lux
index 2e5fb1810..113b166f3 100644
--- a/stdlib/source/test/lux/data/collection/dictionary/plist.lux
+++ b/stdlib/source/test/lux/data/collection/dictionary/plist.lux
@@ -35,7 +35,7 @@
(<| (_.covering /._)
(_.for [/.PList])
(do [! random.monad]
- [.let [gen_key (random.ascii/alpha 10)]
+ [.let [gen_key (random.alphabetic 10)]
size (# ! each (n.% 100) random.nat)
sample (..random size gen_key random.nat)
@@ -51,7 +51,7 @@
(_.for [/.monoid]
($monoid.spec (/.equivalence n.equivalence)
/.monoid
- (..random 10 (random.ascii/lower 1) random.nat)))
+ (..random 10 (random.lower_case 1) random.nat)))
(_.cover [/.size]
(n.= size (/.size sample)))
diff --git a/stdlib/source/test/lux/data/collection/tree/finger.lux b/stdlib/source/test/lux/data/collection/tree/finger.lux
index 1a54f242e..0a193f702 100644
--- a/stdlib/source/test/lux/data/collection/tree/finger.lux
+++ b/stdlib/source/test/lux/data/collection/tree/finger.lux
@@ -33,9 +33,9 @@
(<| (_.covering /._)
(_.for [/.Tree])
(do [! random.monad]
- [tag_left (random.ascii/alpha_num 1)
+ [tag_left (random.alpha_numeric 1)
tag_right (random.only (|>> (text#= tag_left) not)
- (random.ascii/alpha_num 1))
+ (random.alpha_numeric 1))
expected_left random.nat
expected_right random.nat]
(all _.and
@@ -81,8 +81,8 @@
(do random.monad
[.let [tags_equivalence (list.equivalence text.equivalence)
values_equivalence (list.equivalence n.equivalence)]
- tags/H (random.ascii/alpha_num 1)
- tags/T (random.list 5 (random.ascii/alpha_num 1))
+ tags/H (random.alpha_numeric 1)
+ tags/T (random.list 5 (random.alpha_numeric 1))
values/H random.nat
values/T (random.list 5 random.nat)]
(_.cover [/.tags /.values]
diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux
index 1c33df2b6..84f31a550 100644
--- a/stdlib/source/test/lux/data/format/json.lux
+++ b/stdlib/source/test/lux/data/format/json.lux
@@ -88,7 +88,7 @@
(try#each (#= expected))
(try.else false))))
(do random.monad
- [keys (random.set text.hash 3 (random.ascii/alpha 1))
+ [keys (random.set text.hash 3 (random.alphabetic 1))
values (random.set frac.hash 3 random.safe_frac)
.let [expected (list.zipped_2 (set.list keys)
(list#each (|>> {/.#Number}) (set.list values)))
@@ -111,9 +111,9 @@
expected))
))
(do random.monad
- [key (random.ascii/alpha 1)
+ [key (random.alphabetic 1)
unknown (random.only (|>> (# text.equivalence = key) not)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
expected random.safe_frac]
(_.cover [/.has]
(<| (try.else false)
@@ -136,7 +136,7 @@
cannot_find_unknown_key!))))))
(~~ (template [<type> <field> <tag> <random> <equivalence>]
[(do random.monad
- [key (random.ascii/alpha 1)
+ [key (random.alphabetic 1)
value <random>]
(_.cover [<type> <field>]
(|> (/.object (list [key {<tag> value}]))
@@ -146,9 +146,9 @@
[/.Boolean /.boolean_field /.#Boolean random.bit bit.equivalence]
[/.Number /.number_field /.#Number random.safe_frac frac.equivalence]
- [/.String /.string_field /.#String (random.ascii/alpha 1) text.equivalence]
+ [/.String /.string_field /.#String (random.alphabetic 1) text.equivalence]
[/.Array /.array_field /.#Array (random.sequence 3 ..random) (sequence.equivalence /.equivalence)]
- [/.Object /.object_field /.#Object (random.dictionary text.hash 3 (random.ascii/alpha 1) ..random) (dictionary.equivalence /.equivalence)]
+ [/.Object /.object_field /.#Object (random.dictionary text.hash 3 (random.alphabetic 1) ..random) (dictionary.equivalence /.equivalence)]
))
(with_expansions [<boolean> (boolean)
<number> (number)
diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux
index 1bffe48ec..a62ce9de4 100644
--- a/stdlib/source/test/lux/data/format/tar.lux
+++ b/stdlib/source/test/lux/data/format/tar.lux
@@ -40,8 +40,8 @@
Test
(_.for [/.Path]
(do [! random.monad]
- [expected (random.ascii/lower /.path_size)
- invalid (random.ascii/lower (++ /.path_size))
+ [expected (random.lower_case /.path_size)
+ invalid (random.lower_case (++ /.path_size))
not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)]))
/.path_size)]
(`` (all _.and
@@ -75,8 +75,8 @@
Test
(_.for [/.Name]
(do [! random.monad]
- [expected (random.ascii/lower /.name_size)
- invalid (random.ascii/lower (++ /.name_size))
+ [expected (random.lower_case /.name_size)
+ invalid (random.lower_case (++ /.name_size))
not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)]))
/.name_size)]
(`` (all _.and
@@ -157,10 +157,10 @@
(def: entry
Test
(do [! random.monad]
- [expected_path (random.ascii/lower (-- /.path_size))
+ [expected_path (random.lower_case (-- /.path_size))
expected_moment (# ! each (|>> (n.% 1,0,00,00,00,00,000) .int instant.of_millis)
random.nat)
- chunk (random.ascii/lower chunk_size)
+ chunk (random.lower_case chunk_size)
chunks (# ! each (n.% 100) random.nat)
.let [content (|> chunk
(list.repeated chunks)
@@ -243,7 +243,7 @@
Test
(_.for [/.Mode /.mode]
(do [! random.monad]
- [path (random.ascii/lower 10)
+ [path (random.lower_case 10)
modes (random.list 4 ..random_mode)
.let [expected_mode (list#mix /.and /.none modes)]]
(`` (all _.and
@@ -315,9 +315,9 @@
(def: ownership
Test
(do [! random.monad]
- [path (random.ascii/lower /.path_size)
- expected (random.ascii/lower /.name_size)
- invalid (random.ascii/lower (++ /.name_size))
+ [path (random.lower_case /.path_size)
+ expected (random.lower_case /.name_size)
+ invalid (random.lower_case (++ /.name_size))
not_ascii (random.text (random.char (unicode.set [unicode/block.katakana (list)]))
/.name_size)]
(_.for [/.Ownership /.Owner /.ID]
diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux
index 00bcfb12d..a4ecc3e09 100644
--- a/stdlib/source/test/lux/data/text.lux
+++ b/stdlib/source/test/lux/data/text.lux
@@ -147,7 +147,7 @@
)))
(do [! random.monad]
[size (# ! each (|>> (n.% 10) ++) random.nat)
- characters (random.set /.hash size (random.ascii/alpha 1))
+ characters (random.set /.hash size (random.alphabetic 1))
.let [sample (|> characters set.list /.together)]
expected (# ! each (n.% size) random.nat)]
(_.cover [/.char]
@@ -179,18 +179,18 @@
Test
(do [! random.monad]
[size (# ! each (|>> (n.% 10) (n.+ 2)) random.nat)
- characters (random.set /.hash size (random.ascii/alpha 1))
+ characters (random.set /.hash size (random.alphabetic 1))
separator (random.only (|>> (set.member? characters) not)
- (random.ascii/alpha 1))
+ (random.alphabetic 1))
.let [with_no_separator (|> characters set.list /.together)]
- static (random.ascii/alpha 1)
+ static (random.alphabetic 1)
.let [dynamic (random.only (|>> (# /.equivalence = static) not)
- (random.ascii/alpha 1))]
+ (random.alphabetic 1))]
pre dynamic
post dynamic
- lower (random.ascii/lower 1)
- upper (random.ascii/upper 1)]
+ lower (random.lower_case 1)
+ upper (random.upper_case 1)]
(all _.and
(_.cover [/.together]
(n.= (set.size characters)
diff --git a/stdlib/source/test/lux/data/text/buffer.lux b/stdlib/source/test/lux/data/text/buffer.lux
index dbe4732df..fe1506d88 100644
--- a/stdlib/source/test/lux/data/text/buffer.lux
+++ b/stdlib/source/test/lux/data/text/buffer.lux
@@ -18,7 +18,7 @@
(Random Text)
(do [! random.monad]
[size (# ! each (|>> (n.% 10) ++) random.nat)]
- (random.ascii/alpha size)))
+ (random.alphabetic size)))
(def: .public test
Test
diff --git a/stdlib/source/test/lux/data/text/unicode/block.lux b/stdlib/source/test/lux/data/text/unicode/block.lux
index 767a8cf4c..4c4a35e69 100644
--- a/stdlib/source/test/lux/data/text/unicode/block.lux
+++ b/stdlib/source/test/lux/data/text/unicode/block.lux
@@ -142,9 +142,9 @@
/.specials
... Specialized blocks
- /.basic_latin/decimal
- /.basic_latin/upper
- /.basic_latin/lower]]
+ /.numeric
+ /.upper_case
+ /.lower_case]]
)
<named> (template [<definition> <part>]
[((is (-> Any (List /.Block))
diff --git a/stdlib/source/test/lux/data/text/unicode/set.lux b/stdlib/source/test/lux/data/text/unicode/set.lux
index 20f6c2e42..11c1faa88 100644
--- a/stdlib/source/test/lux/data/text/unicode/set.lux
+++ b/stdlib/source/test/lux/data/text/unicode/set.lux
@@ -84,11 +84,11 @@
(not (/.member? <set> (++ end))))))]
[/.ascii]
- [/.ascii/alpha]
- [/.ascii/alpha_num]
- [/.ascii/lower]
- [/.ascii/upper]
- [/.ascii/numeric]
+ [/.alphabetic]
+ [/.alpha_numeric]
+ [/.lower_case]
+ [/.upper_case]
+ [/.numeric]
[/.character]
[/.non_character]
[/.full]
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-23 04:21:11 +0000