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     skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
  13 }
  14
  15 plan 1;
  16
  17 fresh_perl_is <<'end', "ok\n", {},
  18     use encoding 'utf8';
  19     map { "a" . $a } ((1)x5000);
  20     print "ok\n";
  21 end
  22  "concat does not lose its stack pointer after utf8 upgrade [perl #78674]";