pugs unfudge (so)

Raku · Apr 10, 2012 · a84fe9b · a84fe9b
1 parent a3a3d3d
commit a84fe9b
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 9 deletions.
diff --git a/S02-types/autovivification.t b/S02-types/autovivification.t
@@ -14,7 +14,7 @@ plan 10;
 }
 
 #?rakudo skip 'Undef to integer'
-#?pugs skip 'so'
+#?pugs skip ':exists'
 {
     my %a;
     my $b = so %a<b><c>:exists;

diff --git a/S04-statements/given.t b/S04-statements/given.t
@@ -205,7 +205,6 @@ Tests the given block, as defined in L<S04/"Switch statements">
     is($passed, 1,'when Type {}');
 }
 
-#?pugs skip "so NYI"
 {
     # given + true
     # L<S04/"Switch statements" /"is exactly equivalent to">

diff --git a/S32-list/pick.t b/S32-list/pick.t
@@ -108,23 +108,20 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
     my %seen;
     %seen{$_} = 1 for (1..100).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems';
-    #?pugs skip "so"
     ok (so 1 <= all(%seen.keys) <= 100), '... and all the elements are in range';
 }
 
 {
     my %seen;
     %seen{$_} = 1 for (1..300).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems';
-    #?pugs skip "so"
     ok (so 1 <= all(%seen.keys) <= 300), '... and all the elements are in range';
 }
 
 {
     my %seen;
     %seen{$_} = 1 for (1..50).pick(*);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems';
-    #?pugs skip "so"
     ok (so 1 <= all(%seen.keys) <= 50), '... and all the elements are in range';
 }
 
@@ -136,31 +133,27 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
     my %seen;
     %seen{$_} = 1 for (1..1_000_000).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems';
-    #?pugs skip "so"
     ok (so 1 <= all(%seen.keys) <= 1_000_000), '... and all the elements are in range';
 }
 
 {
     my %seen;
     %seen{$_} = 1 for (1^..1_000_000).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems (lower exclusive)';
-    #?pugs skip "so"
     ok (so 1 < all(%seen.keys) <= 1_000_000), '... and all the elements are in range';
 }
 
 {
     my %seen;
     %seen{$_} = 1 for (1..^1_000_000).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems (upper exclusive)';
-    #?pugs skip "so"
     ok (so 1 <= all(%seen.keys) < 1_000_000), '... and all the elements are in range';
 }
 
 {
     my %seen;
     %seen{$_} = 1 for (1^..^1_000_000).pick(50);
     is %seen.keys.elems, 50, 'Range.pick produces uniq elems (both exclusive)';
-    #?pugs skip "so"
     ok (so 1 < all(%seen.keys) < 1_000_000), '... and all the elements are in range';
 }