diff options
Diffstat (limited to 'stdlib/source/test/aedifex/artifact/build.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/artifact/build.lux | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/stdlib/source/test/aedifex/artifact/build.lux b/stdlib/source/test/aedifex/artifact/build.lux deleted file mode 100644 index d0920b44c..000000000 --- a/stdlib/source/test/aedifex/artifact/build.lux +++ /dev/null @@ -1,34 +0,0 @@ -(.module: - [lux #* - ["_" test (#+ Test)] - [abstract - [monad (#+ do)] - {[0 #spec] - [/ - ["$." equivalence]]}] - [control - ["." try ("#\." functor)] - [parser - ["<.>" xml]]] - [math - ["." random]]] - {#program - ["." /]}) - -(def: #export test - Test - (<| (_.covering /._) - (_.for [/.Build] - ($_ _.and - (_.for [/.equivalence] - ($equivalence.spec /.equivalence random.nat)) - - (do random.monad - [expected random.nat] - (_.cover [/.format /.parser] - (|> expected - /.format - (<xml>.run /.parser) - (try\map (\ /.equivalence = expected)) - (try.default false)))) - )))) |