1 files changed, 32 insertions, 0 deletions
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
+          )))