Changeset 22935

Show
Ignore:
Timestamp:
11/07/08 17:32:47 (5 years ago)
Author:
tokuhirom
Message:

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

Location:
lang/perl/WWW-MobileCarrierJP/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/EZWeb/DeviceID.pm

    r3855 r22935  
    1313    my $i=1; 
    1414    scraper { 
    15         process '//tr[@bgcolor="#cccccc"]/td/table[@cellspacing="1"]/tr[@bgcolor="#ffffff"]/td', 'models[]', ['TEXT', sub { 
     15        process '//tr[@bgcolor="#cccccc"]/td/table[@cellspacing="1"]/tr[@bgcolor="#ffffff"]/td', 'models[]', ['TEXT', sub { s/\s// }, sub { 
    1616            if ($i&1) { 
    1717                $model = $_; 
  • lang/perl/WWW-MobileCarrierJP/trunk/t/02_ez_deviceidmap.t

    r2873 r22935  
    11use strict; 
    22use warnings; 
    3 use Test::More tests => 6; 
     3use Test::More tests => 9; 
    44use WWW::MobileCarrierJP::EZWeb::DeviceID; 
    55 
     
    1111is_deeply(get_device_id('W32S'), [qw/SN33 SN35/], 'double'); 
    1212is(get_device_id('W53SA'), 'ST32', 'single'); 
     13is(get_device_id('C3002K'), 'KC21', 'single'); 
     14is(get_device_id('C3001H'), 'HI21', 'single'); 
     15is(get_device_id('B01K'), 'KC26', 'single'); 
    1316 
    1417sub get_device_id {