1 files changed, 19 insertions, 1 deletions
diff --git a/cpan/Unicode-Collate/t/loc_test.t b/cpan/Unicode-Collate/t/loc_test.t
index ba643083c3..191334402e 100644
--- a/cpan/Unicode-Collate/t/loc_test.t
+++ b/cpan/Unicode-Collate/t/loc_test.t
@@ -13,7 +13,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..130\n"; }
+BEGIN { $| = 1; print "1..134\n"; }
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -159,3 +159,21 @@ ok(Unicode::Collate::Locale::_locale('de-phonebk'),    'de__phonebook');
 ok(Unicode::Collate::Locale::_locale('de--phonebk'),   'de__phonebook');
 
 # 130
+
+my $objEs2  = Unicode::Collate::Locale->new
+    (normalization => undef, locale => 'ES',
+     level => 1,
+     entry => << 'ENTRIES',
+0000      ; [.FFFE.0020.0005.0000]
+00F1      ; [.0010.0020.0002.00F1] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.0010.0020.0002.00F1] # LATIN SMALL LETTER N WITH TILDE
+ENTRIES
+);
+
+ok($objEs2->lt("abc\x{4E00}", "abc\0"));
+ok($objEs2->lt("abc\x{FFFD}", "abc\0"));
+ok($objEs2->lt("abc\x{FFFD}", "abc\0"));
+ok($objEs2->lt("n\x{303}", "N\x{303}"));
+
+# 134
+