diff options
| author | Eduardo Julian | 2020-12-03 02:09:57 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-03 02:09:57 -0400 |
| commit | 0205e5146b50ab066d152fccda0fc8cef4eef852 (patch) | |
| tree | da2d89132da8f09344e26db78d0e43ca1095ee7f /stdlib/source/test/aedifex/command/pom.lux | |
| parent | 28c724857d76afdc40b5b036f415cc151eb66263 (diff) | |
Detect duplicate files coming from dependencies.
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))) |