s/ucfirst/tc/ - ucfirst is going away

Author: coke

S02-lexical-conventions/unicode.t

@@ -83,7 +83,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
 #?mildew skip 'placeholders are NIY'
 {
     is
-        ~(< foostraße barstraße fakestraße >.map: { ucfirst $^straßenname }),
+        ~(< foostraße barstraße fakestraße >.map: { tc $^straßenname }),
         "Foostraße Barstraße Fakestraße",
         "Unicode placeholder variables";
 }
@@ -94,7 +94,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
     class A {
         has $!möp = 'pugs';
         method äöü {
-            $!möp.ucfirst();
+            $!möp.tc();
         }
     }
     is A.new().äöü(), "Pugs", "Unicode methods and attributes";

S03-operators/inplace.t

@@ -44,11 +44,11 @@ plan 28;
 
 my $f = "lowercase"; $f .= uc;
 my $g = "UPPERCASE"; $g .= lc;
-my $h = "lowercase"; $h .= ucfirst;
-my $i = "UPPERCASE"; $i .= lcfirst;
+my $h = "lowercase"; $h .= tc;
+my $i = "UPPERCASE"; $i .= tc;
 is($f, "LOWERCASE", "inplace uc");
 is($g, "uppercase", "inplace lc");
-is($h, "Lowercase", "inplace ucfist");
+is($h, "Lowercase", "inplace tc");
 is($i, "uPPERCASE", "inplace lcfirst");
 
 # L<S12/"Mutating methods">

S04-phasers/rvalue.t

@@ -14,10 +14,10 @@ plan 16;
     is $x, 8, 'BEGIN block as expression';
 
     # test that built-ins are available within a BEGIN block:
-    my $y = BEGIN { ucfirst 'moin' };
+    my $y = BEGIN { tc 'moin' };
     is $y, 'Moin', 'can access built-in functions in BEGIN blocks';
 
-    my $z = BEGIN { 'moin'.ucfirst };
+    my $z = BEGIN { 'moin'.tc };
     is $z, 'Moin', 'can access built-in methods in BEGIN blocks';
 }
 
@@ -27,10 +27,10 @@ plan 16;
     is $x, 8, 'BEGIN statement prefix as expression';
 
     # test that built-ins are available within a BEGIN block:
-    my $y = BEGIN ucfirst 'moin';
+    my $y = BEGIN tc 'moin';
     is $y, 'Moin', 'can access built-in functions in BEGIN statement prefix';
 
-    my $z = BEGIN 'moin'.ucfirst;
+    my $z = BEGIN 'moin'.tc;
     is $z, 'Moin', 'can access built-in methods in BEGIN statement prefix';
 }
 

S32-str/rindex.t

@@ -62,7 +62,7 @@ is(rindex(uc($s), "O"), 7, "rindex on uc");
 is($s.uc.rindex("O"), 7, ".uc.rindex ");
 
 # ideas for deeper chained . calls ?
-is($s.lc.ucfirst.rindex("w"), 6, ".lc.ucfirst.rindex");
+is($s.lc.tc.rindex("w"), 6, ".lc.tc.rindex");
 
 # rindex on non-strings
 ok 3459.rindex(5) == 2, 'rindex on integers';

S32-str/uc.t

@@ -45,7 +45,7 @@ is(uc("ß"), "SS", "uc() of non-ascii chars may result in two chars");
 }
 
 is ~(0.uc),         ~0, '.uc on Int';
-is ~(0.ucfirst),    ~0, '.ucfirst on Int';
+is ~(0.tc),         ~0, '.tc on Int';
 is ~(0.lc),         ~0, '.lc on Int';
 is ~(0.lcfirst),    ~0, '.lcfirst on Int';
 
@@ -56,7 +56,7 @@ is ~(0.lcfirst),    ~0, '.lcfirst on Int';
     role A {
         has $.thing = 3;
     }
-    for <uc lc ucfirst lcfirst> -> $meth {
+    for <uc lc tc lcfirst> -> $meth {
         my $str = "('Nothing much' but A).$meth eq 'Nothing much'.$meth";
         ok eval($str), $str;
     }