Changeset 16834

Timestamp:

07/30/08 10:21:34 (5 years ago)

Author:

tokuhirom

Message:

TUUUUKAAAA ISSSSSSS DEADDDDDDDDDDDDDDD!!!!!!

Files:

• lang/perl/WWW-MobileCarrierJP/trunk/t/01_ez_modelmap.t (modified) (2 diffs)

lang/perl/WWW-MobileCarrierJP/trunk/t/01_ez_modelmap.t

@@ -9 +9 @@
 
 ok scalar( grep { $_ } map { $_->{is_color} } @$info ) > 30, 'color';
-is scalar( grep { not defined $_ } map { $_->{is_color} } @$info ), 1;
+is scalar( grep { not defined $_ } map { $_->{is_color} } @$info ), 0;
 
 cmp_ok scalar( grep { $_ } map { $_->{gif} } @$info ), '>', 30, 'gif';
-is scalar( grep { not defined $_ } map { $_->{gif} } @$info ), 25;
+is scalar( grep { not defined $_ } map { $_->{gif} } @$info ), 0;
 
 cmp_ok scalar( grep { $_ } map { $_->{png} } @$info ), '>', 30, 'png';
@@ -18 +18 @@
 
 cmp_ok scalar( grep { $_ } map { $_->{jpeg} } @$info ), '>', 30, 'jpeg';
-is scalar( grep { not defined $_ } map { $_->{jpeg} } @$info ), 18;
+is scalar( grep { not defined $_ } map { $_->{jpeg} } @$info ), 0;
 
 cmp_ok scalar( grep { $_ && $_ eq '2.0' } map { $_->{flash_lite} } @$info ), '>', 30, 'flash lite 2.0';
 is scalar( grep { $_ && $_ eq '1.1' } map { $_->{flash_lite} } @$info ), 51, 'flash lite 1.1';
-is scalar( grep { not defined $_ } map { $_->{jpeg} } @$info ), 18, 'no flash lite';
+is scalar( grep { not defined $_ } map { $_->{flash_lite} } @$info ), 53, 'no flash lite';
 
 my ($w55t, ) = grep { $_->{model_long} eq 'W55T' } @$info;