make sure autogen scopes to current block only

Raku · Oct 30, 2015 · 11681b8 · 11681b8
1 parent 481a9eb
commit 11681b8
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S03-metaops/reverse.t b/S03-metaops/reverse.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 44;
+plan 46;
 
 =begin pod
 
@@ -102,4 +102,11 @@ throws-like '3 R. "foo"', X::Obsolete, "R. can't do P5 concat";
 is &infix:<R/>(1,2), 2, "Meta reverse R/ can autogen";
 is &infix:<RR/>(1,2), 0.5, "Meta reverse RR/ can autogen";
 
+sub infix:<op> ($a,$b) { $a - $b }
+{
+    sub infix:<op> ($a,$b) { $a ** $b }
+    is &infix:<Rop>(2,3), 9, "Meta reverse Rop can autogen with user-defined op";
+}
+is &infix:<Rop>(2,3), 1, "Meta reverse Rop autogen with user-overridden op stays local to block";
+
 # vim: ft=perl6