From 0205e5146b50ab066d152fccda0fc8cef4eef852 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 3 Dec 2020 02:09:57 -0400
Subject: Detect duplicate files coming from dependencies.

---
 stdlib/source/test/aedifex/command/pom.lux | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/pom.lux')

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)))
-- 
cgit v1.2.3