diff options
Diffstat (limited to 'stdlib/source/test/lux/target/ruby.lux')
-rw-r--r-- | stdlib/source/test/lux/target/ruby.lux | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux index 011720095..7c6b3fcf6 100644 --- a/stdlib/source/test/lux/target/ruby.lux +++ b/stdlib/source/test/lux/target/ruby.lux @@ -39,7 +39,7 @@ (ffi.import (eval [Text] "try" "?" Any)) -(def: (expression ??? it) +(def (expression ??? it) (-> (-> Any Bit) /.Expression Bit) (|> it /.code @@ -48,7 +48,7 @@ (maybe.else false))) (try.else false))) -(def: nil +(def nil (-> /.Expression Bit) (|>> /.code ..eval @@ -57,7 +57,7 @@ {.#Some _} false))) (try.else false))) -(def: test|literal +(def test|literal Test (do [! random.monad] [bool random.bit @@ -84,7 +84,7 @@ (/.do "id2name" (list) {.#None} (/.symbol string)))) ))) -(def: test|bool +(def test|bool Test (do [! random.monad] [left random.bit @@ -104,7 +104,7 @@ (/.not (/.bool left)))) )))) -(def: test|float +(def test|float Test (do [! random.monad] [parameter (random.only (|>> (f.= +0.0) not) @@ -138,11 +138,11 @@ )) )))) -(def: int_16 +(def int_16 (-> Int Int) (i64.and (-- (i64.left_shifted 15 1)))) -(def: test|int +(def test|int Test (do [! random.monad] [left random.int @@ -179,7 +179,7 @@ (/.int i16))))) )))) -(def: test|array +(def test|array Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -208,7 +208,7 @@ (/.the "length")))) ))) -(def: test|hash +(def test|hash Test (do [! random.monad] [expected random.safe_frac @@ -227,7 +227,7 @@ (/.= /.nil))))) ))) -(def: test|object +(def test|object Test (do [! random.monad] [size (at ! each (|>> (n.% 10) ++) random.nat) @@ -327,7 +327,7 @@ )) ))) -(def: test|io +(def test|io Test (<| (do [! random.monad] [left (random.upper_case 5) @@ -397,7 +397,7 @@ )) ))) -(def: test|computation +(def test|computation Test (do [! random.monad] [test random.bit @@ -429,7 +429,7 @@ (/.float then)))) ))) -(def: test|global +(def test|global Test (do [! random.monad] [float/0 random.safe_frac @@ -483,7 +483,7 @@ (/.apply_lambda (list))))) ))) -(def: test|local_var +(def test|local_var Test (do [! random.monad] [float/0 random.safe_frac @@ -503,7 +503,7 @@ (/.apply_lambda (list))))) ))) -(def: test|instance_var +(def test|instance_var Test (do [! random.monad] [float/0 random.safe_frac @@ -575,7 +575,7 @@ (/.apply_lambda (list))))) ))) -(def: test|static_var +(def test|static_var Test (do [! random.monad] [int/0 (at ! each (|>> (n.% 10) ++ .int) @@ -601,7 +601,7 @@ (/.apply_lambda (list))))) ))) -(def: test|variadic +(def test|variadic Test (do [! random.monad] [$inputs (at ! each /.local (random.lower_case 10)) @@ -633,7 +633,7 @@ (/.apply_lambda (list (/.double_splat (/.hash (list.zipped_2 keys vals))))))))) ))) -(def: test|var +(def test|var Test (do [! random.monad] [float/0 random.safe_frac @@ -670,7 +670,7 @@ ..test|variadic ))) -(def: test|location +(def test|location Test (do [! random.monad] [float/0 random.safe_frac @@ -699,7 +699,7 @@ )) ))) -(def: test|expression +(def test|expression Test (do [! random.monad] [dummy random.safe_frac @@ -713,7 +713,7 @@ ..test|location) )))) -(def: test|label +(def test|label Test (do [! random.monad] [input (at ! each ..int_16 random.int) @@ -779,7 +779,7 @@ (/.apply_lambda (list (/.int input))))))) ))) -(def: test|loop +(def test|loop Test (do [! random.monad] [input (at ! each (i.right_shifted 32) random.int) @@ -814,12 +814,12 @@ ..test|label ))) -(def: random_tag +(def random_tag (Random Int) (random#each (i64.and (hex "FF,FF,FF,FF")) random.int)) -(def: test|exception +(def test|exception Test (do [! random.monad] [expected random.safe_frac @@ -901,7 +901,7 @@ (/.apply_lambda (list)))))) ))) -(def: test|function +(def test|function Test (do [! random.monad] [iterations (at ! each (n.% 10) random.nat) @@ -952,7 +952,7 @@ (/.apply_lambda (list))))) ))) -(def: test|branching +(def test|branching Test (do [! random.monad] [float/0 random.safe_frac @@ -986,7 +986,7 @@ (/.apply_lambda (list))))) ))) -(def: test|statement +(def test|statement Test (do [! random.monad] [float/0 random.safe_frac @@ -1028,7 +1028,7 @@ ..test|function) ))) -(def: random_expression +(def random_expression (Random /.Expression) (let [literal (is (Random /.Literal) (all random.either @@ -1041,7 +1041,7 @@ literal ))) -(def: .public test +(def .public test Test (do [! random.monad] [expected ..random_expression] |