diff options
author | Eduardo Julian | 2021-01-13 17:42:20 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-01-13 17:42:20 -0400 |
commit | ae56acf791c2ed9bd5865f85fffa00b025d310fe (patch) | |
tree | d02c6f67240b27c578b7e8ca17285824eae56497 /stdlib/source/test/aedifex/artifact/build.lux | |
parent | 71de092a045dc70ab1c9eead477cf1512b144a87 (diff) |
Removed the (ultimately redundant) on_stop function for actors.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/artifact/snapshot/build.lux (renamed from stdlib/source/test/aedifex/artifact/build.lux) | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/stdlib/source/test/aedifex/artifact/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux index d0920b44c..e3fdcab62 100644 --- a/stdlib/source/test/aedifex/artifact/build.lux +++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux @@ -11,23 +11,28 @@ [parser ["<.>" xml]]] [math - ["." random]]] + ["." random (#+ Random)]]] {#program ["." /]}) +(def: #export random + (Random /.Build) + random.nat) + (def: #export test Test (<| (_.covering /._) (_.for [/.Build] ($_ _.and (_.for [/.equivalence] - ($equivalence.spec /.equivalence random.nat)) + ($equivalence.spec /.equivalence ..random)) (do random.monad - [expected random.nat] + [expected ..random] (_.cover [/.format /.parser] (|> expected /.format + list (<xml>.run /.parser) (try\map (\ /.equivalence = expected)) (try.default false)))) |