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 { | |
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."); |