1 files changed, 7 insertions, 2 deletions
diff --git a/cpan/Unicode-Collate/t/loc_cjkc.t b/cpan/Unicode-Collate/t/loc_cjkc.t
index 12f2afa0bb..4f9f9e9152 100644
--- a/cpan/Unicode-Collate/t/loc_cjkc.t
+++ b/cpan/Unicode-Collate/t/loc_cjkc.t
@@ -13,7 +13,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..7022\n"; }
+BEGIN { $| = 1; print "1..8025\n"; }
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -65,7 +65,12 @@ my $objS = Unicode::Collate::Locale->
 
 ok($objS->getlocale, 'zh__stroke');
 
-for my $obj ($objDefault, $objB, $objG, $objJ, $objK, $objP, $objS) {
+my $objZ = Unicode::Collate::Locale->
+    new(locale => 'ZH__zhuyin', normalization => undef);
+
+ok($objZ->getlocale, 'zh__zhuyin');
+
+for my $obj ($objDefault, $objB, $objG, $objJ, $objK, $objP, $objS, $objZ) {
     $obj->change(level => 3);
     ok($obj->eq("\x{4E0D}", "\x{F967}"));
     ok($obj->eq("\x{4E26}", "\x{FA70}"));