diff options
| author | Eduardo Julian | 2017-11-21 16:09:07 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-21 16:09:07 -0400 |
| commit | e37e3713e080606930a5f8442f03dabc4c26a7f9 (patch) | |
| tree | ad772c1801af0d01dc105bccf85703f13b127e50 /stdlib/test/test/lux.lux | |
| parent | 3eabc421e559e7e2f903e06eb6b47a2ee0cd25b9 (diff) | |
- Fixed some bugs.
- Some small refactoring.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux index 22190bd93..addc7a33a 100644 --- a/stdlib/test/test/lux.lux +++ b/stdlib/test/test/lux.lux @@ -136,10 +136,10 @@ (|> x' (/ y) (* y) (= x')))) ))))] - ["Nat" r;nat n.= n.+ n.- n.* n./ n.% n.> +0 +1 +1000000 %n (n.% +1000) id] - ["Int" r;int i.= i.+ i.- i.* i./ i.% i.> 0 1 1000000 %i (i.% 1000) id] - ["Frac" r;frac f.= f.+ f.- f.* f./ f.% f.> 0.0 1.0 1000000.0 %r id math;floor] - ["Deg" r;deg d.= d.+ d.- d.* d./ d.% d.> .0 ("lux deg max-value") ("lux deg max-value") %f id id] + ["Nat" r;nat n.= n.+ n.- n.* n./ n.% n.> +0 +1 +1000000 %n (n.% +1000) id] + ["Int" r;int i.= i.+ i.- i.* i./ i.% i.> 0 1 1000000 %i (i.% 1000) id] + ["Frac" r;frac f.= f.+ f.- f.* f./ f.% f.> 0.0 1.0 1000000.0 %r id math;floor] + ["Deg" r;deg d.= d.+ d.- d.* d./ d.% d.> .0 ("lux deg max") ("lux deg max") %f id id] ) (do-template [category rand-gen -> <- = <cap> %a %z] |