Changeset 22935

Timestamp:

11/07/08 17:32:47 (5 years ago)

Author:

tokuhirom

Message:

微妙なところに微妙なタグをいれられてたっぽい。

Location:

lang/perl/WWW-MobileCarrierJP/trunk

Files:

• lib/WWW/MobileCarrierJP/EZWeb/DeviceID.pm (modified) (1 diff)
• t/02_ez_deviceidmap.t (modified) (2 diffs)

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/EZWeb/DeviceID.pm

@@ -13 +13 @@
     my $i=1;
     scraper {
-        process '//tr[@bgcolor="#cccccc"]/td/table[@cellspacing="1"]/tr[@bgcolor="#ffffff"]/td', 'models[]', ['TEXT', sub {
+        process '//tr[@bgcolor="#cccccc"]/td/table[@cellspacing="1"]/tr[@bgcolor="#ffffff"]/td', 'models[]', ['TEXT', sub { s/\s// }, sub {
             if ($i&1) {
                 $model = $_;

lang/perl/WWW-MobileCarrierJP/trunk/t/02_ez_deviceidmap.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 9;
 use WWW::MobileCarrierJP::EZWeb::DeviceID;
 
@@ -11 +11 @@
 is_deeply(get_device_id('W32S'), [qw/SN33 SN35/], 'double');
 is(get_device_id('W53SA'), 'ST32', 'single');
+is(get_device_id('C3002K'), 'KC21', 'single');
+is(get_device_id('C3001H'), 'HI21', 'single');
+is(get_device_id('B01K'), 'KC26', 'single');
 
 sub get_device_id {