diff options
Diffstat (limited to 'stdlib/source/spec/aedifex')
| -rw-r--r-- | stdlib/source/spec/aedifex/repository.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/spec/aedifex/repository.lux b/stdlib/source/spec/aedifex/repository.lux index a660722d9..77c453f4b 100644 --- a/stdlib/source/spec/aedifex/repository.lux +++ b/stdlib/source/spec/aedifex/repository.lux @@ -28,15 +28,15 @@ [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) + [upload!/good (\ subject upload valid-identity valid-artifact //artifact/extension.lux-library expected) + download!/good (\ subject download valid-artifact //artifact/extension.lux-library) - upload!/bad (:: subject upload invalid-identity invalid-artifact //artifact/extension.lux-library expected) - download!/bad (:: subject download invalid-artifact //artifact/extension.lux-library)] + upload!/bad (\ subject upload invalid-identity invalid-artifact //artifact/extension.lux-library expected) + download!/bad (\ subject download invalid-artifact //artifact/extension.lux-library)] (_.cover' [/.Repository] (and (case [upload!/good download!/good] [(#try.Success _) (#try.Success actual)] - (:: binary.equivalence = expected actual) + (\ binary.equivalence = expected actual) _ false) |