This is an automatically generated mail to inform you that tests are now
available in t/spec/S05-substitution/subst.t
commit 14f573cb19cc83439e8b70117484b058fd03e2a3
Author: bbkr <b...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri Jun 25 14:47:38 2010 +0000
[t/spec/S05-substitution/subst.t] tests for RT #66816 Zero-width
substitution makes the GC recurse
git-svn-id: http://svn.pugscode.org/p...@31445
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S05-substitution/subst.t b/t/spec/S05-substitution/subst.t
index 6f4d1e1..46ab4d6 100644
--- a/t/spec/S05-substitution/subst.t
+++ b/t/spec/S05-substitution/subst.t
@@ -304,6 +304,13 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty
things in closures';
is 'The foo and the bar'.subst(/:i the/, {$str++}, :g, :samecase), 'Thau
foo and thav bar', '.substr and :g and :samecase, worked with block
replacement';
}
+# RT #66816
+{
+ my $str = "a\nbc\nd";
+ is $str.subst(/^^/, '# ', :g), "# a\n# bc\n# d",
+ 'Zero-width substitution does not make the GC recurse';
+}
+
done_testing;
# vim: ft=perl6
