Changeset 8661

Show
Ignore:
Timestamp:
04/02/08 18:53:44 (5 years ago)
Author:
tokuhirom
Message:

Display のへんを適当に実装してみた

Location:
lang/perl/HTTP-MobileAttribute/trunk
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-MobileAttribute/trunk/t/05_display.t

    r8596 r8661  
    11use strict; 
    2 use Test::More tests => 38; 
     2use warnings; 
     3use Test::More tests => 28; 
    34 
    45use HTTP::MobileAttribute; 
    … …  
    2627    [ { HTTP_USER_AGENT => 'DoCoMo/2.0 N703imyu' }, 
    2728      { width => 240, height => 270, color => 1, depth => 262144 } ], 
    28     [ { HTTP_USER_AGENT => "DoCoMo/1.0/D505i/c20/TC/W20H10" }, 
    29       { width_bytes => 20, height_bytes => 10 } ], 
    3029); 
     30 
     31HTTP::MobileAttribute->load_plugins(qw/Display/); 
    3132 
    3233for (@Tests) { 
    … …  
    3536    my $ua = HTTP::MobileAttribute->new; 
    3637    my $display = $ua->display; 
    37     isa_ok $display, 'HTTP::MobileAttribute::Display'; 
    3838    for my $method (keys %$values) { 
    3939        is $display->$method(), $values->{$method}, "$method = $values->{$method}";