11 # XXX Kludge requires exact path, which might change
12 $count++ if $_[1] eq 'unicore/lib/Sc/Hira.pl';
17 $s =~ m/[\p{Hiragana}]/;
18 $s =~ m/[\p{Hiragana}]/;
19 $s =~ m/[\p{Hiragana}]/;
20 $s =~ m/[\p{Hiragana}]/;
22 is($count, 1, "Swatch hash caching kept us from reloading swatch hash.");