diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/math/modulus.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/math/modulus.lux b/stdlib/source/test/lux/math/modulus.lux index c1f61a289..49c406b9b 100644 --- a/stdlib/source/test/lux/math/modulus.lux +++ b/stdlib/source/test/lux/math/modulus.lux @@ -23,7 +23,7 @@ (syntax (_ []) (do meta.monad [divisor meta.seed] - (in (list (code.int (case divisor + (in (list (code.int (when divisor 0 +1 _ (.int divisor)))))))) @@ -43,14 +43,14 @@ dividend random.int] (all _.and (_.coverage [/.modulus /.divisor] - (case (/.modulus divisor) + (when (/.modulus divisor) {try.#Success modulus} (i.= divisor (/.divisor modulus)) {try.#Failure error} (i.= +0 divisor))) (_.coverage [/.zero_cannot_be_a_modulus] - (case (/.modulus +0) + (when (/.modulus +0) {try.#Failure error} (exception.match? /.zero_cannot_be_a_modulus error) |