Changeset 8871

Timestamp:

04/04/08 16:00:24 (8 months ago)

Author:

tokuhirom

Message:

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

Location:

lang/perl/HTTP-MobileAttribute/trunk

Files:

• lib/HTTP/MobileAttribute.pm (modified) (1 diff)
• t/02_docomo.t (modified) (2 diffs)
• t/03_j_phone.t (modified) (1 diff)
• t/04_ezweb.t (modified) (1 diff)
• t/06_nonmobile.t (modified) (1 diff)
• t/07_airh.t (modified) (1 diff)
• t/09_vodafone_3gc.t (modified) (1 diff)
• t/10_softbank.t (modified) (1 diff)
• t/11_softbank_base.t (modified) (1 diff)

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute.pm

@@ -15 +15 @@
     my $class   = shift;
     my %args    = @_;
-    my $plugins = delete $args{plugins} ||
-        # とりあえず動かすためだけに全部つっこんでみた。テストを分離させて、Core 以外はとっぱらうべき
-        [ qw(Core Carrier IS IS::ThirdForce XHTMLCompliant) ]
-    ;
+    my $plugins = delete $args{plugins} || [ 'Core' ];
 
     if (ref $plugins ne 'ARRAY') {

lang/perl/HTTP-MobileAttribute/trunk/t/02_docomo.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 750;
-
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use Test::More tests => 748;
+use HTTP::MobileAttribute plugins => [qw/Core XHTMLCompliant IS Carrier/];
 
 my @Tests = (
@@ -39 +38 @@
     [ "DoCoMo/1.0/D505i/c20/TC/W20H10", '1.0', '5.0', 'D505i', 20, undef, 'D', '505i', { status => 'TC' }, 0 ],
     [ "DoCoMo/1.0/SH505i2/c20/TB/W20H10", '1.0', '5.0', 'SH505i', 20, undef, 'SH', '505i', { status => 'TB' }, 0 ],
-    [ "DoCoMo/1.0/F661i/c10/TB", '1.0', '4.0', 'F661i', 10, undef, 'F', '661i', { is_gps => 1 }, 0 ],
+    [ "DoCoMo/1.0/F661i/c10/TB", '1.0', '4.0', 'F661i', 10, undef, 'F', '661i', { }, 0 ],
 );
-
-HTTP::MobileAttribute->load_plugins(qw/GPS/);
 
 for (@Tests) {

lang/perl/HTTP-MobileAttribute/trunk/t/03_j_phone.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 250;
-
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use Test::More tests => 249;
+use HTTP::MobileAttribute plugins => [qw/Core Carrier IS IS::ThirdForce/];
 
 my @Tests = (

lang/perl/HTTP-MobileAttribute/trunk/t/04_ezweb.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 484;
-
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use warnings;
+use Test::More tests => 483;
+use HTTP::MobileAttribute plugins => [qw/XHTMLCompliant Core IS/];
 
 my @Tests = (

lang/perl/HTTP-MobileAttribute/trunk/t/06_nonmobile.t

@@ -1 +1 @@
 use strict;
 use Test::More tests => 164 * 9;
-use HTTP::MobileAttribute;
+use HTTP::MobileAttribute plugins => [qw/Core IS XHTMLCompliant Carrier/];
 
 while (<DATA>) {

lang/perl/HTTP-MobileAttribute/trunk/t/07_airh.t

@@ -1 +1 @@
 use strict;
-
-use strict;
-use Test::More tests => 17;
-
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use warnings;
+use Test::More tests => 16;
+use HTTP::MobileAttribute plugins => [qw/Core IS/];
 
 my @Tests = (

lang/perl/HTTP-MobileAttribute/trunk/t/09_vodafone_3gc.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 57;
+use warnings;
+use Test::More tests => 56;
 
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use HTTP::MobileAttribute plugins => [qw/Core IS IS::ThirdForce/];
 
 my @Tests = (

lang/perl/HTTP-MobileAttribute/trunk/t/10_softbank.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 31;
-
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+use Test::More tests => 30;
+use HTTP::MobileAttribute plugins => [qw/Core IS Carrier IS::ThirdForce/];
 
 my @Tests = (

lang/perl/HTTP-MobileAttribute/trunk/t/11_softbank_base.t

@@ -2 +2 @@
 use warnings;
 use Test::Base;
-use HTTP::MobileAttribute;
+use HTTP::MobileAttribute plugins => [qw/Core XHTMLCompliant Carrier IS::ThirdForce/];
 
 filters {