aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/input.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/aedifex/input.lux')
-rw-r--r--stdlib/source/test/aedifex/input.lux68
1 files changed, 34 insertions, 34 deletions
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 01db3538c..dedb9b33c 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -1,35 +1,35 @@
(.using
- [library
- [lux "*"
- ["_" test {"+" Test}]
- [abstract
- [monad {"+" do}]]
- [control
- ["[0]" try {"+" Try}]
- [concurrency
- ["[0]" async {"+" Async}]]]
- [data
- [text
- ["%" format]
- [encoding
- ["[0]" utf8]]]
- [collection
- ["[0]" set {"+" Set}]]]
- [math
- ["[0]" random]]
- [world
- ["[0]" file]]]]
- [//
- ["$[0]" profile]]
- [\\program
- ["[0]" /
- ["/[1]" // "_"
- ["[1]" profile {"+" Profile}]
- ["[1][0]" project]
- ["[1][0]" action]
- ["[1][0]" format]
- [repository
- [remote {"+" Address}]]]]])
+ [library
+ [lux "*"
+ ["_" test {"+" Test}]
+ [abstract
+ [monad {"+" do}]]
+ [control
+ ["[0]" try {"+" Try}]
+ [concurrency
+ ["[0]" async {"+" Async}]]]
+ [data
+ [text
+ ["%" format]
+ [encoding
+ ["[0]" utf8]]]
+ [collection
+ ["[0]" set {"+" Set}]]]
+ [math
+ ["[0]" random]]
+ [world
+ ["[0]" file]]]]
+ [//
+ ["$[0]" profile]]
+ [\\program
+ ["[0]" /
+ ["/[1]" // "_"
+ ["[1]" profile {"+" Profile}]
+ ["[1][0]" project]
+ ["[1][0]" action]
+ ["[1][0]" format]
+ [repository
+ [remote {"+" Address}]]]]])
(def: (with_default_source sources)
(-> (Set //.Source) (Set //.Source))
@@ -45,7 +45,7 @@
Test
(<| (_.covering /._)
(do [! random.monad]
- [expected (# ! each (with@ //.#parents (list)) $profile.random)
+ [expected (# ! each (has //.#parents (list)) $profile.random)
.let [fs (: (file.System Async)
(file.mock (# file.default separator)))]]
(in (do async.monad
@@ -60,8 +60,8 @@
(/.read async.monad fs (list //.default)))]
(in (# //.equivalence =
(|> expected
- (revised@ //.#sources ..with_default_source)
- (revised@ //.#repositories ..with_default_repository))
+ (revised //.#sources ..with_default_source)
+ (revised //.#repositories ..with_default_repository))
actual)))]
(_.cover' [/.read]
(try.else false verdict)))))))