root/lang/perl/WWW-MobileCarrierJP/trunk/t/01_ez_modelmap.t @ 2782

Revision 2782, 310 bytes (checked in by tokuhirom, 7 years ago)

lang/perl/WWW-MobileCarrierJP: rename modules.

Line 
1use strict;
2use warnings;
3use Test::More tests => 4;
4use WWW::MobileCarrierJP::EZWeb::Model;
5
6my $info = WWW::MobileCarrierJP::EZWeb::Model->scrape;
7is ref($info), 'ARRAY';
8ok scalar(@$info) > 30;
9ok scalar(grep /1/, map { $_->{is_color} } @$info) > 30;
10is scalar(grep /0/, map { $_->{is_color} } @$info), 8;
11
Note: See TracBrowser for help on using the browser.