From 68d78235694c633c956bb9e8a007cad7d65370bc Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 10 Aug 2022 19:38:43 -0400
Subject: Extracted property-based testing machinery into its own module.

---
 .../specification/compositor/generation/case.lux   | 54 +++++++++++-----------
 1 file changed, 28 insertions(+), 26 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/case.lux')

diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux
index 6ac785a12..ba1168ad0 100644
--- a/stdlib/source/specification/compositor/generation/case.lux
+++ b/stdlib/source/specification/compositor/generation/case.lux
@@ -1,30 +1,32 @@
 (.require
- [lux (.except case)
-  ["_" test (.only Test)]
-  [abstract
-   [monad (.only do)]]
-  [control
-   ["[0]" pipe]
-   ["[0]" try (.only Try)]]
-  [data
-   ["[0]" text (.use "[1]#[0]" equivalence)
-    ["%" \\format (.only format)]]
-   [number
-    ["n" nat]
-    ["f" frac]]
-   [collection
-    ["[0]" list (.use "[1]#[0]" mix)]]]
-  [math
-   ["r" random (.only Random)]]
-  [meta
-   [compiler
-    ["[0]" reference]
-    ["[0]" analysis]
-    ["[0]" synthesis (.only Path Synthesis)]
-    ["[0]" phase
-     ["[1]/[0]" synthesis
-      ["[0]" case]]
-     ["[0]" extension/synthesis]]]]]
+ [library
+  [lux (.except case)
+   [abstract
+    [monad (.only do)]]
+   [control
+    ["[0]" pipe]
+    ["[0]" try (.only Try)]]
+   [data
+    ["[0]" text (.use "[1]#[0]" equivalence)
+     ["%" \\format (.only format)]]
+    [number
+     ["n" nat]
+     ["f" frac]]
+    [collection
+     ["[0]" list (.use "[1]#[0]" mix)]]]
+   [math
+    ["r" random (.only Random)]]
+   [meta
+    [compiler
+     ["[0]" reference]
+     ["[0]" analysis]
+     ["[0]" synthesis (.only Path Synthesis)]
+     ["[0]" phase
+      ["[1]/[0]" synthesis
+       ["[0]" case]]
+      ["[0]" extension/synthesis]]]]
+   [test
+    ["_" property (.only Test)]]]]
  [///
   [common (.only Runner)]])
 
-- 
cgit v1.2.3