test for RT #83552

Raku · Mar 14, 2013 · 4bd5589 · 4bd5589
1 parent cb80e7a
commit 4bd5589
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S05-substitution/subst.t b/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