aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/spec
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/spec/aedifex/repository.lux10
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/spec/aedifex/repository.lux b/stdlib/source/spec/aedifex/repository.lux
index 77c453f4b..acea123bc 100644
--- a/stdlib/source/spec/aedifex/repository.lux
+++ b/stdlib/source/spec/aedifex/repository.lux
@@ -28,11 +28,13 @@
[expected (_binary.random 100)]
(wrap ($_ _.and'
(do promise.monad
- [upload!/good (\ subject upload valid-identity valid-artifact //artifact/extension.lux-library expected)
- download!/good (\ subject download valid-artifact //artifact/extension.lux-library)
+ [#let [uri/good (/.uri valid-artifact //artifact/extension.lux-library)]
+ upload!/good (\ subject upload valid-identity uri/good expected)
+ download!/good (\ subject download uri/good)
- upload!/bad (\ subject upload invalid-identity invalid-artifact //artifact/extension.lux-library expected)
- download!/bad (\ subject download invalid-artifact //artifact/extension.lux-library)]
+ #let [uri/bad (/.uri invalid-artifact //artifact/extension.lux-library)]
+ upload!/bad (\ subject upload invalid-identity uri/bad expected)
+ download!/bad (\ subject download uri/bad)]
(_.cover' [/.Repository]
(and (case [upload!/good download!/good]
[(#try.Success _) (#try.Success actual)]