diff options
Diffstat (limited to 'stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux')
| -rw-r--r-- | stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux index 362d94927..21c47404c 100644 --- a/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux +++ b/stdlib/source/test/lux/tool/compiler/language/lux/analysis/coverage.lux @@ -61,8 +61,8 @@ cases (random.set n.hash cases ..random_tag)] (|> cases set.list - (monad.each ! (function (_ case) (# ! each (|>> [case]) again))) - (# ! each (dictionary.of_list n.hash)))) + (monad.each ! (function (_ case) (at ! each (|>> [case]) again))) + (at ! each (dictionary.of_list n.hash)))) ) (random.and again again) (random.and again again) @@ -98,7 +98,7 @@ )) (do [! random.monad] - [tag (# ! each ++ ..random_tag) + [tag (at ! each ++ ..random_tag) right? random.bit .let [lefts (//complex.lefts right? tag)] [sub_coverage sub_pattern] again] @@ -205,7 +205,7 @@ [[expected/0 pattern/0] ..random_partial_pattern [expected/1 pattern/1] (random.only (|>> product.left (/#= expected/0) not) ..random_partial_pattern) - expected_maximum (# ! each (n.+ 2) ..random_tag) + expected_maximum (at ! each (n.+ 2) ..random_tag) .let [random_tag (random#each (n.% expected_maximum) random.nat)] tag/0 random_tag tag/1 (random.only (|>> (n.= tag/0) not) random_tag) @@ -252,7 +252,7 @@ frac random.frac text (random.unicode 1) - arity (# ! each (n.+ 2) ..random_tag) + arity (at ! each (n.+ 2) ..random_tag) .let [random_tag (random#each (n.% arity) random.nat)] tag/0 random_tag tag/1 (random.only (|>> (n.= tag/0) not) random_tag)] |