Add test for RegEx issue #51

cpanel · Jul 17, 2017 · 8061bfb · 8061bfb
1 parent a50dded
commit 8061bfb
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 1 deletion.
diff --git a/t/v5.24.1/C-COMPILED/bctestc/51.regexp-variable.t b/t/v5.24.1/C-COMPILED/bctestc/51.regexp-variable.t
@@ -0,0 +1 @@
+../bctest.pl
diff --git a/t/v5.24.1/C-COMPILED/known_errors.txt b/t/v5.24.1/C-COMPILED/known_errors.txt
@@ -73,7 +73,7 @@ xtestc/0163.t          TESTS     GH #48 - DESTROY not triggered
 xtestc/0169.t          TESTS     Output is: "42\n"
 xtestc/0222.t          TESTS     GH #49 - Cannot use "here-document" in RegExp
 xtestc/0247.t          TESTS     GH #50 - $^H when using arybase
-xtestc/0248.t          TESTS     Output is: " toto \n"
+xtestc/0248.t          TESTS     GH #51 - using variable inside a regexp
 xtestc/0262.t          TESTS     Output is: "Constant subroutine M SQRT2 ..."
 xtestc/0269.t          TESTS     Output is: ""
 xtestc/0274.t          TESTS     Output is: "1..5\nok 1\nok 2\nok 3\nok 4\n"

diff --git a/t/v5.24.1/t/bctestc/51.regexp-variable.t b/t/v5.24.1/t/bctestc/51.regexp-variable.t
@@ -0,0 +1,4 @@
+
+my $s = "toto";
+my $k = qq[k\n];
+$s =~ qr/to(?{ print "o$k";})/;