From 71ade9a07f08c0d61ebd70e64c2745f1ba33cb54 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 12 Dec 2020 01:40:48 -0400
Subject: Removed several unnecessary imports.

---
 stdlib/source/test/aedifex/metadata.lux   | 32 +++++++++++++++++++++++++++++++
 stdlib/source/test/aedifex/repository.lux |  9 +++++----
 2 files changed, 37 insertions(+), 4 deletions(-)
 create mode 100644 stdlib/source/test/aedifex/metadata.lux

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/metadata.lux b/stdlib/source/test/aedifex/metadata.lux
new file mode 100644
index 000000000..5b8b47b00
--- /dev/null
+++ b/stdlib/source/test/aedifex/metadata.lux
@@ -0,0 +1,32 @@
+(.module:
+  [lux #*
+   ["_" test (#+ Test)]
+   [abstract
+    [monad (#+ do)]]
+   [data
+    ["." text]]
+   [math
+    ["." random]]]
+  ["." / #_
+   ["#." artifact]
+   [//
+    ["@." artifact]]]
+  {#program
+   ["." /]})
+
+(def: #export test
+  Test
+  (<| (_.covering /._)
+      ($_ _.and
+          (<| (_.for [/.file])
+              (do random.monad
+                [sample @artifact.random]
+                ($_ _.and
+                    (_.cover [/.for-project]
+                             (text.ends-with? /.file (/.for-project sample)))
+                    (_.cover [/.for-version]
+                             (text.ends-with? /.file (/.for-version sample)))
+                    )))
+
+          /artifact.test
+          )))
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index 4da17a059..ff669d687 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -2,14 +2,15 @@
   [lux #*
    ["_" test (#+ Test)]
    [abstract
-    ["." hash (#+ Hash)]
-    ["." equivalence (#+ Equivalence)]
+    [equivalence (#+ Equivalence)]
+    [hash (#+ Hash)]
     ["." monad (#+ do)]]
    [control
     ["." io]
     ["." try]
     ["." exception (#+ exception:)]]
    [data
+    ["." product]
     ["." binary (#+ Binary)]
     ["." text
      ["%" format (#+ format)]]
@@ -34,7 +35,7 @@
 
 (def: identity-equivalence
   (Equivalence Identity)
-  (equivalence.product text.equivalence
+  (product.equivalence text.equivalence
                        text.equivalence))
 
 (def: artifact
@@ -43,7 +44,7 @@
 
 (def: item-hash
   (Hash [Artifact Extension])
-  (hash.product //artifact.hash
+  (product.hash //artifact.hash
                 text.hash))
 
 (exception: (not-found {artifact Artifact}
-- 
cgit v1.2.3