root/lang/perl/WWW-MobileCarrierJP/trunk/t/10_thirdforce_service.t @ 11717

Revision 11717, 2.8 kB (checked in by tokuhirom, 7 years ago)

added scraper for thirdforce service info.

Line 
1use strict;
2use warnings;
3use Test::Base;
4use WWW::MobileCarrierJP::ThirdForce::Service;
5
6plan tests => 1 + 2*blocks;
7
8my $res;
9if ($ENV{YAML}) {
10    require YAML;
11    $res = YAML::LoadFile($ENV{YAML});
12} else {
13    $res = WWW::MobileCarrierJP::ThirdForce::Service->scrape();
14}
15
16cmp_ok scalar(@$res), '>', 100, 'thirdforce has many phones';
17
18filters { info => [qw/yaml/] };
19run {
20    my $block = shift;
21    check($block->info);
22};
23
24sub check {
25    my ($info, ) = @_;
26    my ($model, ) = grep { $_->{model} eq $info->{model} } @$res;
27    ok $model, "got a $info->{model} phone info";
28    is_deeply $model => $info, "check the $info->{model}";
29}
30
31#   do {
32#       my $disney_mobile = grep { $_->{model} eq 'DM001SH' } @$res;
33#       ok $disney_mobile, "got a disney mobile phone's info";
34#   #  is_deeply {felica => 1,
35#   #  - felica: 0
36#   #  flashlite: 2.0
37#   #  gps_agps: 0
38#   #  gps_basic: 0
39#   #  model: 820SC
40#   #  pc_browser: 1
41#   #  sappli: 1
42#   };
43
44
45__END__
46
47===
48--- info
49model      : DM001SH
50flashlite  : 2.0
51sappli     : 1
52gps_basic  : 1
53gps_agps   : 0
54felica     : 1
55pc_browser : 1
56
57===
58--- info
59model      : 820SC
60flashlite  : 2.0
61sappli     : 1
62gps_basic  : 0
63gps_agps   : 0
64felica     : 0
65pc_browser : 1
66
67===
68--- info
69model      : 706SC
70flashlite  : ~
71sappli     : 1
72gps_basic  : 0
73gps_agps   : 0
74felica     : 0
75pc_browser : 0
76
77===
78--- info
79model      : 702MO
80flashlite  : ~
81sappli     : 1
82gps_basic  : 0
83gps_agps   : 0
84felica     : 0
85pc_browser : 0
86
87===
88--- info
89model      : 804NK
90flashlite  : ~
91sappli     : 1
92gps_basic  : 0
93gps_agps   : 0
94felica     : 0
95pc_browser : 0
96
97===
98--- info
99model      : 703SH
100flashlite  : 1.1
101sappli     : 1
102gps_basic  : 1
103gps_agps   : 0
104felica     : 0
105pc_browser : 0
106
107===
108--- info
109model      : V801SH
110flashlite  : ~
111sappli     : 1
112gps_basic  : 0
113gps_agps   : 0
114felica     : 0
115pc_browser : 0
116
117===
118--- info
119model      : V801SA
120flashlite  : ~
121sappli     : 1
122gps_basic  : 0
123gps_agps   : 0
124felica     : 0
125pc_browser : 0
126
127===
128--- info
129model      : V604T
130flashlite  : ~
131sappli     : 1
132gps_basic  : 1
133gps_agps   : 0
134felica     : 0
135pc_browser : 0
136
137===
138--- info
139model      : V601SH
140flashlite  : ~
141sappli     : 1
142gps_basic  : 1
143gps_agps   : 0
144felica     : 0
145pc_browser : 0
146
147===
148--- info
149model      : V601N
150flashlite  : ~
151sappli     : 1
152gps_basic  : 1
153gps_agps   : 0
154felica     : 0
155pc_browser : 0
156
157===
158--- info
159model      : V403SH
160flashlite  : ~
161sappli     : 1
162gps_basic  : 1
163gps_agps   : 0
164felica     : 0
165pc_browser : 0
166
167===
168--- info
169model      : J-SH07
170flashlite  : ~
171sappli     : 1
172gps_basic  : 1
173gps_agps   : 0
174felica     : 0
175pc_browser : 0
176
177===
178--- info
179model      : 304T
180flashlite  : ~
181sappli     : 0
182gps_basic  : 1
183gps_agps   : 0
184felica     : 0
185pc_browser : 0
186
187===
188--- info
189model      : J-SH02
190flashlite  : ~
191sappli     : 0
192gps_basic  : 0
193gps_agps   : 0
194felica     : 0
195pc_browser : 0
196
197
Note: See TracBrowser for help on using the browser.