diff options
author | Eduardo Julian | 2021-07-20 16:19:43 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-07-20 16:19:43 -0400 |
commit | 461a6ce673de9b2c3d77714c4884c2a316fe7e8f (patch) | |
tree | 9522fbf422dea7935ca167f425c8bacce0f76b63 /stdlib/source/test/lux.lux | |
parent | a1c192d175f13cdb3e69b3ca5985d0d5ecf0fe93 (diff) |
Updated the Scriptum documentation generator.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux.lux | 22 |
1 files changed, 22 insertions, 0 deletions
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 ))) |