Changeset 4851 for lang/perl/HTTP-MobileAgent-Plugin-Charset/trunk

Timestamp:

01/18/08 12:04:44 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Charset: refactoring

Location:

lang/perl/HTTP-MobileAgent-Plugin-Charset/trunk

Files:

• Makefile.PL (modified) (1 diff)
• t/01_can_display_utf8.t (modified) (3 diffs)

lang/perl/HTTP-MobileAgent-Plugin-Charset/trunk/Makefile.PL

@@ -3 +3 @@
 all_from 'lib/HTTP/MobileAgent/Plugin/Charset.pm';
 
-requires $_ for (qw/ /);
+requires 'HTTP::MobileAgent' => '0.27';
 
 build_requires 'Test::More';

lang/perl/HTTP-MobileAgent-Plugin-Charset/trunk/t/01_can_display_utf8.t

@@ -8 +8 @@
 
 filters {
-    input => [qw/can_display_utf8/],
+    input => [qw/filt/],
+    expected => [qw/yaml/],
 };
 
-run_is input => 'expected';
+run_is_deeply input => 'expected';
 
-sub can_display_utf8 {
+sub filt {
     my $ua = shift;
 
@@ -24 +25 @@
           : 'shift_jis; q=0.6, *;q=0.1';
     }
+
     my $agent = HTTP::MobileAgent->new;
-    $agent->can_display_utf8 ? 'utf8' : 'no utf8';
+    +{
+        can_display_utf8 => $agent->can_display_utf8 ? 'utf8' : 'no utf8',
+    };
 }
 
@@ -32 +36 @@
 ===
 --- input: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1.8) Gecko/20071019 Firefox/2.0.0.8
---- expected: utf8
+--- expected
+can_display_utf8: utf8
 
 === docomo foma
 --- input: DoCoMo/2.0 N905iBiz(c100;TJ)
---- expected: utf8
+--- expected
+can_display_utf8: utf8
 
 === docomo mova
 --- input: DoCoMo/1.0/D501i
---- expected: no utf8
+--- expected
+can_display_utf8: no utf8
 
 === 
 --- input: Vodafone/1.0/V802SE/SEJ001/SNXXXXXXXXX Browser/SEMC-Browser/4.1 Profile/MIDP-2.0 Configuration/CLDC-1.10
---- expected: utf8
+--- expected
+can_display_utf8: utf8
 
 ===
 --- input: J-PHONE/2.0/J-DN02
---- expected: no utf8
+--- expected
+can_display_utf8: no utf8
 
 === willcom
 --- input: Mozilla/3.0(DDIPOCKET;JRC/AH-J3001V,AH-J3002V/1.0/0100/c50)CNF/2.0
---- expected: no utf8
+--- expected
+can_display_utf8: no utf8
 
 === willcom
 --- input: Mozilla/3.0(DDIPOCKET;KYOCERA/AH-K3001V/1.4.1.67.000000/0.1/C100) Opera 7.0
---- expected: utf8
+--- expected
+can_display_utf8: utf8
 
 === ez
 --- input: UP.Browser/3.01-HI01 UP.Link/3.4.5.2
---- expected: no utf8
+--- expected
+can_display_utf8: no utf8
 
 === ez
 --- input: KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
---- expected: utf8
+--- expected
+can_display_utf8: utf8