diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/pom.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/pom.lux | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index 408debea6..d63641e04 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -19,14 +19,18 @@ ["." random (#+ Random)]] [world ["." file (#+ File)]]] - [/// - ["@." profile]] + [// + ["@." version] + [// + ["@." profile]]] {#program ["." / - ["//#" /// #_ - ["#" profile] - ["#." action] - ["#." pom]]]}) + ["/#" // #_ + ["#." clean] + ["/#" // #_ + ["#" profile] + ["#." action] + ["#." pom]]]]}) (def: #export test Test @@ -35,7 +39,8 @@ [sample @profile.random #let [fs (file.mock (\ file.default separator))]] (wrap (do {! promise.monad} - [outcome (/.do! fs sample)] + [#let [console (@version.echo "")] + outcome (/.do! console fs sample)] (case outcome (#try.Success path) (do ! @@ -47,12 +52,17 @@ (file.get-file promise.monad fs path)) actual (!.use (\ file content) []) + logging! (\ ///action.monad map + (text\= //clean.success) + (!.use (\ console read-line) [])) + #let [expected-path! (text\= ///pom.file path) expected-content! (\ binary.equivalence = expected actual)]] - (wrap (and expected-path! + (wrap (and logging! + expected-path! expected-content!)))] (_.cover' [/.do!] (try.default false verdict))) |