LC_COLLATE.

Big patch to add, document, and test LC_COLLATE support.

A not necessarily gt a.

7 files changed, 7 insertions, 7 deletions

diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 11ac103a64..957aadafba 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -80,7 +80,7 @@ delete $h{'goner3'};
 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
 
 while (($key,$value) = each(h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t
index 1944c389b5..4142f67474 100755
--- a/t/lib/db-btree.t
+++ b/t/lib/db-btree.t
@@ -158,7 +158,7 @@ ok(27, $#keys == 29 && $#values == 29) ;
 
 $i = 0 ;
 while (($key,$value) = each(%h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t
index f5c9cc821a..36a3f33cb3 100755
--- a/t/lib/db-hash.t
+++ b/t/lib/db-hash.t
@@ -153,7 +153,7 @@ ok(23, $#keys == 29 && $#values == 29) ;
 
 $i = 0 ;
 while (($key,$value) = each(%h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index 0d2c1fe023..d15228c18a 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -83,7 +83,7 @@ delete $h{'goner3'};
 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
 
 while (($key,$value) = each(h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t
index e3093dbcfb..c4788ab71b 100755
--- a/t/lib/ndbm.t
+++ b/t/lib/ndbm.t
@@ -86,7 +86,7 @@ delete $h{'goner3'};
 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
 
 while (($key,$value) = each(h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index b49aa91043..301640a72a 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -86,7 +86,7 @@ delete $h{'goner3'};
 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
 
 while (($key,$value) = each(h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index a754bb72a4..7b9327626d 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -85,7 +85,7 @@ delete $h{'goner3'};
 if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
 
 while (($key,$value) = each(h)) {
-    if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
+    if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
 	$key =~ y/a-z/A-Z/;
 	$i++ if $key eq $value;
     }