[perl5.git] / t / uni / cache.t

BEGIN {
    chdir 't' if -d 't';
    @INC = qw(../lib .);
    require "test.pl";
}

plan tests => 1;

my $count = 0;
unshift @INC, sub {
       $count++ if $_[1] eq 'unicore/lib/gc_sc/Hira.pl';
};

my $s = 'foo';

$s =~ m/[\p{Hiragana}]/;
$s =~ m/[\p{Hiragana}]/;
$s =~ m/[\p{Hiragana}]/;
$s =~ m/[\p{Hiragana}]/;

is($count, 1, "Swatch hash caching kept us from reloading swatch hash.");
Commit	Line	Data
c49d5ed7 JS	1	BEGIN {
	2	chdir 't' if -d 't';
	3	@INC = qw(../lib .);
	4	require "test.pl";
	5	}
	6
	7	plan tests => 1;
	8
	9	my $count = 0;
	10	unshift @INC, sub {
	11	$count++ if $_[1] eq 'unicore/lib/gc_sc/Hira.pl';
	12	};
	13
	14	my $s = 'foo';
	15
	16	$s =~ m/[\p{Hiragana}]/;
	17	$s =~ m/[\p{Hiragana}]/;
	18	$s =~ m/[\p{Hiragana}]/;
	19	$s =~ m/[\p{Hiragana}]/;
	20
	21	is($count, 1, "Swatch hash caching kept us from reloading swatch hash.");