Test that fudging 'skip' does not hit lines with plain code

t/05-skip.in

@@ -0,0 +1,13 @@
+plan 4;
+
+#?impl-1 2 skip 'NYI'
+is 2+2, 4;
+my $bar = 5;
+is 2+3, $bar;
+
+{
+    #?impl-1 2 skip 'NYI'
+    is 2*2, 4;
+    my $bar = 6;
+    is 2*3, $bar;
+}

t/05-skip.out_impl-1

@@ -0,0 +1,20 @@
+plan 4;
+
+#?impl-1 2 skip 'NYI'
+skip('NYI', 1); # { is 2+2, 4;
+#  }
+my $bar = 5;
+skip('NYI', 1); # { is 2+3, $bar;
+#  }
+
+{
+    #?impl-1 2 skip 'NYI'
+skip('NYI', 1); # {     is 2*2, 4;
+#  }
+    my $bar = 6;
+skip('NYI', 1); # {     is 2*3, $bar;
+#  }
+}
+
+say "# FUDGED!";
+exit(1);

t/fudge.t

@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 sub is_fudged_ok($$$$);
 
@@ -21,6 +21,8 @@ is_fudged_ok '03-count',    'v6.0.0', 'v6.0.0', 'Simple test for fudging for imp
 is_fudged_ok '04-combinations', 'impl.1', 'v6.0.0', 'combinations of fudging for implementation and version';
 is_fudged_ok '04-combinations', 'impl.2', 'v6.0.6', 'combinations of fudging for implementation and version';
 
+is_fudged_ok '05-skip', 'impl-1', 'v6.0.0', 'test for skip only works on actual tests';
+
 sub is_fudged_ok($$$$) {
     my ($file, $impl, $ver, $desc) = @_;
     my ($in, $out)    = ("t/$file.in", "t/$file.out_$impl");