Add test for [perl #78674]

diff --git a/MANIFEST b/MANIFEST
index 70c4da0..2701f76 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4593,6 +4593,7 @@ t/op/chr.t                        See if chr works
 t/op/closure.t                 See if closures work
 t/op/cmp.t                     See if the various string and numeric compare work
 t/op/concat.t                  See if string concatenation works
+t/op/concat2.t                 Tests too complex for concat.t
 t/op/cond.t                    See if conditional expressions work
 t/op/context.t                 See if context propagation works
 t/op/cproto.t                  Check builtin prototypes

diff --git a/t/op/concat2.t b/t/op/concat2.t
new file mode 100644 (file)
index 0000000..d728061
--- /dev/null
+++ b/t/op/concat2.t
@@ -0,0 +1,21 @@
+#!./perl
+
+# This file is for concatenation tests that require test.pl.
+#
+# concat.t cannot use test.pl as it needs to avoid using concatenation in
+# its ok() function.
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+plan 1;
+
+fresh_perl_is <<'end', "ok\n", {},
+    use encoding 'utf8';
+    map { "a" . $a } ((1)x5000);
+    print "ok\n";
+end
+ "concat does not lose its stack pointer after utf8 upgrade [perl #78674]";