Browse files

test for RT #83552

  • Loading branch information...
1 parent cb80e7a commit 4bd5589e8afe260ec03d97892f7c6e7f78a036f2 @timo timo committed Mar 14, 2013
Showing with 10 additions and 1 deletion.
  1. +10 −1 S05-substitution/subst.t
View
11 S05-substitution/subst.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 136;
+plan 139;
# L<S05/Substitution/>
@@ -407,4 +407,13 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
dies_ok { SubstInsideMethod.new.ro('ccc') }, '(sanely) dies when trying to s/// a read-only variable';
}
+# RT #83552
+{
+ use lib "t/spec/packages";
+ use Test::Util;
+
+ $_ = "foo"; s[f] = 'bar'; is $_, "baroo", 's[f] is parsed as a substitution op';
+ throws_like q{$_ = "foo"; s[] = "bar";}, X::Syntax::Regex::NullRegex;
+}
+
# vim: ft=perl6

0 comments on commit 4bd5589

Please sign in to comment.