Added test for RT #98854

Raku · Jan 31, 2014 · a78a516 · a78a516
1 parent dacd397
commit a78a516
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -473,4 +473,8 @@ throws_like q[sub f() {CALLER::<$x>}; my $x; f], X::Caller::NotDynamic, symbol =
 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 };
 
+# RT #98854
+throws_like 'sub f { f(|$) }', X::Obsolete,
+    old => { m/'$) variable'/ }, replacement => { m/'$*EGID'/ }, when => { m/'in Perl 6'/ };
+
 done;