diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/data/text/format.lux | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stdlib/source/test/lux/data/text/format.lux b/stdlib/source/test/lux/data/text/format.lux index a8004f919..cfad7f524 100644 --- a/stdlib/source/test/lux/data/text/format.lux +++ b/stdlib/source/test/lux/data/text/format.lux @@ -31,6 +31,7 @@ ["." date]] [math ["." random (#+ Random) ("#\." monad)] + ["." modulus] ["." modular]] [macro ["." code]] @@ -152,10 +153,10 @@ list (/.list (|>>)))))) (do {! random.monad} - [modulus (random.one (|>> modular.from-int + [modulus (random.one (|>> modulus.modulus try.to-maybe) random.int) - sample (\ ! map (modular.mod modulus) + sample (\ ! map (modular.modular modulus) random.int)] (_.cover [/.mod] (text\= (\ (modular.codec modulus) encode sample) |