Minor naming & syntax improvements.

1 files changed, 34 insertions, 34 deletions

diff --git a/stdlib/source/test/lux/meta/target/ruby.lux b/stdlib/source/test/lux/meta/target/ruby.lux
index 779af9f0b..f16b93c42 100644
--- a/stdlib/source/test/lux/meta/target/ruby.lux
+++ b/stdlib/source/test/lux/meta/target/ruby.lux
@@ -64,7 +64,7 @@
     [bool random.bit
      float random.frac
      int random.int
-     string (random.upper_case 5)]
+     string (random.upper_cased 5)]
     (all _.and
          (_.coverage [/.nil]
            (..nil /.nil))
@@ -213,9 +213,9 @@
   Test
   (do [! random.monad]
     [expected random.safe_frac
-     field (random.upper_case 5)
+     field (random.upper_cased 5)
      dummy (random.only (|>> (text#= field) not)
-                        (random.upper_case 5))
+                        (random.upper_cased 5))
      .let [field (/.string field)
            dummy (/.string dummy)]]
     (all _.and
@@ -331,11 +331,11 @@
 (def test|io
   Test
   (<| (do [! random.monad]
-        [left (random.upper_case 5)
-         right (random.upper_case 5)
-         $old (at ! each /.local (random.upper_case 1))
-         $new (at ! each /.local (random.upper_case 2))
-         $it (at ! each /.local (random.upper_case 3))
+        [left (random.upper_cased 5)
+         right (random.upper_cased 5)
+         $old (at ! each /.local (random.upper_cased 1))
+         $new (at ! each /.local (random.upper_cased 2))
+         $it (at ! each /.local (random.upper_cased 3))
          .let [expected (format left right)]])
       (all _.and
            (_.for [/.stdout]
@@ -407,9 +407,9 @@
 
      bool random.bit
      float random.frac
-     string (random.upper_case 5)
+     string (random.upper_cased 5)
 
-     comment (random.upper_case 10)]
+     comment (random.upper_cased 10)]
     (all _.and
          ..test|bool
          ..test|float
@@ -434,8 +434,8 @@
   Test
   (do [! random.monad]
     [float/0 random.safe_frac
-     $global (at ! each /.global (random.lower_case 10))
-     pattern (at ! each /.string (random.lower_case 11))]
+     $global (at ! each /.global (random.lower_cased 10))
+     pattern (at ! each /.string (random.lower_cased 11))]
     (all _.and
          (_.coverage [/.global]
            (expression (|>> (as Text) (text#= "global-variable"))
@@ -488,7 +488,7 @@
   Test
   (do [! random.monad]
     [float/0 random.safe_frac
-     $foreign (at ! each /.local (random.lower_case 10))]
+     $foreign (at ! each /.local (random.lower_cased 10))]
     (all _.and
          (_.coverage [/.local]
            (expression (|>> (as Frac) (f.= (f.+ float/0 float/0)))
@@ -605,12 +605,12 @@
 (def test|variadic
   Test
   (do [! random.monad]
-    [$inputs (at ! each /.local (random.lower_case 10))
+    [$inputs (at ! each /.local (random.lower_cased 10))
      arity (at ! each (n.% 10) random.nat)
      vals (|> random.int
               (at ! each /.int)
               (random.list arity))
-     keys (|> (random.lower_case 1)
+     keys (|> (random.lower_cased 1)
               (random.set text.hash arity)
               (at ! each (|>> set.list (list#each /.string))))]
     (all _.and
@@ -638,9 +638,9 @@
   Test
   (do [! random.monad]
     [float/0 random.safe_frac
-     $foreign (at ! each /.local (random.lower_case 10))
+     $foreign (at ! each /.local (random.lower_cased 10))
 
-     $constant (at ! each /.constant (random.lower_case 10))]
+     $constant (at ! each /.constant (random.lower_cased 10))]
     (all _.and
          (_.coverage [/.defined?/1]
            (and (expression (|>> (as Bit))
@@ -675,8 +675,8 @@
   Test
   (do [! random.monad]
     [float/0 random.safe_frac
-     $foreign (at ! each /.local (random.lower_case 10))
-     field (at ! each /.string (random.upper_case 10))]
+     $foreign (at ! each /.local (random.lower_cased 10))
+     field (at ! each /.string (random.upper_cased 10))]
     (all _.and
          (<| (_.for [/.Var])
              ..test|var)
@@ -826,8 +826,8 @@
     [expected random.safe_frac
      dummy (random.only (|>> (f.= expected) not)
                         random.safe_frac)
-     error (random.lower_case 10)
-     $ex (at ! each /.local (random.lower_case 10))
+     error (random.lower_cased 10)
+     $ex (at ! each /.local (random.lower_cased 10))
 
      expected_tag ..random_tag
      dummy_tag (random.only (|>> (i.= expected_tag) not)
@@ -906,16 +906,16 @@
   Test
   (do [! random.monad]
     [iterations (at ! each (n.% 10) random.nat)
-     $self (at ! each /.local (random.lower_case 1))
-     field (random.lower_case 3)
-     $class (at ! each /.local (random.upper_case 4))
+     $self (at ! each /.local (random.lower_cased 1))
+     field (random.lower_cased 3)
+     $class (at ! each /.local (random.upper_cased 4))
 
      float/0 random.safe_frac
      float/1 random.safe_frac
      float/2 random.safe_frac
-     $arg/0 (at ! each /.local (random.lower_case 10))
-     $arg/1 (at ! each /.local (random.lower_case 11))
-     $arg/2 (at ! each /.local (random.lower_case 12))]
+     $arg/0 (at ! each /.local (random.lower_cased 10))
+     $arg/1 (at ! each /.local (random.lower_cased 11))
+     $arg/2 (at ! each /.local (random.lower_cased 12))]
     (all _.and
          (_.coverage [/.lambda /.return]
            (and (expression (|>> (as Frac) (f.= float/0))
@@ -959,12 +959,12 @@
     [float/0 random.safe_frac
      float/1 random.safe_frac
      float/2 random.safe_frac
-     arg/0 (random.lower_case 10)
+     arg/0 (random.lower_cased 10)
      arg/1 (random.only (|>> (text#= arg/0) not)
-                        (random.lower_case 10))
+                        (random.lower_cased 10))
      arg/2 (random.only (predicate.and (|>> (text#= arg/0) not)
                                        (|>> (text#= arg/1) not))
-                        (random.lower_case 10))
+                        (random.lower_cased 10))
      .let [$arg/0 (/.local arg/0)
            $arg/1 (/.local arg/1)
            $arg/2 (/.local arg/2)]
@@ -993,9 +993,9 @@
     [float/0 random.safe_frac
      float/1 random.safe_frac
      float/2 random.safe_frac
-     $arg/0 (at ! each /.local (random.lower_case 10))
-     $arg/1 (at ! each /.local (random.lower_case 11))
-     $arg/2 (at ! each /.local (random.lower_case 12))
+     $arg/0 (at ! each /.local (random.lower_cased 10))
+     $arg/1 (at ! each /.local (random.lower_cased 11))
+     $arg/2 (at ! each /.local (random.lower_cased 12))
      expected (at ! each (|>> %.int (text.replaced "+" ""))
                   random.int)]
     (all _.and
@@ -1036,7 +1036,7 @@
                          (random#each /.bool random.bit)
                          (random#each /.float random.frac)
                          (random#each /.int random.int)
-                         (random#each /.string (random.lower_case 5))
+                         (random#each /.string (random.lower_cased 5))
                          ))]
     (all random.either
          literal