diff options
| author | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
| commit | 442d1557b879a8a4bd76f441f72a17bfb71cf05f (patch) | |
| tree | 7726138a487b3d64081c2cfdf99a564cf2b6ed7b /stdlib/source/test/aedifex/dependency | |
| parent | 2c99b4515447315d76a8dc203a2dbcafc09506ea (diff) | |
Now allowing compilers to generate custom-named outputs.
Diffstat (limited to 'stdlib/source/test/aedifex/dependency')
| -rw-r--r-- | stdlib/source/test/aedifex/dependency/status.lux | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/stdlib/source/test/aedifex/dependency/status.lux b/stdlib/source/test/aedifex/dependency/status.lux index f886c031f..64bb2f642 100644 --- a/stdlib/source/test/aedifex/dependency/status.lux +++ b/stdlib/source/test/aedifex/dependency/status.lux @@ -3,8 +3,12 @@ [lux #* ["_" test (#+ Test)] [abstract + [monad (#+ do)] [\\specification ["$." equivalence]]] + [data + ["." binary #_ + ["#T" \\test]]] [math ["." random (#+ Random) ("#\." monad)]]]] ["$." /// #_ @@ -31,4 +35,14 @@ ($_ _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) + + (do random.monad + [payload (binaryT.random 1)] + (_.cover [/.verified] + (case (/.verified payload) + (#/.Verified sha1 md5) + true + + _ + false))) )))) |