perllocale: Document NUL collation handling

And add a TODO test, because this shortly will be improved upon

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/locale.t b/lib/locale.t
index 1e99b6e50e..ddb5d795d9 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -1735,6 +1735,20 @@ foreach my $Locale (@Locale) {
                 last;
             }
         }
+
+        use locale;
+
+        ++$locales_test_number;
+        $test_names{$locales_test_number}
+            = 'TODO Skip in locales where \001 has primary sorting weight; '
+            . 'otherwise verify that \0 doesn\'t have primary sorting weight';
+        if ("a\001c" lt "ab") {
+            report_result($Locale, $locales_test_number, 1);
+        }
+        else {
+            my $ok = "ab" lt "a\0c";
+            report_result($Locale, $locales_test_number, $ok);
+        }
     }
 
     my $ok1;