Show
Ignore:
Timestamp:
04/04/08 16:00:24 (6 years ago)
Author:
tokuhirom
Message:

デフォルトのプラグインは基本的に無しで。

Location:
lang/perl/HTTP-MobileAttribute/trunk
Files:
9 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute.pm

    r8864 r8871  
    1515    my $class   = shift; 
    1616    my %args    = @_; 
    17     my $plugins = delete $args{plugins} || 
    18         # とりあえず動かすためだけに全部つっこんでみた。テストを分離させて、Core 以外はとっぱらうべき 
    19         [ qw(Core Carrier IS IS::ThirdForce XHTMLCompliant) ] 
    20     ; 
     17    my $plugins = delete $args{plugins} || [ 'Core' ]; 
    2118 
    2219    if (ref $plugins ne 'ARRAY') { 
  • lang/perl/HTTP-MobileAttribute/trunk/t/02_docomo.t

    r8849 r8871  
    11use strict; 
    22use warnings; 
    3 use Test::More tests => 750; 
    4  
    5 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     3use Test::More tests => 748; 
     4use HTTP::MobileAttribute plugins => [qw/Core XHTMLCompliant IS Carrier/]; 
    65 
    76my @Tests = ( 
     
    3938    [ "DoCoMo/1.0/D505i/c20/TC/W20H10", '1.0', '5.0', 'D505i', 20, undef, 'D', '505i', { status => 'TC' }, 0 ], 
    4039    [ "DoCoMo/1.0/SH505i2/c20/TB/W20H10", '1.0', '5.0', 'SH505i', 20, undef, 'SH', '505i', { status => 'TB' }, 0 ], 
    41     [ "DoCoMo/1.0/F661i/c10/TB", '1.0', '4.0', 'F661i', 10, undef, 'F', '661i', { is_gps => 1 }, 0 ], 
     40    [ "DoCoMo/1.0/F661i/c10/TB", '1.0', '4.0', 'F661i', 10, undef, 'F', '661i', { }, 0 ], 
    4241); 
    43  
    44 HTTP::MobileAttribute->load_plugins(qw/GPS/); 
    4542 
    4643for (@Tests) { 
  • lang/perl/HTTP-MobileAttribute/trunk/t/03_j_phone.t

    r8791 r8871  
    11use strict; 
    2 use Test::More tests => 250; 
    3  
    4 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     2use Test::More tests => 249; 
     3use HTTP::MobileAttribute plugins => [qw/Core Carrier IS IS::ThirdForce/]; 
    54 
    65my @Tests = ( 
  • lang/perl/HTTP-MobileAttribute/trunk/t/04_ezweb.t

    r8815 r8871  
    11use strict; 
    2 use Test::More tests => 484; 
    3  
    4 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     2use warnings; 
     3use Test::More tests => 483; 
     4use HTTP::MobileAttribute plugins => [qw/XHTMLCompliant Core IS/]; 
    55 
    66my @Tests = ( 
  • lang/perl/HTTP-MobileAttribute/trunk/t/06_nonmobile.t

    r8641 r8871  
    11use strict; 
    22use Test::More tests => 164 * 9; 
    3 use HTTP::MobileAttribute; 
     3use HTTP::MobileAttribute plugins => [qw/Core IS XHTMLCompliant Carrier/]; 
    44 
    55while (<DATA>) { 
  • lang/perl/HTTP-MobileAttribute/trunk/t/07_airh.t

    r8791 r8871  
    11use strict; 
    2  
    3 use strict; 
    4 use Test::More tests => 17; 
    5  
    6 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     2use warnings; 
     3use Test::More tests => 16; 
     4use HTTP::MobileAttribute plugins => [qw/Core IS/]; 
    75 
    86my @Tests = ( 
  • lang/perl/HTTP-MobileAttribute/trunk/t/09_vodafone_3gc.t

    r8791 r8871  
    11use strict; 
    2 use Test::More tests => 57; 
     2use warnings; 
     3use Test::More tests => 56; 
    34 
    4 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     5use HTTP::MobileAttribute plugins => [qw/Core IS IS::ThirdForce/]; 
    56 
    67my @Tests = ( 
  • lang/perl/HTTP-MobileAttribute/trunk/t/10_softbank.t

    r8791 r8871  
    11use strict; 
    2 use Test::More tests => 31; 
    3  
    4 BEGIN { use_ok 'HTTP::MobileAttribute' } 
     2use Test::More tests => 30; 
     3use HTTP::MobileAttribute plugins => [qw/Core IS Carrier IS::ThirdForce/]; 
    54 
    65my @Tests = ( 
  • lang/perl/HTTP-MobileAttribute/trunk/t/11_softbank_base.t

    r8557 r8871  
    22use warnings; 
    33use Test::Base; 
    4 use HTTP::MobileAttribute; 
     4use HTTP::MobileAttribute plugins => [qw/Core XHTMLCompliant Carrier IS::ThirdForce/]; 
    55 
    66filters {