From 461a6ce673de9b2c3d77714c4884c2a316fe7e8f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 20 Jul 2021 16:19:43 -0400
Subject: Updated the Scriptum documentation generator.

---
 stdlib/source/test/lux.lux | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index e7ad9d03c..cbc63d90d 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -711,6 +711,27 @@
                                (n.= expected/s)))))
         )))
 
+(def: for_associative
+  Test
+  (do random.monad
+    [left (random.ascii/lower 1)
+     mid (random.ascii/lower 1)
+     right (random.ascii/lower 1)
+     #let [expected (text.join_with "" (list left mid right))]]
+    (_.cover [/.$_ /._$]
+             (with_expansions [<left_association> (/._$ format
+                                                        left
+                                                        mid
+                                                        right)
+                               <right_association> (/.$_ format
+                                                         left
+                                                         mid
+                                                         right)]
+               (and (text\= <left_association>
+                            <right_association>)
+                    (not (code\= (' <left_association>)
+                                 (' <right_association>))))))))
+
 (def: test
   Test
   (<| (_.covering /._)
@@ -738,6 +759,7 @@
           ..for_template
           ..for_static
           ..for_slot
+          ..for_associative
           
           ..sub_tests
           )))
-- 
cgit v1.2.3