aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/repository
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/repository')
-rw-r--r--stdlib/source/test/aedifex/repository/identity.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/local.lux10
-rw-r--r--stdlib/source/test/aedifex/repository/origin.lux4
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux10
4 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/test/aedifex/repository/identity.lux b/stdlib/source/test/aedifex/repository/identity.lux
index 5e357ecca..e1b67e424 100644
--- a/stdlib/source/test/aedifex/repository/identity.lux
+++ b/stdlib/source/test/aedifex/repository/identity.lux
@@ -13,8 +13,8 @@
(def: .public random
(Random /.Identity)
(all random.and
- (random.ascii/alpha 10)
- (random.ascii/alpha 10)
+ (random.alphabetic 10)
+ (random.alphabetic 10)
))
(def: .public test
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index c5da9011d..92826c8ff 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -27,16 +27,16 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [/ (random.ascii/upper 1)
- home (random.ascii/lower 10)
- working_directory (random.ascii/lower 10)
+ [/ (random.upper_case 1)
+ home (random.lower_case 10)
+ working_directory (random.lower_case 10)
.let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))
repo (/.repository program fs)]
- uri (random.ascii/lower 10)
+ uri (random.lower_case 10)
expected (# ! each (# utf8.codec encoded)
- (random.ascii/lower 10))]
+ (random.lower_case 10))]
(all _.and
(in (do async.monad
[before_upload (# repo download uri)
diff --git a/stdlib/source/test/aedifex/repository/origin.lux b/stdlib/source/test/aedifex/repository/origin.lux
index a0bcff68d..90a0f89dd 100644
--- a/stdlib/source/test/aedifex/repository/origin.lux
+++ b/stdlib/source/test/aedifex/repository/origin.lux
@@ -13,8 +13,8 @@
(def: .public random
(Random /.Origin)
(all random.or
- (random.ascii/alpha 10)
- (random.ascii/alpha 10)
+ (random.alphabetic 10)
+ (random.alphabetic 10)
))
(def: .public test
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index abf123f4b..05cd293c3 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -84,14 +84,14 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [address (random.ascii/upper 10)
- uri (random.ascii/lower 10)
+ [address (random.upper_case 10)
+ uri (random.lower_case 10)
- user (random.ascii/lower 10)
- password (random.ascii/lower 10)
+ user (random.lower_case 10)
+ password (random.lower_case 10)
content (# ! each (# utf8.codec encoded)
- (random.ascii/lower 10))]
+ (random.lower_case 10))]
(all _.and
(_.cover [/.repository /.user_agent /.Address]
(let [repo (/.repository (..good_http user password)