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

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 515ca42b7..9dbb8405b 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -1,7 +1,6 @@
 (.require
  [library
   [lux (.except Type)
-   ["_" test (.only Test)]
    [abstract
     ["[0]" monad (.only do)]]
    [control
@@ -25,7 +24,9 @@
      ["n" nat]]]
    [world
     ["[0]" file]
-    ["[0]" program]]]]
+    ["[0]" program]]
+   ["_" test (.only Test)
+    ["[0]" unit]]]]
  [//
   ["@[0]" profile]
   ["@[0]" artifact]
@@ -111,7 +112,7 @@
     (in (do async.monad
           [wrote! (/.write_one program fs dependency expected_package)
            read! (/.read_one program fs dependency)]
-          (_.coverage' [/.write_one /.read_one]
+          (unit.coverage [/.write_one /.read_one]
             (<| (try.else false)
                 (do try.monad
                   [_ wrote!
@@ -132,7 +133,7 @@
     (in (do async.monad
           [wrote! (/.write_all program fs expected)
            read! (/.read_all program fs (dictionary.keys expected) //dependency/resolution.empty)]
-          (_.coverage' [/.write_all /.read_all]
+          (unit.coverage [/.write_all /.read_all]
             (<| (try.else false)
                 (do try.monad
                   [_ wrote!
-- 
cgit v1.2.3