Fudge role method WHY tests

Raku · Jun 2, 2015 · d018c54 · d018c54
1 parent c2effba
commit d018c54
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/S26-documentation/block-leading.t b/S26-documentation/block-leading.t
@@ -189,12 +189,16 @@ role Boxer {
     method actor { }
 }
 
+# remove the $pod_index increment after the block once this is fixed
+#?DOES 15
+#?rakudo skip 'Returning anonymous wrappers for pun methods does not preserve metadata RT #125304'
 {
     my $method = Boxer.^find_method('actor');
     ok !Boxer.WHY.defined, q{Role group's WHY should not be defined};
     test-leading(Boxer.HOW.candidates(Boxer)[0], 'Are you talking to me?');
     test-leading($method, 'Robert De Niro');
 }
+$pod_index += 2;
 
 class C {
     #|{Bob}

diff --git a/S26-documentation/block-trailing.t b/S26-documentation/block-trailing.t
@@ -179,12 +179,16 @@ role Boxer {
     #={Robert De Niro}
 }
 
+# remove the $pod_index increment after the block once this is fixed
+#?DOES 15
+#?rakudo skip 'Returning anonymous wrappers for pun methods does not preserve metadata RT #125304'
 {
     my $method = Boxer.^find_method('actor');
     ok !Boxer.WHY.defined, q{Role group's WHY should not be defined};
     test-trailing(Boxer.HOW.candidates(Boxer)[0], 'Are you talking to me?');
     test-trailing($method, 'Robert De Niro');
 }
+$pod_index += 2;
 
 class C {
     submethod BUILD { }