diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/command/deploy.lux | 43 |
1 files changed, 25 insertions, 18 deletions
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 5e4f6615b..773069322 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -30,20 +30,24 @@ [program [compositor ["." export]]] - [/// - ["@." profile] - ["@." repository]] + [// + ["@." version] + [// + ["@." profile] + ["@." repository]]] {#program ["." / - ["//#" /// #_ - ["#" profile] - ["#." action] - ["#." pom] - ["#." local] - ["#." hash] - ["#." repository (#+ Identity Repository)] - ["#." artifact (#+ Artifact) - ["#/." extension]]]]}) + ["/#" // #_ + ["#." clean] + ["/#" // #_ + ["#" profile] + ["#." action] + ["#." pom] + ["#." local] + ["#." hash] + ["#." repository (#+ Identity Repository)] + ["#." artifact (#+ Artifact) + ["#/." extension]]]]]}) (def: (make-sources! fs sources) (-> (file.System Promise) (Set Path) (Promise (Try Any))) @@ -65,12 +69,14 @@ (def: (execute! repository fs identity artifact profile) (-> (Repository Promise) (file.System Promise) Identity Artifact ///.Profile - (Promise (Try Any))) + (Promise (Try Text))) (do ///action.monad - [_ (..make-sources! fs (get@ #///.sources profile)) + [#let [console (@version.echo "")] + _ (..make-sources! fs (get@ #///.sources profile)) _ (: (Promise (Try Path)) - (file.make-directories promise.monad fs (///local.repository fs)))] - (/.do! repository fs identity artifact profile))) + (file.make-directories promise.monad fs (///local.repository fs))) + _ (/.do! console repository fs identity artifact profile)] + (!.use (\ console read-line) []))) (def: #export test Test @@ -90,7 +96,7 @@ fs (file.mock (\ file.default separator))]] (wrap (do {! promise.monad} [verdict (do {! ///action.monad} - [_ (..execute! repository fs identity artifact profile) + [logging (..execute! repository fs identity artifact profile) expected-library (|> profile (get@ #///.sources) set.to-list @@ -121,7 +127,8 @@ (\ binary.equivalence = (///hash.data (///hash.md5 expected-library)) actual-md5)]] - (wrap (and deployed-library! + (wrap (and (text\= //clean.success logging) + deployed-library! deployed-pom! deployed-sha-1! deployed-md5!)))] |