root/lang/perl/HTTP-MobileAttribute/trunk/t/04_ezweb.t @ 8557

Revision 8557, 7.5 kB (checked in by yappo, 5 years ago)

lang/perl/HTTP-MobileAttribute?: HTTP::MobileAgent? からテストを持ってきたよ

Line 
1use strict;
2use Test::More tests => 508;
3
4BEGIN { use_ok 'HTTP::MobileAttribute' }
5
6my @Tests = (
7    # ua, version, device_id, server, xhtml_compliant, comment, is_wap1, is_wap2
8    [ 'UP.Browser/3.01-HI01 UP.Link/3.4.5.2',
9      '3.01', 'HI01', 'UP.Link/3.4.5.2', undef, undef, 1, undef ],
10    [ 'KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1',
11      '6.0.2.276 (GUI)', 'TS21', 'MMP/1.1', 1, undef, undef, 1 ],
12    [ 'UP.Browser/3.04-TS14 UP.Link/3.4.4 (Google WAP Proxy/1.0)',
13      '3.04', 'TS14', 'UP.Link/3.4.4', undef, 'Google WAP Proxy/1.0', 1, undef ],
14    [ 'UP.Browser/3.04-TST4 UP.Link/3.4.5.6',
15      '3.04', 'TST4', 'UP.Link/3.4.5.6', undef, undef, 1, undef ],
16    [ 'KDDI-KCU1 UP.Browser/6.2.0.5.1 (GUI) MMP/2.0',
17      '6.2.0.5.1 (GUI)', 'KCU1', 'MMP/2.0', 1, undef, undef, 1 ],
18    [ 'KDDI-SN31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0',
19      '6.2.0.7.3.129 (GUI)','SN31','MMP/2.0', 1, undef, undef, 1 ],
20);
21
22for (@Tests) {
23    my($ua, @data) = @$_;
24    my $agent = HTTP::MobileAttribute->new($ua);
25    isa_ok $agent, 'HTTP::MobileAttribute';
26    isa_ok $agent, 'HTTP::MobileAttribute::EZweb';
27    is $agent->name, 'UP.Browser';
28    ok !$agent->is_docomo && !$agent->is_j_phone && !$agent->is_vodafone && $agent->is_ezweb;
29    is $agent->user_agent, $ua,        "ua is $ua";
30
31    is $agent->version, $data[0];
32    is $agent->device_id, $data[1];
33    is $agent->server, $data[2];
34    is $agent->xhtml_compliant, $data[3];
35    is $agent->comment, $data[4];
36    ok $agent->is_wap1 if $data[5];
37    ok $agent->is_wap2 if $data[6];
38
39    if ($ua eq 'UP.Browser/3.04-TST4 UP.Link/3.4.5.6'
40        or $ua eq 'KDDI-KCU1 UP.Browser/6.2.0.5.1 (GUI) MMP/2.0'){
41        ok $agent->is_tuka;
42    } else {
43        ok !$agent->is_tuka;
44    }
45
46    if ($ua eq 'KDDI-SN31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0'){
47        ok $agent->is_win;
48    } else {
49        ok !$agent->is_win;
50    }
51}
52
53while (<DATA>) {
54    next if /^#/;
55    chomp;
56    local $ENV{HTTP_USER_AGENT} = $_;
57    my $agent = HTTP::MobileAttribute->new;
58    isa_ok $agent, 'HTTP::MobileAttribute', "$_";
59    is $agent->name, 'UP.Browser';
60    ok !$agent->is_docomo && !$agent->is_j_phone && !$agent->is_vodafone && $agent->is_ezweb;
61}
62
63__END__
64KDDI-CA21 UP.Browser/6.0.6 (GUI) MMP/1.1
65KDDI-CA21 UP.Browser/6.0.7.1 (GUI) MMP/1.1
66KDDI-HI21 UP.Browser/6.0.2.213 (GUI) MMP/1.1
67KDDI-HI21 UP.Browser/6.0.2.273 (GUI) MMP/1.1
68KDDI-HI21 UP.Browser/6.0.6 (GUI) MMP/1.1
69KDDI-KC21 UP.Browser/6.0.2.273 (GUI) MMP/1.1
70KDDI-KC21 UP.Browser/6.0.5 (GUI) MMP/1.1
71KDDI-KC21 UP.Browser/6.0.6 (GUI) MMP/1.1
72KDDI-MA21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
73KDDI-MA21 UP.Browser/6.0.5 (GUI) MMP/1.1
74KDDI-MA21 UP.Browser/6.0.6 (GUI) MMP/1.1
75KDDI-MA21 UP.Browser/6.0.7 (GUI) MMP/1.1
76KDDI-SA21 UP.Browser/6.0.6 (GUI) MMP/1.1
77KDDI-SA21 UP.Browser/6.0.7 (GUI) MMP/1.1
78KDDI-SA21 UP.Browser/6.0.7.1 (GUI) MMP/1.1
79KDDI-SA22 UP.Browser/6.0.7.2 (GUI) MMP/1.1
80KDDI-SN21 UP.Browser/6.0.7 (GUI) MMP/1.1
81KDDI-SN22 UP.Browser/6.0.7 (GUI) MMP/1.1
82KDDI-TS21 UP.Browser/6.0.2.273 (GUI) MMP/1.1
83KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
84KDDI-TS21 UP.Browser/6.0.5.287 (GUI) MMP/1.1
85KDDI-TS21 UP.Browser/6.0.6 (GUI) MMP/1.1
86KDDI-TS22 UP.Browser/6.0.6 (GUI) MMP/1.1
87KDDI-TS22 UP.Browser/6.0.7.1 (GUI) MMP/1.1
88KDDI-TS2A UP.Browser/6.2.0.9 (GUI) MMP/2.0
89UP.Browser/3.01-HI01 UP.Link/3.4.5.2
90UP.Browser/3.01-HI02 UP.Link/3.2.1.2
91UP.Browser/3.03-HI11 UP.Link/3.2.2.7c
92UP.Browser/3.03-HI11 UP.Link/3.4.4
93UP.Browser/3.03-KCT3 UP.Link/3.4.4
94UP.Browser/3.03-SYC1 UP.Link/3.4.4
95UP.Browser/3.03-TS11 UP.Link/3.2.2.7c
96UP.Browser/3.03-TST1 UP.Link/3.2.2.7c
97UP.Browser/3.04-CA11 UP.Link/3.2.2.7c
98UP.Browser/3.04-CA11 UP.Link/3.3.0.3
99UP.Browser/3.04-CA11 UP.Link/3.3.0.5
100UP.Browser/3.04-CA11 UP.Link/3.4.4
101UP.Browser/3.04-CA12 UP.Link/3.4.4
102UP.Browser/3.04-CA13 UP.Link/3.3.0.5
103UP.Browser/3.04-CA13 UP.Link/3.4.4
104UP.Browser/3.04-CA14 UP.Link/3.4.4
105UP.Browser/3.04-DN11 UP.Link/3.3.0.1
106UP.Browser/3.04-DN11 UP.Link/3.4.4
107UP.Browser/3.04-HI11 UP.Link/3.2.2.7c
108UP.Browser/3.04-HI11 UP.Link/3.4.4
109UP.Browser/3.04-HI12 UP.Link/3.2.2.7c
110UP.Browser/3.04-HI12 UP.Link/3.3.0.3
111UP.Browser/3.04-HI12 UP.Link/3.4.4
112UP.Browser/3.04-HI12 UP.Link/3.4.4 (Google WAP Proxy/1.0)
113UP.Browser/3.04-HI13 UP.Link/3.4.4
114UP.Browser/3.04-HI14 UP.Link/3.4.4
115UP.Browser/3.04-HI14 UP.Link/3.4.5.2
116UP.Browser/3.04-KC11 UP.Link/3.4.4
117UP.Browser/3.04-KC12 UP.Link/3.4.4
118UP.Browser/3.04-KC13 UP.Link/3.4.4
119UP.Browser/3.04-KC14 UP.Link/3.4.4
120UP.Browser/3.04-KC15 UP.Link/3.4.4
121UP.Browser/3.04-KCT4 UP.Link/3.4.4
122UP.Browser/3.04-KCT5 UP.Link/3.4.4
123UP.Browser/3.04-KCT6 UP.Link/3.4.4
124UP.Browser/3.04-KCT7 UP.Link/3.4.4
125UP.Browser/3.04-KCT8 UP.Link/3.4.4
126UP.Browser/3.04-KCT9 UP.Link/3.4.4
127UP.Browser/3.04-MA11 UP.Link/3.2.2.7c
128UP.Browser/3.04-MA11 UP.Link/3.3.0.3
129UP.Browser/3.04-MA11 UP.Link/3.3.0.5
130UP.Browser/3.04-MA11 UP.Link/3.4.4
131UP.Browser/3.04-MA12 UP.Link/3.2.2.7c
132UP.Browser/3.04-MA12 UP.Link/3.3.0.5
133UP.Browser/3.04-MA12 UP.Link/3.4.4
134UP.Browser/3.04-MA12 UP.Link/3.4.4 (Google WAP Proxy/1.0)
135UP.Browser/3.04-MA13 UP.Link/3.3.0.5
136UP.Browser/3.04-MA13 UP.Link/3.4.4
137UP.Browser/3.04-MA13 UP.Link/3.4.4 (Google WAP Proxy/1.0)
138UP.Browser/3.04-MA13 UP.Link/3.4.5.2
139UP.Browser/3.04-MAC2 UP.Link/3.4.4
140UP.Browser/3.04-MAI1 UP.Link/3.2.2.7c
141UP.Browser/3.04-MAI2 UP.Link/3.2.2.7c
142UP.Browser/3.04-MAI2 UP.Link/3.4.4
143UP.Browser/3.04-MAT1 UP.Link/3.3.0.3
144UP.Browser/3.04-MAT3 UP.Link/3.4.4
145UP.Browser/3.04-MIT1 UP.Link/3.3.0.3
146UP.Browser/3.04-MIT1 UP.Link/3.4.4
147UP.Browser/3.04-MIT1 UP.Link/3.4.5.2
148UP.Browser/3.04-SN11 UP.Link/3.2.2.7c
149UP.Browser/3.04-SN11 UP.Link/3.3.0.3
150UP.Browser/3.04-SN11 UP.Link/3.4.4
151UP.Browser/3.04-SN11 UP.Link/3.4.4 (Google WAP Proxy/1.0)
152UP.Browser/3.04-SN12 UP.Link/3.3.0.1
153UP.Browser/3.04-SN12 UP.Link/3.3.0.5
154UP.Browser/3.04-SN12 UP.Link/3.4.4
155UP.Browser/3.04-SN12 UP.Link/3.4.5.2
156UP.Browser/3.04-SN13 UP.Link/3.3.0.3
157UP.Browser/3.04-SN13 UP.Link/3.3.0.5
158UP.Browser/3.04-SN13 UP.Link/3.4.4
159UP.Browser/3.04-SN14 UP.Link/3.4.4
160UP.Browser/3.04-SN14 UP.Link/3.4.5.2
161UP.Browser/3.04-SN15 UP.Link/3.4.4
162UP.Browser/3.04-SN15 UP.Link/3.4.5.2
163UP.Browser/3.04-SN16 UP.Link/3.4.4
164UP.Browser/3.04-SN17 UP.Link/3.4.4
165UP.Browser/3.04-SNI1 UP.Link/3.4.4
166UP.Browser/3.04-ST11 UP.Link/3.3.0.1
167UP.Browser/3.04-ST11 UP.Link/3.3.0.5
168UP.Browser/3.04-ST11 UP.Link/3.4.4
169UP.Browser/3.04-ST12 UP.Link/3.4.4
170UP.Browser/3.04-ST13 UP.Link/3.4.4
171UP.Browser/3.04-SY11 UP.Link/3.2.2.7c
172UP.Browser/3.04-SY11 UP.Link/3.4.4
173UP.Browser/3.04-SY12 UP.Link/3.3.0.1
174UP.Browser/3.04-SY12 UP.Link/3.3.0.3
175UP.Browser/3.04-SY12 UP.Link/3.3.0.5
176UP.Browser/3.04-SY12 UP.Link/3.4.4
177UP.Browser/3.04-SY12 UP.Link/3.4.5.2
178UP.Browser/3.04-SY12 UP.Link/3.4.5.6
179UP.Browser/3.04-SY13 UP.Link/3.4.4
180UP.Browser/3.04-SY14 UP.Link/3.4.4
181UP.Browser/3.04-SY15 UP.Link/3.4.4
182UP.Browser/3.04-SYT3 UP.Link/3.4.4
183UP.Browser/3.04-SYT3 UP.Link/3.4.5.2
184UP.Browser/3.04-TS11 UP.Link/3.2.2.7c
185UP.Browser/3.04-TS11 UP.Link/3.3.0.5
186UP.Browser/3.04-TS11 UP.Link/3.4.4
187UP.Browser/3.04-TS12 UP.Link/3.2.2.7c
188UP.Browser/3.04-TS12 UP.Link/3.3.0.1
189UP.Browser/3.04-TS12 UP.Link/3.3.0.3
190UP.Browser/3.04-TS12 UP.Link/3.3.0.5
191UP.Browser/3.04-TS12 UP.Link/3.4.4
192UP.Browser/3.04-TS13 UP.Link/3.4.4
193UP.Browser/3.04-TS14 UP.Link/3.4.4
194UP.Browser/3.04-TS14 UP.Link/3.4.4 (Google WAP Proxy/1.0)
195UP.Browser/3.04-TS14 UP.Link/3.4.5.2
196UP.Browser/3.04-TSI1 UP.Link/3.2.2.7c
197UP.Browser/3.04-TST3 UP.Link/3.4.4
198UP.Browser/3.04-TST4 UP.Link/3.4.4
199UP.Browser/3.04-TST4 UP.Link/3.4.5.2
200UP.Browser/3.04-TST4 UP.Link/3.4.5.6
201UP.Browser/3.04-TST5 UP.Link/3.4.4
202UP.Browser/3.1-NT95 UP.Link/3.2
203UP.Browser/3.1-SY11 UP.Link/3.2
204UP.Browser/3.1-UPG1 UP.Link/3.2
205UP.Browser/3.2.9.1-SA12 UP.Link/3.2
206UP.Browser/3.2.9.1-UPG1 UP.Link/3.2
Note: See TracBrowser for help on using the browser.