[perl5.git] / t / op / concat2.t

#!./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';
    skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
}

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]";
Commit	Line	Data
1222f39e FC	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';
c82d0e1e	12	skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
1222f39e FC	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]";