diff options
author | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
commit | 889139602b77e4387a6e8bfbedacc2a08703e976 (patch) | |
tree | 3a113e298037122e81b5529475bd1e59286f733f /stdlib/source/test/aedifex/runtime.lux | |
parent | dbb658bd7976c073a2bf314f194b36b30c45784b (diff) |
Re-named lux/data/format/context to lux/control/parser/environment.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/runtime.lux | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux new file mode 100644 index 000000000..e1c0a77c1 --- /dev/null +++ b/stdlib/source/test/aedifex/runtime.lux @@ -0,0 +1,28 @@ +(.module: + [lux #* + ["_" test (#+ Test)] + [abstract + [monad (#+ do)]] + [data + ["." text]] + [math + ["." random]]] + {#program + ["." /]}) + +(def: #export test + Test + (<| (_.covering /._) + (do random.monad + [path (random.ascii/alpha 5)] + (`` ($_ _.and + (~~ (template [<command>] + [(_.cover [<command>] + (let [command (<command> path)] + (and (text.starts-with? (<command> "") command) + (text.ends-with? path command))))] + + [/.java] + [/.node] + )) + ))))) |