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
--- /dev/null
+#!./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]";