niecza fudge

S02-magicals/env.t

@@ -55,8 +55,10 @@ my $expected = 'Hello from subprocess';
 is %*ENV<PUGS_ROCKS>, $expected,'%*ENV is rw';
 
 %*ENV<PUGS_ROCKS>:delete;
+#?niecza todo ":delete"
 ok(%*ENV<PUGS_ROCKS>:!exists, 'We can remove keys from %*ENV');
 
+#?niecza todo ":!exists"
 ok %*ENV<does_not_exist>:!exists, "exists() returns false on a not defined env var";
 
 # %ENV must not be imported by default

S02-types/bag.t

@@ -147,12 +147,14 @@ sub showkv($x) {
     is +$b, 1, "... with one element";
 }
 
+#?niecza skip 'SetHash'
 {
     my $b = bag SetHash.new(<foo bar foo bar baz foo>);
     isa_ok $b, Bag, '&Bag.new given a SetHash produces a Bag';
     is +$b, 1, "... with one element";
 }
 
+#?niecza skip 'BagHash'
 {
     my $b = bag BagHash.new(<foo bar foo bar baz foo>);
     isa_ok $b, Bag, '&Bag.new given a BagHash produces a Bag';
@@ -217,6 +219,7 @@ sub showkv($x) {
     my $s;
     lives_ok { $s = $b.Str }, ".Str lives";
     isa_ok $s, Str, "... and produces a string";
+    #?niecza todo
     is $s.split(" ").sort.join(" "), "bar(3) baz foo(2)", "... which only contains bar baz and foo with the proper counts and separated by spaces";
 }
 

S02-types/declare.t

@@ -288,12 +288,14 @@ plan 78;
 }
 
 #?pugs skip 'SetHash'
+#?niecza skip 'SetHash'
 {
  my SetHash $paxa;
  isa_ok($paxa,SetHash  );
 }
 
 #?pugs skip 'BagHash'
+#?niecza skip 'BagHash'
 {
  my BagHash $paze;
  isa_ok($paze,BagHash  );

S02-types/set.t

@@ -142,12 +142,14 @@ sub showset($s) { $s.keys.sort.join(' ') }
     is +$b, 1, "... with one element";
 }
 
+#?niecza skip 'SetHash'
 {
     my $b = set SetHash.new(<foo bar foo bar baz foo>);
     isa_ok $b, Set, '&Set.new given a SetHash produces a Set';
     is +$b, 1, "... with one element";
 }
 
+#?niecza skip 'BagHash'
 {
     my $b = set BagHash.new(<foo bar foo bar baz foo>);
     isa_ok $b, Set, '&Set.new given a SetHash produces a Set';

S03-binding/arrays.t

@@ -28,6 +28,7 @@ plan 47;
   is $var,      "f", "basic binding of an array element (3)";
 }
 
+#?niecza skip ":delete"
 {
   my @array  = <a b c>;
   my $var    = "d";
@@ -39,13 +40,11 @@ plan 47;
   @array[1]:delete;
   # $var unchanged, but assigning to $var doesn't modify @array any
   # longer; similarily, changing @array[1] doesn't modify $var now
-  #?niecza todo 'array binding, delete'
   is $var,    "e",    "binding of array elements works with delete (2)";
   is ~@array, "a  c", "binding of array elements works with delete (3)";
 
   $var      = "f";
   @array[1] = "g";
-  #?niecza todo 'array binding, delete'
   is $var,      "f",  "binding of array elements works with delete (4)";
   is @array[1], "g",  "binding of array elements works with delete (5)";
 }

S09-autovivification/autovivification.t

@@ -5,6 +5,7 @@ use Test;
 
 plan 42;
 
+#?niecza todo
 {
   my %hash;
   %hash<a>;

S32-container/stringify.t

@@ -14,6 +14,7 @@ is Set.perl, 'Set', 'Set.perl';
 is Set.Str, "", "Set.Str is empty string";
 is ~Set, "", "~Set is empty string";
 
+#?niecza 4 skip 'SetHash'
 is SetHash.gist, '(SetHash)', 'SetHash.gist';
 is SetHash.perl, 'SetHash', 'SetHash.perl';
 is SetHash.Str, "", "SetHash.Str is empty string";
@@ -24,6 +25,7 @@ is Bag.perl, 'Bag', 'Bag.perl';
 is Bag.Str, "", "Bag.Str is empty string";
 is ~Bag, "", "~Bag is empty string";
 
+#?niecza 4 skip 'BagHash'
 is BagHash.gist, '(BagHash)', 'BagHash.gist';
 is BagHash.perl, 'BagHash', 'BagHash.perl';
 is BagHash.Str, "", "BagHash.Str is empty string";