diff options
author | Eduardo Julian | 2021-07-16 02:23:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-07-16 02:23:00 -0400 |
commit | bfacc0c96e56eedf788aba44bd8ad2848a35c390 (patch) | |
tree | 7d5f637d589ac68c645d6d726967d6fac51da15d /stdlib/source/test/aedifex/artifact.lux | |
parent | 0abd5bd3c0e38e352e9ba38268e04e1c858ab01e (diff) |
Fixed some inconsistent naming.
Diffstat (limited to 'stdlib/source/test/aedifex/artifact.lux')
-rw-r--r-- | stdlib/source/test/aedifex/artifact.lux | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/stdlib/source/test/aedifex/artifact.lux b/stdlib/source/test/aedifex/artifact.lux index 6afbbf27c..ce0af7e7f 100644 --- a/stdlib/source/test/aedifex/artifact.lux +++ b/stdlib/source/test/aedifex/artifact.lux @@ -6,7 +6,9 @@ [monad (#+ do)] [hash (#+ Hash)] [\\specification - ["$." equivalence]]] + ["$." equivalence] + ["$." order] + ["$." hash]]] [control [concurrency [promise (#+ Promise)]]] @@ -37,11 +39,21 @@ (def: #export test Test (<| (_.covering /._) + (do random.monad + [sample ..random]) (_.for [/.Group /.Name /.Version /.Artifact] ($_ _.and (_.for [/.equivalence] ($equivalence.spec /.equivalence ..random)) + (_.for [/.order] + ($order.spec /.order ..random)) + (_.for [/.hash] + ($hash.spec /.hash ..random)) + + (_.cover [/.format /.identity] + (and (text.ends_with? (/.identity sample) (/.format sample)) + (not (text\= (/.identity sample) (/.format sample))))) /extension.test /snapshot.test |