From eea741e9b4a47ae09832311d6d61f0bd6024f673 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 02:59:48 -0400
Subject: Easy to use Rev constants.

---
 stdlib/source/test/aedifex/local.lux | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 stdlib/source/test/aedifex/local.lux

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

diff --git a/stdlib/source/test/aedifex/local.lux b/stdlib/source/test/aedifex/local.lux
new file mode 100644
index 000000000..a883f565e
--- /dev/null
+++ b/stdlib/source/test/aedifex/local.lux
@@ -0,0 +1,36 @@
+(.module:
+  [lux #*
+   ["_" test (#+ Test)]
+   [abstract
+    [monad (#+ do)]]
+   [control
+    [concurrency
+     [promise (#+ Promise)]]]
+   [data
+    ["." text]]
+   [math
+    ["." random (#+ Random)]]
+   [world
+    ["." file]]]
+  [//
+   ["@." artifact]]
+  {#program
+   ["." /
+    ["/#" // #_
+     ["#." artifact]]]})
+
+(def: #export test
+  Test
+  (<| (_.covering /._)
+      (do {@ random.monad}
+        [sample @artifact.random
+         #let [fs (: (file.System Promise)
+                     (file.mock (:: file.default separator)))]]
+        ($_ _.and
+            (_.cover [/.repository /.path]
+                     (let [path (/.path fs sample)]
+                       (and (text.starts-with? (/.repository fs)
+                                               path)
+                            (text.ends-with? (//artifact.path fs sample)
+                                             path))))
+            ))))
-- 
cgit v1.2.3