Fudge for Niecza.

Author: colomon

S02-literals/quoting.t

@@ -594,6 +594,7 @@ eval_dies_ok q["@a<"], 'unclosed quote after array variable is an error';
 is "foo $( my $x = 3 + 4; "bar" ) baz", 'foo bar baz', 'declaration in interpolation';
 
 #115272
+#?niecza todo "Weird quoting issue"
 is <<<\>'n'>>.join('|'), '<>|n', 'texas quotes edge case';
 
 done;

S02-magicals/progname.t

@@ -28,7 +28,7 @@ lives_ok { $*PROGRAM_NAME = "coldfusion" }, '$*PROGRAM_NAME is assignable';
     is_run 'print $*PROGRAM_NAME', {
         out => -> $x { $x !~~ /IGNOREME/ },
     },
-    :compiler-args['-IGNOREME']
+    :compiler-args['-IGNOREME'],
     :args['IGNOREME'],
     '$*PROGRAM_NAME is not confused by compiler options';
 }

S04-statements/gather.t

@@ -213,6 +213,7 @@ plan 28;
     is @uniq, (1, 2, 3, 4, 5, 6), "first example in S04-control.pod works";
 }
 
+#?niecza skip 'Cannot use bind operator with this LHS'
 {
     my @y;
     my @x = gather for 1..2 {            # flat context for list of parcels
@@ -223,6 +224,7 @@ plan 28;
     is @y, ($(1, 10), $(2, 20)), "take in item context doesn't flatten";
 }
 
+#?niecza skip 'Cannot use bind operator with this LHS'
 {
     my ($c) := \(gather for 1..2 {
         take $_, $_ * 10;

S04-statements/try.t

@@ -15,6 +15,7 @@ plan 26;
 };
 
 # try should return Nil if an exception was caught
+#?niecza skip "=== and Nil NYI"
 {
     ok (try { die 'foo' }) === Nil, 'try returns Nil when exception was caught';
     ok (try { die 'foo'; CATCH { default { } } }) === Nil, '... even when there was a CATCH block';

S06-multi/proto.t

@@ -144,10 +144,12 @@ eval_dies_ok 'proto rt68242($a){};proto rt68242($c,$d){};',
 }
 
 # RT #116164
-eval_dies_ok q[
-    proto f(Int $x) {*}; multi f($) { 'default' }; f 'foo'
-], 'proto signature is checked, not just that of the candidates';
-
+#?niecza todo
+{
+    eval_dies_ok q[
+        proto f(Int $x) {*}; multi f($) { 'default' }; f 'foo'
+    ], 'proto signature is checked, not just that of the candidates';
+}
 done;
 
 # vim: ft=perl6

S14-roles/basic.t

@@ -145,6 +145,7 @@ eval_lives_ok q[my role R { our $.r }; my class C does R {}],
     'Can have "our $.r" in a role (RT 114380)';
 
 # RT #116226
+#?niecza skip "Unable to resolve method x in type AccessesAttr"
 {
     my role AccessesAttr {
         method meth() {

integration/error-reporting.t

@@ -123,6 +123,7 @@ is_run 'die "foo"; END { say "end run" }',
 }
 
 # RT #103034
+#?niecza skip 'sub ucfirst($thing) is export(:DEFAULT) blows up'
 {
     use lib 't/spec/packages';
     use Foo;