diff options
Diffstat (limited to 'stdlib/source/test/lux/target/ruby.lux')
| -rw-r--r-- | stdlib/source/test/lux/target/ruby.lux | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/stdlib/source/test/lux/target/ruby.lux b/stdlib/source/test/lux/target/ruby.lux index b3324189d..2774aa58a 100644 --- a/stdlib/source/test/lux/target/ruby.lux +++ b/stdlib/source/test/lux/target/ruby.lux @@ -63,7 +63,7 @@ [bool random.bit float random.frac int random.int - string (random.ascii/upper 5)] + string (random.upper_case 5)] (all _.and (_.cover [/.nil] (..nil /.nil)) @@ -212,9 +212,9 @@ Test (do [! random.monad] [expected random.safe_frac - field (random.ascii/upper 5) + field (random.upper_case 5) dummy (random.only (|>> (text#= field) not) - (random.ascii/upper 5)) + (random.upper_case 5)) .let [field (/.string field) dummy (/.string dummy)]] (all _.and @@ -330,11 +330,11 @@ (def: test|io Test (<| (do [! random.monad] - [left (random.ascii/upper 5) - right (random.ascii/upper 5) - $old (# ! each /.local (random.ascii/upper 1)) - $new (# ! each /.local (random.ascii/upper 2)) - $it (# ! each /.local (random.ascii/upper 3)) + [left (random.upper_case 5) + right (random.upper_case 5) + $old (# ! each /.local (random.upper_case 1)) + $new (# ! each /.local (random.upper_case 2)) + $it (# ! each /.local (random.upper_case 3)) .let [expected (format left right)]]) (all _.and (_.for [/.stdout] @@ -406,9 +406,9 @@ bool random.bit float random.frac - string (random.ascii/upper 5) + string (random.upper_case 5) - comment (random.ascii/upper 10)] + comment (random.upper_case 10)] (all _.and ..test|bool ..test|float @@ -433,8 +433,8 @@ Test (do [! random.monad] [float/0 random.safe_frac - $global (# ! each /.global (random.ascii/lower 10)) - pattern (# ! each /.string (random.ascii/lower 11))] + $global (# ! each /.global (random.lower_case 10)) + pattern (# ! each /.string (random.lower_case 11))] (all _.and (_.cover [/.global] (expression (|>> (as Text) (text#= "global-variable")) @@ -487,7 +487,7 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.ascii/lower 10))] + $foreign (# ! each /.local (random.lower_case 10))] (all _.and (_.cover [/.local] (expression (|>> (as Frac) (f.= (f.+ float/0 float/0))) @@ -604,12 +604,12 @@ (def: test|variadic Test (do [! random.monad] - [$inputs (# ! each /.local (random.ascii/lower 10)) + [$inputs (# ! each /.local (random.lower_case 10)) arity (# ! each (n.% 10) random.nat) vals (|> random.int (# ! each /.int) (random.list arity)) - keys (|> (random.ascii/lower 1) + keys (|> (random.lower_case 1) (random.set text.hash arity) (# ! each (|>> set.list (list#each /.string))))] (all _.and @@ -637,9 +637,9 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.ascii/lower 10)) + $foreign (# ! each /.local (random.lower_case 10)) - $constant (# ! each /.constant (random.ascii/lower 10))] + $constant (# ! each /.constant (random.lower_case 10))] (all _.and (_.cover [/.defined?/1] (and (expression (|>> (as Bit)) @@ -674,8 +674,8 @@ Test (do [! random.monad] [float/0 random.safe_frac - $foreign (# ! each /.local (random.ascii/lower 10)) - field (# ! each /.string (random.ascii/upper 10))] + $foreign (# ! each /.local (random.lower_case 10)) + field (# ! each /.string (random.upper_case 10))] (all _.and (<| (_.for [/.Var]) ..test|var) @@ -825,8 +825,8 @@ [expected random.safe_frac dummy (random.only (|>> (f.= expected) not) random.safe_frac) - error (random.ascii/lower 10) - $ex (# ! each /.local (random.ascii/lower 10)) + error (random.lower_case 10) + $ex (# ! each /.local (random.lower_case 10)) expected_tag ..random_tag dummy_tag (random.only (|>> (i.= expected_tag) not) @@ -905,16 +905,16 @@ Test (do [! random.monad] [iterations (# ! each (n.% 10) random.nat) - $self (# ! each /.local (random.ascii/lower 1)) - field (random.ascii/lower 3) - $class (# ! each /.local (random.ascii/upper 4)) + $self (# ! each /.local (random.lower_case 1)) + field (random.lower_case 3) + $class (# ! each /.local (random.upper_case 4)) float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.local (random.ascii/lower 10)) - $arg/1 (# ! each /.local (random.ascii/lower 11)) - $arg/2 (# ! each /.local (random.ascii/lower 12))] + $arg/0 (# ! each /.local (random.lower_case 10)) + $arg/1 (# ! each /.local (random.lower_case 11)) + $arg/2 (# ! each /.local (random.lower_case 12))] (all _.and (_.cover [/.lambda /.return] (and (expression (|>> (as Frac) (f.= float/0)) @@ -958,12 +958,12 @@ [float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - arg/0 (random.ascii/lower 10) + arg/0 (random.lower_case 10) arg/1 (random.only (|>> (text#= arg/0) not) - (random.ascii/lower 10)) + (random.lower_case 10)) arg/2 (random.only (predicate.and (|>> (text#= arg/0) not) (|>> (text#= arg/1) not)) - (random.ascii/lower 10)) + (random.lower_case 10)) .let [$arg/0 (/.local arg/0) $arg/1 (/.local arg/1) $arg/2 (/.local arg/2)] @@ -992,9 +992,9 @@ [float/0 random.safe_frac float/1 random.safe_frac float/2 random.safe_frac - $arg/0 (# ! each /.local (random.ascii/lower 10)) - $arg/1 (# ! each /.local (random.ascii/lower 11)) - $arg/2 (# ! each /.local (random.ascii/lower 12)) + $arg/0 (# ! each /.local (random.lower_case 10)) + $arg/1 (# ! each /.local (random.lower_case 11)) + $arg/2 (# ! each /.local (random.lower_case 12)) expected (# ! each (|>> %.int (text.replaced "+" "")) random.int)] (all _.and @@ -1035,7 +1035,7 @@ (random#each /.bool random.bit) (random#each /.float random.frac) (random#each /.int random.int) - (random#each /.string (random.ascii/lower 5)) + (random#each /.string (random.lower_case 5)) ))] (all random.either literal |