remove lcfirst reference, unfudge

coke · coke · commit e9d171fd6cf7 · 2014-08-03T21:31:55.000-04:00
diff --git a/S32-str/uc.t b/S32-str/uc.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 18;
+plan 17;
 
 # L<S32::Str/"Str"/=item uc>
 
@@ -49,13 +49,12 @@ is ~(0.uc),         ~0, '.uc on Int';
 is ~(0.tc),         ~0, '.tc on Int';
 is ~(0.lc),         ~0, '.lc on Int';
 
-#?DOES 4
-#?rakudo skip 'but RoleName'
+#?DOES 3 
 {
     role A {
         has $.thing = 3;
     }
-    for <uc lc tc lcfirst> -> $meth {
+    for <uc lc tc> -> $meth {
         my $str = "('Nothing much' but A).$meth eq 'Nothing much'.$meth";
         ok EVAL($str), $str;
     }

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@ use v6;`
`2`	`2`
`3`	`3`	`use Test;`
`4`	`4`
`5`		`-plan 18;`
	`5`	`+plan 17;`
`6`	`6`
`7`	`7`	`# L<S32::Str/"Str"/=item uc>`
`8`	`8`
`@@ -49,13 +49,12 @@ is ~(0.uc), ~0, '.uc on Int';`
`49`	`49`	`is ~(0.tc), ~0, '.tc on Int';`
`50`	`50`	`is ~(0.lc), ~0, '.lc on Int';`
`51`	`51`
`52`		`-#?DOES 4`
`53`		`-#?rakudo skip 'but RoleName'`
	`52`	`+#?DOES 3`
`54`	`53`	`{`
`55`	`54`	`role A {`
`56`	`55`	`has $.thing = 3;`
`57`	`56`	`}`
`58`		`- for <uc lc tc lcfirst> -> $meth {`
	`57`	`+ for <uc lc tc> -> $meth {`
`59`	`58`	`my $str = "('Nothing much' but A).$meth eq 'Nothing much'.$meth";`
`60`	`59`	`ok EVAL($str), $str;`
`61`	`60`	`}`