test for qr obsoletion message

Raku · Mar 27, 2012 · 9fb1b22 · 9fb1b22
1 parent 2f179c1
commit 9fb1b22
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -45,7 +45,8 @@ throws_like 'sub f() { $^x }', X::Signature::Placeholder,
             line => 1;
 
 #?rakudo skip 'parsing of $& and other p5 variables'
-throws_like '$&', X::Obsolete, old => '$@ variable', new => '$/ or $()';
+throws_like '$&', X::Obsolete, old => '$@ variable', replacement => '$, rx/<<rx>>// or $()';
+throws_like 'qr/a/', X::Obsolete, old => rx/<<qr>>/, replacement => rx/<<rx>>/;
 
 throws_like 'do    { $^x }', X::Placeholder::Block, placeholder => '$^x';
 throws_like 'do    { @_  }', X::Placeholder::Block, placeholder => '@_';