diff options
Diffstat (limited to 'stdlib/source/test/lux.lux')
| -rw-r--r-- | stdlib/source/test/lux.lux | 21 |
1 files changed, 16 insertions, 5 deletions
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 ))) |