1 files changed, 20 insertions, 8 deletions

diff --git a/cpan/Unicode-Collate/t/loc_deph.t b/cpan/Unicode-Collate/t/loc_deph.t
index 136d3c5017..26c48641dc 100644
--- a/cpan/Unicode-Collate/t/loc_deph.t
+++ b/cpan/Unicode-Collate/t/loc_deph.t
@@ -16,7 +16,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..46\n"; }
+BEGIN { $| = 1; print "1..52\n"; }
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -65,11 +65,17 @@ ok($objDePhone->gt("O\x{308}", "OE"));
 ok($objDePhone->gt("u\x{308}", "ue"));
 ok($objDePhone->gt("U\x{308}", "UE"));
 
+# 14
+
 ok($objDePhone->eq("a\x{308}", "A\x{308}"));
 ok($objDePhone->eq("o\x{308}", "O\x{308}"));
 ok($objDePhone->eq("u\x{308}", "U\x{308}"));
 
-# 17
+ok($objDePhone->eq($auml, $Auml));
+ok($objDePhone->eq($ouml, $Ouml));
+ok($objDePhone->eq($uuml, $Uuml));
+
+# 20
 
 $objDePhone->change(level => 3);
 
@@ -77,6 +83,12 @@ ok($objDePhone->lt("a\x{308}", "A\x{308}"));
 ok($objDePhone->lt("o\x{308}", "O\x{308}"));
 ok($objDePhone->lt("u\x{308}", "U\x{308}"));
 
+ok($objDePhone->lt($auml, $Auml));
+ok($objDePhone->lt($ouml, $Ouml));
+ok($objDePhone->lt($uuml, $Uuml));
+
+# 26
+
 ok($objDePhone->eq("a\x{308}", $auml));
 ok($objDePhone->eq("A\x{308}", $Auml));
 ok($objDePhone->eq("o\x{308}", $ouml));
@@ -84,7 +96,7 @@ ok($objDePhone->eq("O\x{308}", $Ouml));
 ok($objDePhone->eq("u\x{308}", $uuml));
 ok($objDePhone->eq("U\x{308}", $Uuml));
 
-# 26
+# 32
 
 ok($objDePhone->eq("a\x{308}\x{304}", "\x{1DF}"));
 ok($objDePhone->eq("A\x{308}\x{304}", "\x{1DE}"));
@@ -99,7 +111,7 @@ ok($objDePhone->eq("U\x{308}\x{304}", "\x{1D5}"));
 ok($objDePhone->eq("u\x{308}\x{30C}", "\x{1DA}"));
 ok($objDePhone->eq("U\x{308}\x{30C}", "\x{1D9}"));
 
-# 38
+# 44
 
 {
   my $objDePhoneBook = Unicode::Collate::Locale->
@@ -109,7 +121,7 @@ ok($objDePhone->eq("U\x{308}\x{30C}", "\x{1D9}"));
   ok($objDePhoneBook->eq("a\x{308}", "ae"));
 }
 
-# 40
+# 46
 
 {
   my $objDePhonebk = Unicode::Collate::Locale->
@@ -119,7 +131,7 @@ ok($objDePhone->eq("U\x{308}\x{30C}", "\x{1D9}"));
   ok($objDePhonebk->eq("a\x{308}", "ae"));
 }
 
-# 42
+# 48
 
 {
   my $objDeDePhone = Unicode::Collate::Locale->
@@ -129,7 +141,7 @@ ok($objDePhone->eq("U\x{308}\x{30C}", "\x{1D9}"));
   ok($objDeDePhone->eq("a\x{308}", "ae"));
 }
 
-# 44
+# 50
 
 {
   my $objDeChPhonebk = Unicode::Collate::Locale->
@@ -139,4 +151,4 @@ ok($objDePhone->eq("U\x{308}\x{30C}", "\x{1D9}"));
   ok($objDeChPhonebk->eq("a\x{308}", "ae"));
 }
 
-# 46
+# 52