From f621a133e6e0a516c0586270fea8eaffb4829d82 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 8 Aug 2021 17:56:15 -0400
Subject: No more #export magic syntax.

---
 stdlib/source/test/lux.lux | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 9d5f719ed..925894d7b 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -59,10 +59,10 @@
 
 ## TODO: Get rid of this ASAP
 (template: (!bundle body)
-  (: Test
-     (do random.monad
-       [_ (in [])]
-       body)))
+  [(: Test
+      (do random.monad
+        [_ (in [])]
+        body))])
 
 (def: sub_tests
   Test
@@ -580,7 +580,7 @@
                          (actual [expected_left expected_right])))))))
 
 (/.template: (!n/+ <left> <right>)
-  (n.+ <left> <right>))
+  [(n.+ <left> <right>)])
 
 (def: for_template
   Test
@@ -1091,6 +1091,16 @@
                (for_meta|Module_State))
       ))
 
+(def: for_export
+  Test
+  ($_ _.and
+      (_.cover [/.public /.private]
+               (and /.public (not /.private)))
+      (_.cover [/.global /.local]
+               (and (bit\= /.public /.global)
+                    (bit\= /.private /.local)))
+      ))
+
 (def: test
   Test
   (<| (_.covering /._)
@@ -1117,6 +1127,7 @@
           ..for_def:
           ..for_import
           ..for_meta
+          ..for_export
           
           ..sub_tests
           )))
-- 
cgit v1.2.3