Changeset 32193 for lang/perl/Test-Classy

Timestamp:

04/09/09 21:55:36 (4 years ago)

Author:

charsbar

Message:

Test-Classy: unicode test name/message support (suggested by tokuhirom); 0.07 -> CPAN

Location:

lang/perl/Test-Classy/trunk

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Test/Classy.pm (modified) (1 diff)
• lib/Test/Classy/Base.pm (modified) (4 diffs)
• t/70_multibyte.t (added)
• t/lib/Test/Classy/Test/Multibyte (added)
• t/lib/Test/Classy/Test/Multibyte/Basic.pm (added)

lang/perl/Test-Classy/trunk/Changes

@@ -1 +1 @@
 Revision history for Test-Classy
+
+0.07 2009/04/09
+  - unicode test name/message support (suggested by tokuhirom)
 
 0.06 2009/02/26

lang/perl/Test-Classy/trunk/Makefile.PL

@@ -13 +13 @@
     'Class::Inspector'         => 0,
     'Data::Dump'               => 0,
+    'Encode'                   => 0,
     'Module::Find'             => 0,
     'Sub::Install'             => 0,
+    'Term::Encoding'           => 0,
     'Test::More'               => '0.47',
     'Test::UseAllModules'      => '0.09',

lang/perl/Test-Classy/trunk/lib/Test/Classy.pm

@@ -6 +6 @@
 use Sub::Install qw( install_sub );
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 my @tests;

lang/perl/Test-Classy/trunk/lib/Test/Classy/Base.pm

@@ -7 +7 @@
 use Data::Dump;
 use Class::Inspector;
+use Encode;
+use Term::Encoding;
+
+my $ENCODE = eval { find_encoding(Term::Encoding::get_encoding()) };
 
 sub import {
@@ -104 +108 @@
 sub _find_symbols {
   my $class = shift;
+
+  # to allow multibyte method names
+  local $Class::Inspector::RE_IDENTIFIER = qr/.+/s;
 
   my $methods = Class::Inspector->methods($class, 'expanded');
@@ -263 +270 @@
   my ($class, $message) = @_;
 
-  return $class->_prepend_class_name( $class->_prepend_test_name( $message ) );
+  $message = $class->_prepend_class_name( $class->_prepend_test_name( $message ) );
+
+  $message = $ENCODE->encode($message) if $ENCODE && $INC{'utf8.pm'};
+
+  return $message;
 }
 
@@ -272 +283 @@
 
   if ( my $name = $class->test_name ) {
+    $name = decode_utf8($name) if $ENCODE && $INC{'utf8.pm'};
     $message = "$name: $message" unless $message =~ /\b$name\b/;
   }