diff options
| author | Eduardo Julian | 2020-12-10 22:29:32 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-10 22:29:32 -0400 |
| commit | 9af671a34728b35c48bff2ba163c371dc5084946 (patch) | |
| tree | ec35f32b8f0cabec702708e0e3cc4462b587c752 /stdlib/source/test/lux/world | |
| parent | d747aada2d6df6538d0a88d70169f3757aef50af (diff) | |
Render XML to text in an indented form for human readability.
Diffstat (limited to 'stdlib/source/test/lux/world')
| -rw-r--r-- | stdlib/source/test/lux/world/program.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux index 531ba0095..91484bf50 100644 --- a/stdlib/source/test/lux/world/program.lux +++ b/stdlib/source/test/lux/world/program.lux @@ -23,7 +23,7 @@ (random.ascii/alpha 5) (random.ascii/alpha 5))) -(def: directory +(def: path (Random Path) (random.ascii/alpha 5)) @@ -32,8 +32,9 @@ (<| (_.covering /._) (do random.monad [environment ..environment - directory ..directory] + home ..path + directory ..path] ($_ _.and (_.for [/.mock /.async] - ($/.spec (/.async (/.mock environment directory)))) + ($/.spec (/.async (/.mock environment home directory)))) )))) |