Added test for RT #78012

Raku · Jan 26, 2014 · 8fe2db8 · 8fe2db8
1 parent 06a737b
commit 8fe2db8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -469,4 +469,8 @@ throws_like q[sub f() {CALLER::<$x>}; my $x; f], X::Caller::NotDynamic, symbol =
     }
 }
 
+# RT #78012
+throws_like 'class A { method b { Q<b> } }; my $a = A.new; my $b = &A::b.assuming($a); $b();',
+    X::Method::NotFound, method => { m/'assuming'/ }, private => { $_ === False };
+
 done;