t/op/concat2.t

   1 #!./perl
   2
   3 # This file is for concatenation tests that require test.pl.
   4 #
   5 # concat.t cannot use test.pl as it needs to avoid using concatenation in
   6 # its ok() function.
   7
   8 BEGIN {
   9     chdir 't' if -d 't';
  10     @INC = '../lib';
  11     require './test.pl';
  12 }
  13
  14 plan 1;
  15
  16 fresh_perl_is <<'end', "ok\n", {},
  17     use encoding 'utf8';
  18     map { "a" . $a } ((1)x5000);
  19     print "ok\n";
  20 end
  21  "concat does not lose its stack pointer after utf8 upgrade [perl #78674]";