diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/type/unit.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index 9557d522d..32e2922a6 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -101,7 +101,7 @@ (\ ! map (i.% +1,000)) (\ ! map (i.* +1,000,000,000)) (\ ! map (\ /.meter in))) - #let [(^open "meter\.") (: (Equivalence (/.Qty /.Meter)) + .let [(^open "meter\.") (: (Equivalence (/.Qty /.Meter)) /.equivalence)] unscaled (|> random.int (\ ! map (i.% +1,000)) @@ -135,11 +135,11 @@ [/.Micro /.micro] [/.Nano /.nano] )) - (_.cover [/.re_scale] + (_.cover [/.re_scaled] (|> large (: (/.Qty /.Meter)) (\ /.kilo scale) (: (/.Qty (/.Kilo /.Meter))) - (/.re_scale /.kilo /.milli) (: (/.Qty (/.Milli /.Meter))) - (/.re_scale /.milli /.kilo) (: (/.Qty (/.Kilo /.Meter))) + (/.re_scaled /.kilo /.milli) (: (/.Qty (/.Milli /.Meter))) + (/.re_scaled /.milli /.kilo) (: (/.Qty (/.Kilo /.Meter))) (\ /.kilo de_scale) (: (/.Qty /.Meter)) (meter\= large))) (_.cover [/.scale:] @@ -155,7 +155,7 @@ (def: arithmetic Test (do random.monad - [#let [zero (\ /.meter in +0) + [.let [zero (\ /.meter in +0) (^open "meter\.") (: (Equivalence (/.Qty /.Meter)) /.equivalence)] left (random.only (|>> (meter\= zero) not) (..meter 1,000)) |