Display characters as Unicode for clarity

[p5sagit/p5-mst-13.2.git] / t / re / pat_special_cc.t

diff --git a/t/re/pat_special_cc.t b/t/re/pat_special_cc.t
index 1138cbb..36116b8 100644 (file)
--- a/t/re/pat_special_cc.t
+++ b/t/re/pat_special_cc.t
@@ -37,6 +37,7 @@ sub run_tests {
         my @plain_complement_failed;
         for my $ord (0 .. $upper_bound) {
             my $ch= chr $ord;
+            my $ord = sprintf "U+%04X", $ord;  # For display in Unicode terms
             my $plain= $ch=~/$special/ ? 1 : 0;
             my $plain_u= $ch=~/$upper/ ? 1 : 0;
             push @plain_complement_failed, "$ord-$plain-$plain_u" if $plain == $plain_u;