lib/locale.t: Display unassigned chars

This adds debug output to list the characters that aren't matched by any
posix class.

diff --git a/lib/locale.t b/lib/locale.t
index a3b1473..a8f4253 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -906,9 +906,20 @@ foreach $Locale (@Locale) {
        delete $lower{$_};
     }
 
+    my %Unassigned;
+    foreach my $ord ( 0 .. 255 ) {
+        $Unassigned{chr $ord} = 1;
+    }
+    foreach my $class (keys %posixes) {
+        foreach my $char (@{$posixes{$class}}) {
+            delete $Unassigned{$char};
+        }
+    }
+
     debug "# UPPER    = ", display_characters(keys %UPPER), "\n";
     debug "# lower    = ", display_characters(keys %lower), "\n";
     debug "# BoThCaSe = ", display_characters(keys %BoThCaSe), "\n";
+    debug "# Unassigned = ", display_characters(sort { ord $a <=> ord $b } keys %Unassigned), "\n";
 
     my @failures;
     my @fold_failures;