diff options
Diffstat (limited to 'stdlib/source/test/lux/type/unit.lux')
-rw-r--r-- | stdlib/source/test/lux/type/unit.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/type/unit.lux b/stdlib/source/test/lux/type/unit.lux index a4198429c..048be4d5b 100644 --- a/stdlib/source/test/lux/type/unit.lux +++ b/stdlib/source/test/lux/type/unit.lux @@ -19,7 +19,7 @@ ["[1][0]" scale]]) (with_template [<name> <type> <unit>] - [(def: (<name> range) + [(def (<name> range) (-> Nat (Random (/.Qty Any <type>))) (|> random.int (at random.monad each (i.% (.int range))) @@ -30,7 +30,7 @@ [second /.Second /.second] ) -(def: polymorphism +(def polymorphism Test (all _.and (_.for [/.equivalence] @@ -41,10 +41,10 @@ ($enum.spec /.enum (..meter 1,000))) )) -(def: what (/.unit [])) -(def: What (/.type what)) +(def what (/.unit [])) +(def What (/.type what)) -(def: unit +(def unit Test (do random.monad [expected random.int] @@ -75,7 +75,7 @@ (i.= expected))) ))))) -(def: arithmetic +(def arithmetic Test (do random.monad [.let [zero (at /.meter in +0) @@ -105,7 +105,7 @@ (meter#= right))) )))) -(def: .public test +(def .public test Test (<| (_.covering /._) (_.for [/.Qty]) |