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/artifact.lux | 20 +++++++++++++++++++-
 1 file changed, 19 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 376f26717..9a4607306 100644
--- a/stdlib/source/test/aedifex/artifact.lux
+++ b/stdlib/source/test/aedifex/artifact.lux
@@ -7,8 +7,17 @@
     {[0 #spec]
      [/
       ["$." equivalence]]}]
+   [control
+    [concurrency
+     [promise (#+ Promise)]]]
+   [data
+    ["." text ("#@." equivalence)]]
    [math
-    ["." random (#+ Random)]]]
+    ["." random (#+ Random)]]
+   [world
+    ["." file]
+    [net
+     ["." uri]]]]
   ["." / #_
    ["#." type]
    ["#." extension]]
@@ -31,6 +40,15 @@
             (_.with-cover [/.equivalence]
               ($equivalence.spec /.equivalence ..random))
 
+            (do random.monad
+              [sample ..random
+               #let [fs (: (file.System Promise)
+                           (file.mock (:: file.default separator)))]]
+              (_.cover [/.uri /.path]
+                       (|> (/.path fs sample)
+                           (text.replace-all uri.separator (:: fs separator))
+                           (text@= (/.uri sample)))))
+            
             /type.test
             /extension.test
             ))))
-- 
cgit v1.2.3