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/dependency/deployment.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index fee8caf9d..2eeb0abb8 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -1,7 +1,6 @@
 (.require
  [library
   [lux (.except)
-   ["_" test (.only Test)]
    [abstract
     [monad (.only do)]
     ["[0]" hash (.only Hash)]]
@@ -31,7 +30,9 @@
      ["[0]" http
       ["[1]" client]
       ["[1]/[0]" status]
-      ["@[1]" /]]]]]]
+      ["@[1]" /]]]]
+   ["_" test (.only Test)
+    ["[0]" unit]]]]
  ["$[0]" // (.only)
   ["[1]/" //
    ["[1][0]" package]]]
@@ -159,7 +160,7 @@
                (in (do async.monad
                      [?outcome (/.one repository dependency package)
                       cache (async.future (atom.read! cache))]
-                     (_.coverage' [/.one]
+                     (unit.coverage [/.one]
                        (|> ?outcome
                            (try#each (verify_one 1 address package cache expected_artifact))
                            (try.else false))))))
@@ -182,7 +183,7 @@
                (in (do async.monad
                      [?outcome (/.all repository resolution)
                       cache (async.future (atom.read! cache))]
-                     (_.coverage' [/.all]
+                     (unit.coverage [/.all]
                        (|> ?outcome
                            (try#each (function (_ actual_artifacts)
                                        (let [expected_deployments!
-- 
cgit v1.2.3