From a4b64bf1cdf47160b6b615d2c6493039abfd7a94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 28 Jul 2022 17:39:01 -0400
Subject: Extracted unit-testing machinery into its own module.

---
 stdlib/source/test/aedifex/command/install.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 3221f640a..930cc17f4 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -1,7 +1,6 @@
 (.require
  [library
   [lux (.except)
-   ["_" test (.only Test)]
    [abstract
     ["[0]" monad (.only do)]]
    [control
@@ -21,7 +20,9 @@
     ["[0]" random]]
    [world
     ["[0]" file]
-    ["[0]" program (.only Program)]]]]
+    ["[0]" program (.only Program)]]
+   ["_" test (.only Test)
+    ["[0]" unit]]]]
  [//
   ["$[0]" version]
   [//
@@ -91,13 +92,13 @@
                               (in (and succeeded!
                                        library_exists!
                                        pom_exists!)))]
-                   (_.coverage' [/.do! /.success]
+                   (unit.coverage [/.do! /.success]
                      (try.else false verdict))))
              (in (do [! async.monad]
                    [.let [fs (file.mock /)
                           program (program.async (program.mock environment.empty home working_directory))]
                     logging (..execute! program fs (has ///.#identity {.#None} sample))]
-                   (_.coverage' [/.failure]
+                   (unit.coverage [/.failure]
                      (|> logging
                          (try#each (text#= /.failure))
                          (try.else false)))))
-- 
cgit v1.2.3