From: Karl Williamson <khw@khw-desktop.(none)>
Date: Fri, 15 Jan 2010 02:19:22 +0000 (-0700)
Subject: Display characters as Unicode for clarity
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2dc4c7d5e51c6211637044820c7a560da7e6268;p=p5sagit%2Fp5-mst-13.2.git

Display characters as Unicode for clarity
---

diff --git a/t/re/pat_special_cc.t b/t/re/pat_special_cc.t
index 1138cbb..36116b8 100644
--- 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;