From c49d5ed730376407060cbf826eab2369ab99bf61 Mon Sep 17 00:00:00 2001
From: Jonathan Steinert <unknown>
Date: Mon, 30 Apr 2007 22:18:52 -0700
Subject: [perl #42839] Swatch hash cache has key mismatch From: Jonathan
 Steinert (via RT) <perlbug-followup@perl.org> Message-ID:
 <rt-3.6.HEAD-30557-1178021932-1416.42839-75-0@perl.org>

p4raw-id: //depot/perl@31119
---
 t/uni/cache.t | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 t/uni/cache.t

(limited to 't/uni')

diff --git a/t/uni/cache.t b/t/uni/cache.t
new file mode 100644
index 0000000000..c3f7634fcd
--- /dev/null
+++ b/t/uni/cache.t
@@ -0,0 +1,21 @@
+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.");
-- 
cgit v1.2.1