Test that '#?DOES' is not seen in subsequent blocks

Raku · Apr 17, 2015 · 06412b7 · 06412b7
1 parent e5fe4c4
commit 06412b7
Show file tree

Hide file tree

Showing 3 changed files with 38 additions and 3 deletions.
diff --git a/t/04-combinations.in b/t/04-combinations.in
@@ -1,5 +1,5 @@
 use Test;
-plan 6;
+plan 10;
 
 sub same-type ($x, $y) {
     is $x.WHAT, $y.WHAT;
@@ -19,3 +19,14 @@ is 42.WHAT, Int, 'some reason';
 is 2+2, 4;
 #?impl skip 'NYI'
 is 2-2, 0;
+
+#?DOES 2
+{
+    same-type(42, 4);
+}
+
+{
+    is 1, 1;
+    #?impl skip 'NYI'
+    is 2, 2;
+}
diff --git a/t/04-combinations.out_impl.1 b/t/04-combinations.out_impl.1
@@ -1,5 +1,5 @@
 use Test;
-plan 6;
+plan 10;
 
 sub same-type ($x, $y) {
     is $x.WHAT, $y.WHAT;
@@ -24,5 +24,17 @@ skip('Version v6.0.5+ required', 1); # { is 2+2, 4;
 skip('NYI', 1); # { is 2-2, 0;
 #  }
 
+#?DOES 2
+{
+    same-type(42, 4);
+}
+
+{
+    is 1, 1;
+    #?impl skip 'NYI'
+skip('NYI', 1); # {     is 2, 2;
+#  }
+}
+
 say "# FUDGED!";
 exit(1);
diff --git a/t/04-combinations.out_impl.2 b/t/04-combinations.out_impl.2
@@ -1,5 +1,5 @@
 use Test;
-plan 6;
+plan 10;
 
 sub same-type ($x, $y) {
     is $x.WHAT, $y.WHAT;
@@ -24,5 +24,17 @@ skip('NYI', 1); # { is 2+2, 4;
 skip('NYI', 1); # { is 2-2, 0;
 #  }
 
+#?DOES 2
+{
+    same-type(42, 4);
+}
+
+{
+    is 1, 1;
+    #?impl skip 'NYI'
+skip('NYI', 1); # {     is 2, 2;
+#  }
+}
+
 say "# FUDGED!";
 exit(1);