1 files changed, 39 insertions, 0 deletions
diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux
new file mode 100644
index 000000000..5dcf6270a
--- /dev/null
+++ b/stdlib/source/test/lux/world/program.lux
@@ -0,0 +1,39 @@
+(.module:
+  [lux #*
+   ["_" test (#+ Test)]
+   [abstract
+    [monad (#+ do)]]
+   [control
+    [parser
+     [environment (#+ Environment)]]]
+   [data
+    ["." text]]
+   [math
+    ["." random (#+ Random)]]]
+  {1
+   ["." /
+    [//
+     [file (#+ Path)]]]}
+  {[1 #spec]
+   ["$." /]})
+
+(def: environment
+  (Random Environment)
+  (random.dictionary text.hash 5
+                     (random.ascii/alpha 5)
+                     (random.ascii/alpha 5)))
+
+(def: directory
+  (Random Path)
+  (random.ascii/alpha 5))
+
+(def: #export test
+  Test
+  (<| (_.covering /._)
+      (do random.monad
+        [environment ..environment
+         directory ..directory]
+        ($_ _.and
+            (_.with-cover [/.mock /.async]
+              ($/.spec (/.async (/.mock environment directory))))
+            ))))