diff options
| author | Eduardo Julian | 2016-12-18 10:55:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-12-18 10:55:23 -0400 |
| commit | b1760e341e27fff9df97e2ce82336f284577144a (patch) | |
| tree | a48d971751d83ee2233db15c890d806970e4bf77 | |
| parent | a60af2d673ef6b3c7090e454a1edc59838f3540d (diff) | |
- Fixed a bug in a test that was (sometimes) causing division-by-zero.
| -rw-r--r-- | stdlib/test/test/lux/math.lux | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/test/test/lux/math.lux b/stdlib/test/test/lux/math.lux index ccf9274a2..c499118b7 100644 --- a/stdlib/test/test/lux/math.lux +++ b/stdlib/test/test/lux/math.lux @@ -83,7 +83,7 @@ (|> sample &;exp &;log (r.= sample)))) (test: "Greatest-Common-Divisor and Least-Common-Multiple" - [#let [gen-nat (|> R;nat (:: @ map (|>. (n.max +1) (n.% +1000))))] + [#let [gen-nat (|> R;nat (:: @ map (|>. (n.% +1000) (n.max +1))))] x gen-nat y gen-nat] ($_ (assert "GCD" |