aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification/aedifex
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/specification/aedifex')
-rw-r--r--stdlib/source/specification/aedifex/repository.lux9
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/specification/aedifex/repository.lux b/stdlib/source/specification/aedifex/repository.lux
index 9cc2e0f2d..a0812b443 100644
--- a/stdlib/source/specification/aedifex/repository.lux
+++ b/stdlib/source/specification/aedifex/repository.lux
@@ -1,7 +1,6 @@
(.require
[library
[lux (.except)
- ["_" test (.only Test)]
[abstract
[monad (.only do)]]
[control
@@ -12,7 +11,9 @@
["[0]" binary (.only)
["_[1]" \\test]]]
[math
- ["[0]" random]]]]
+ ["[0]" random]]
+ ["_" test (.only Test)
+ ["[0]" unit]]]]
[\\program
["[0]" / (.only)
["[1][0]" remote]
@@ -27,7 +28,7 @@
(-> Artifact Artifact (/.Repository Async) Test)
(do random.monad
[expected (_binary.random 100)]
- (in (all _.and'
+ (in (all unit.and
(do async.monad
[.let [good_uri (/remote.uri (the //artifact.#version valid_artifact) valid_artifact //artifact/extension.lux_library)]
good_upload! (at subject upload good_uri expected)
@@ -36,7 +37,7 @@
.let [bad_uri (/remote.uri (the //artifact.#version invalid_artifact) invalid_artifact //artifact/extension.lux_library)]
bad_upload! (at subject upload bad_uri expected)
bad_download! (at subject download bad_uri)]
- (_.coverage' [/.Repository]
+ (unit.coverage [/.Repository]
(let [successfull_flow!
(case [good_upload! good_download!]
[{try.#Success _} {try.#Success actual}]