diff options
| author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
| commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
| tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/test/aedifex/dependency/deployment.lux | |
| parent | b491dfff00219d5206075ea65468e00ab657075d (diff) | |
Added some simple time-series handling machinery.
Diffstat (limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/deployment.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 6e8aff6b6..3e7350050 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -149,7 +149,7 @@ Test (<| (_.covering /._) (do [! random.monad] - [address (at ! each (text.suffix uri.separator) + [address (of ! each (text.suffix uri.separator) (random.upper_cased 10))] (all _.and (do [! random.monad] @@ -167,12 +167,12 @@ (try.else false)))))) (do [! random.monad] [.let [hash (is (Hash [Dependency Artifact Package]) - (at hash.functor each (|>> product.right product.left product.left) + (of hash.functor each (|>> product.right product.left product.left) text.hash))] - num_bundles (at ! each (n.% 10) random.nat) + num_bundles (of ! each (n.% 10) random.nat) bundles (|> ..bundle (random.set hash num_bundles) - (at ! each set.list)) + (of ! each set.list)) .let [resolution (list#mix (function (_ [dependency expected_artifact package] resolution) (dictionary.has dependency package resolution)) resolution.empty |