blob: df12f33ba255b74ebf30b75cdd0a7d799be03b98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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.");
|
