diff options
Diffstat (limited to 'stdlib/source/test/aedifex/dependency')
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/deployment.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/resolution.lux | 12 |
2 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index a99f37ca1..218bbaf07 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -10,7 +10,7 @@ ["." try ("#\." functor)] [concurrency ["." atom (#+ Atom)] - ["." promise]]] + ["." async]]] [data ["." product] ["." maybe ("#\." functor)] @@ -156,9 +156,9 @@ (atom.atom (dictionary.new text.hash))) http (..http cache) repository (repository.async (remote.repository http #.None address))]] - (wrap (do promise.monad + (wrap (do async.monad [?outcome (/.one repository dependency package) - cache (promise.future (atom.read cache))] + cache (async.future (atom.read cache))] (_.cover' [/.one] (|> ?outcome (try\map (verify_one 1 address package cache expected_artifact)) @@ -179,9 +179,9 @@ (atom.atom (dictionary.new text.hash))) http (..http cache) repository (repository.async (remote.repository http #.None address))]] - (wrap (do promise.monad + (wrap (do async.monad [?outcome (/.all repository resolution) - cache (promise.future (atom.read cache))] + cache (async.future (atom.read cache))] (_.cover' [/.all] (|> ?outcome (try\map (function (_ actual_artifacts) diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index 9d1f287c6..ea468f851 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -11,7 +11,7 @@ ["." try] ["." exception] [concurrency - ["." promise]]] + ["." async]]] [data [binary (#+ Binary)] ["." product] @@ -259,7 +259,7 @@ bad_md5 (..bad_md5 expected_artifact expected_package dummy_package)]] (`` ($_ _.and (wrap - (do promise.monad + (do async.monad [actual_package (/.one (///repository.mock good []) {#///dependency.artifact expected_artifact #///dependency.type ///artifact/type.lux_library})] @@ -274,7 +274,7 @@ false)))) (~~ (template [<exception> <bad>] [(wrap - (do promise.monad + (do async.monad [actual_package (/.one (///repository.mock <bad> []) {#///dependency.artifact expected_artifact #///dependency.type ///artifact/type.lux_library})] @@ -306,7 +306,7 @@ bad_md5 (..bad_md5 expected_artifact expected_package dummy_package)]] ($_ _.and (wrap - (do promise.monad + (do async.monad [#let [console ($///version.echo "")] actual_package (/.any console (list (///repository.mock bad_sha-1 []) @@ -324,7 +324,7 @@ (#try.Failure _) false)))) (wrap - (do promise.monad + (do async.monad [#let [console ($///version.echo "")] actual_package (/.any console (list (///repository.mock bad_sha-1 []) @@ -411,7 +411,7 @@ (..packages [dependee_artifact depender_artifact ignored_artifact])] ($_ _.and (wrap - (do promise.monad + (do async.monad [#let [console ($///version.echo "")] [successes failures resolution] (/.all console (list (///repository.mock (..single dependee_artifact dependee_package) []) |