[p5sagit/p5-mst-13.2.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 {
       # XXX Kludge requires exact path, which might change
       $count++ if $_[1] eq 'unicore/lib/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	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 {
99870f4d	11	# XXX Kludge requires exact path, which might change
99870f4d	12	$count++ if $_[1] eq 'unicore/lib/Sc/Hira.pl';
c49d5ed7	13	};
	14
	15	my $s = 'foo';
	16
	17	$s =~ m/[\p{Hiragana}]/;
	18	$s =~ m/[\p{Hiragana}]/;
	19	$s =~ m/[\p{Hiragana}]/;
	20	$s =~ m/[\p{Hiragana}]/;
	21
	22	is($count, 1, "Swatch hash caching kept us from reloading swatch hash.");