diff options
Diffstat (limited to 'stdlib/source/test/aedifex')
| -rw-r--r-- | stdlib/source/test/aedifex/artifact.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/deployment.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/metadata/artifact.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/metadata/snapshot.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/repository/local.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/repository/remote.lux | 10 |
6 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux index 621af00af..f9bf55c4c 100644 --- a/stdlib/source/test/aedifex/artifact.lux +++ b/stdlib/source/test/aedifex/artifact.lux @@ -31,9 +31,9 @@ (Random /.Artifact) (let [size 4] (all random.and - (random.lower_case size) - (random.lower_case size) - (random.lower_case size)))) + (random.lower_cased size) + (random.lower_cased size) + (random.lower_cased size)))) (def .public test Test diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 79b3210ff..6e8aff6b6 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -150,7 +150,7 @@ (<| (_.covering /._) (do [! random.monad] [address (at ! each (text.suffix uri.separator) - (random.upper_case 10))] + (random.upper_cased 10))] (all _.and (do [! random.monad] [[dependency expected_artifact package] ..bundle diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 27c194d84..1f5fc5f8e 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -99,8 +99,8 @@ (text#= (//.remote_project_uri artifact) (/.uri artifact))) (do random.monad - [home (random.lower_case 5) - working_directory (random.lower_case 5) + [home (random.lower_cased 5) + working_directory (random.lower_cased 5) .let [program (program.async (program.mock environment.empty home working_directory)) fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index fa26186ea..30a8b0311 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -111,8 +111,8 @@ (text#= (//.remote_artifact_uri artifact) (/.uri artifact))) (do random.monad - [home (random.lower_case 5) - working_directory (random.lower_case 5) + [home (random.lower_cased 5) + working_directory (random.lower_cased 5) .let [program (program.async (program.mock environment.empty home working_directory)) fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index 874c773b3..7edaa1353 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -29,16 +29,16 @@ Test (<| (_.covering /._) (do [! random.monad] - [/ (random.upper_case 1) - home (random.lower_case 10) - working_directory (random.lower_case 10) + [/ (random.upper_cased 1) + home (random.lower_cased 10) + working_directory (random.lower_cased 10) .let [fs (file.mock /) program (program.async (program.mock environment.empty home working_directory)) repo (/.repository program fs)] - uri (random.lower_case 10) + uri (random.lower_cased 10) expected (at ! each (at utf8.codec encoded) - (random.lower_case 10))] + (random.lower_cased 10))] (all _.and (in (do async.monad [before_upload (at repo download uri) diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 5a1c21316..4540ee5eb 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -85,14 +85,14 @@ Test (<| (_.covering /._) (do [! random.monad] - [address (random.upper_case 10) - uri (random.lower_case 10) + [address (random.upper_cased 10) + uri (random.lower_cased 10) - user (random.lower_case 10) - password (random.lower_case 10) + user (random.lower_cased 10) + password (random.lower_cased 10) content (at ! each (at utf8.codec encoded) - (random.lower_case 10))] + (random.lower_cased 10))] (all _.and (_.coverage [/.repository /.user_agent /.Address] (let [repo (/.repository (..good_http user password) |