From bfacc0c96e56eedf788aba44bd8ad2848a35c390 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 16 Jul 2021 02:23:00 -0400
Subject: Fixed some inconsistent naming.

---
 stdlib/source/test/aedifex/artifact.lux | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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

diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux
index 6afbbf27c..ce0af7e7f 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -6,7 +6,9 @@
      [monad (#+ do)]
      [hash (#+ Hash)]
      [\\specification
-      ["$." equivalence]]]
+      ["$." equivalence]
+      ["$." order]
+      ["$." hash]]]
     [control
      [concurrency
       [promise (#+ Promise)]]]
@@ -37,11 +39,21 @@
 (def: #export test
   Test
   (<| (_.covering /._)
+      (do random.monad
+        [sample ..random])
       (_.for [/.Group /.Name /.Version
               /.Artifact]
              ($_ _.and
                  (_.for [/.equivalence]
                         ($equivalence.spec /.equivalence ..random))
+                 (_.for [/.order]
+                        ($order.spec /.order ..random))
+                 (_.for [/.hash]
+                        ($hash.spec /.hash ..random))
+
+                 (_.cover [/.format /.identity]
+                          (and (text.ends_with? (/.identity sample) (/.format sample))
+                               (not (text\= (/.identity sample) (/.format sample)))))
                  
                  /extension.test
                  /snapshot.test
-- 
cgit v1.2.3