diff options
Diffstat (limited to 'stdlib/source/test/aedifex/artifact')
-rw-r--r-- | stdlib/source/test/aedifex/artifact/value.lux | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/stdlib/source/test/aedifex/artifact/value.lux b/stdlib/source/test/aedifex/artifact/value.lux new file mode 100644 index 000000000..10e9016b1 --- /dev/null +++ b/stdlib/source/test/aedifex/artifact/value.lux @@ -0,0 +1,38 @@ +(.module: + [lux #* + ["_" test (#+ Test)] + [abstract + [monad (#+ do)] + {[0 #spec] + [/ + ["$." equivalence]]}] + [control + ["." try ("#\." functor)] + [parser + ["<.>" text]]] + [math + ["." random (#+ Random)] + [number + ["n" nat] + ["i" int]]] + [time + ["." instant]]] + {#program + ["." /]}) + +(def: #export random + (Random /.Value) + ($_ random.and + (random.ascii/alpha 5) + random.instant + random.nat + )) + +(def: #export test + Test + (<| (_.covering /._) + (_.for [/.Build /.Value]) + ($_ _.and + (_.for [/.equivalence] + ($equivalence.spec /.equivalence ..random)) + ))) |