pugs fudge

Author: coke

S02-names-vars/varnames.t

@@ -6,9 +6,7 @@ plan 8;
 
 # L<S02/Names and Variables/special variables of Perl 5 are going away>
 
-#?pugs todo
 eval_lives_ok 'my $!', '$! can be declared again';
-#?pugs todo
 eval_lives_ok 'my $/', 'as can $/';
 
 #?niecza todo

S09-autovivification/autovivification.t

@@ -60,7 +60,6 @@ plan 42;
 
 #RT #84000
 #?niecza skip 'Unable to resolve method push in class Any'
-#?pugs todo
 {
   my %hash;
 

S12-class/basic.t

@@ -102,7 +102,6 @@ ok(One::Two.new, 'created One::Two after One::Two::Three');
 dies_ok { eval 'class One::Two { }' }, 'cannot redeclare an existing class';
 eval_lives_ok q[BEGIN {class Level1::Level2::Level3 {};}; class Level1::Level2 {};], 'RT 62898';
 
-#?pugs todo
 #?niecza skip "Methods must be used in some kind of package"
 {
     class A61354_1 {

S32-str/flip.t

@@ -6,7 +6,6 @@ use Test;
 plan 13;
 
 # As a function :
-#?pugs skip 'sub NYI'
 is( flip('Pugs'), 'sguP', "as a function");
 
 # As a method :
@@ -35,7 +34,6 @@ is( "a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW]b".flip,
     "grapheme without precomposed");
 
 is 234.flip, '432', '.flip on non-string';
-#?pugs skip 'sub NYI'
 is flip(123), '321', 'flip() on non-strings';
 {
     my $x = 'abc';