diff options
Diffstat (limited to 'stdlib/source/spec/aedifex/repository.lux')
| -rw-r--r-- | stdlib/source/spec/aedifex/repository.lux | 10 |
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)] |