diff options
| author | Eduardo Julian | 2017-11-06 20:51:43 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-06 20:51:43 -0400 |
| commit | 69d3bdf98a5be8dd7aacc0b37bdbfcbf226faf62 (patch) | |
| tree | f4e33556adabef5906d54f142dce694a94e1ce08 /stdlib/test | |
| parent | cab9451961fa25fd6683c1c7bd836941bd84e48b (diff) | |
- Changed how Lux procedures work on the old compiler and the stdlib.
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux.lux | 8 | ||||
| -rw-r--r-- | stdlib/test/test/lux/host.jvm.lux | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux index 9c348720b..4c0d1513f 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_proc ["deg" "max-value"] []) (_lux_proc ["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-value") ("lux deg max-value") %f id id] ) (do-template [category rand-gen -> <- = <cap> %a %z] diff --git a/stdlib/test/test/lux/host.jvm.lux b/stdlib/test/test/lux/host.jvm.lux index 33c9fcf79..d41c587c8 100644 --- a/stdlib/test/test/lux/host.jvm.lux +++ b/stdlib/test/test/lux/host.jvm.lux @@ -6,7 +6,7 @@ (data text/format [number] [product] - [text "Text/" Eq<Text>]) + [text "text/" Eq<Text>]) ["&" host #+ class: interface: object] ["r" math/random]) lux/test) @@ -86,7 +86,7 @@ (&;synchronized "" true)) (test "Can access Class instances." - (Text/= "java.lang.Class" (Class.getName [] (&;class-for java.lang.Class)))) + (text/= "java.lang.Class" (Class.getName [] (&;class-for java.lang.Class)))) (test "Can check if a value is null." (and (&;null? (&;null)) |