Changeset 4830 for lang/perl/Encode-JP-Mobile/trunk

Timestamp:

01/18/08 03:07:22 (5 years ago)

Author:

miyagawa

Message:

added wrapper _h to get better Test::More fail log

Files:

• lang/perl/Encode-JP-Mobile/trunk/t/emoji_convert_utf8.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/t/emoji_convert_utf8.t

@@ -11 +11 @@
 simple_pair(docomo => "\xee\x98\xbe", kddi => "\xee\xbd\xa6", softbank => "\xee\x81\x8a"); # KDDI-Auto
 
+sub _h {
+    # for better Test::More log
+    my $bytes = shift;
+    my $out = unpack "H*", $bytes;
+    $out =~ s/(..)/\\x$1/g;
+    $out;
+}
+
 sub simple_pair {
     my(%bytes) = @_;
@@ -20 +28 @@
             my $char = decode("x-utf8-" . $from, $bytes{$from});
             my $hex  = sprintf '%X', ord $char;
-            is encode("x-utf8-" . $to, $char), $bytes{$to}, "$from -> $to (U+$hex)";
+            is _h(encode("x-utf8-" . $to, $char)), _h($bytes{$to}), "$from -> $to (U+$hex)";
         }
     }