pugs autounfudge

Raku · Feb 24, 2012 · 221ae65 · 221ae65
1 parent 7d89666
commit 221ae65
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 7 deletions.
diff --git a/S02-literals/radix.t b/S02-literals/radix.t
@@ -193,7 +193,6 @@ is( :2<1.1> * :2<10> ** :2<10>,             6, 'multiplication and exponentiatio
 # L<S02/General radices/"Alternately you can use a list of digits in decimal">
 #?rakudo skip ":radix[] NYI"
 #?niecza skip ":radix[] NYI"
-#?pugs skip "todo"
 {
     is( :60[12,34,56],     12 * 3600 + 34 * 60 + 56, 'List of numbers works' );
     is( :100[3,'.',14,16],     3.1416,         'Decimal point in list works' );

diff --git a/S03-operators/value_equivalence.t b/S03-operators/value_equivalence.t
@@ -179,7 +179,6 @@ plan 74;
 
 #?pugs skip "this test alters # of run tests?"
 ok     1|2 === 1,  '=== does autothread (1)';
-#?pugs skip "this test alters # of run tests?"
 isa_ok  1|2 === 1, Junction,  '=== does autothread (2)';
 
 done;

diff --git a/S05-modifier/perl5_8.t b/S05-modifier/perl5_8.t
@@ -101,9 +101,7 @@ is(("a0-za" ~~ rx:P5/([\d-z]+)/ && $0), "0-z", 're_tests 1155/1 (1359)');
 is(("a0- z" ~~ rx:P5/([\d-\s]+)/ && $0), "0- ", 're_tests 1157/1 (1361)');
 #?pugs skip "PCRE hard parsefail"
 is(("za-9z" ~~ rx:P5/([a-[:digit:]]+)/ && $0), "a-9", 're_tests 1159/1 (1363)');
-#?pugs skip "PCRE hard parsefail"
 is(("=0-z=" ~~ rx:P5/([[:digit:]-z]+)/ && $0), "0-z", 're_tests 1160/1 (1364)');
-#?pugs skip "PCRE hard parsefail"
 is(("=0-z=" ~~ rx:P5/([[:digit:]-[:alpha:]]+)/ && $0), "0-z", 're_tests 1161/1 (1365)');
 ok((not ("aaaXbX" ~~ rx:P5/\GX.*X/)), 're_tests 1162  (1366)');
 is(("3.1415926" ~~ rx:P5/(\d+\.\d+)/ && $0), "3.1415926", 're_tests 1163/1 (1367)');

diff --git a/S32-str/chop.t b/S32-str/chop.t
@@ -42,9 +42,9 @@ XXX: chop(%has)   should return a  hash  of chopped strings?
     my ($a, $b) = ("bar", "gorch");
     #?pugs skip "todo"
     is(chop($a, $b), "h", "two chars removed, second returned");
-    #?pugs skip "todo"
+    #?pugs todo "todo"
     is($a, "ba", "first string");
-    #?pugs skip "todo"
+    #?pugs todo "todo"
     is($b, "gorc", "second string");
 };
 

diff --git a/S32-temporal/time.t b/S32-temporal/time.t
@@ -156,7 +156,6 @@ ok(is_dt({ my $str = localtime() }()), 'localtime(), scalar context');
 
     if ($localyday && $yday) {
         my $day_diff = $localyday - $yday;
-        #?pugs todo
         ok($day_diff == 0    ||
             $day_diff == 1    ||
             $day_diff == -1   ||