Changeset 21611

Show
Ignore:
Timestamp:
10/19/08 13:50:42 (5 years ago)
Author:
tokuhirom
Message:

fixed test bug

Location:
lang/perl/Net-CIDR-MobileJP/trunk/t
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-CIDR-MobileJP/trunk/t/02.yaml-pp.t

    r17904 r21611  
    66use t::Utils; 
    77 
     8# plan skip_all => 'this test requires YAML::Syck' unless $INC{'YAML/Syck.pm'}; 
    89plan tests => 3; 
    910 
    10 is $INC{'YAML/Syck.pm'}, 't/testlib/YAML/Syck.pm'; 
    1111ok $INC{'YAML.pm'}; 
     12is $Net::CIDR::MobileJP::yaml_loader, \&YAML::LoadFile; 
    1213t::Utils->check(); 
    1314 

  • lang/perl/Net-CIDR-MobileJP/trunk/t/03.yaml-syck.t

    r17904 r21611  
    77eval "use YAML::Syck"; 
    88plan skip_all => "missing YAML::Syck" if $@; 
    9 plan tests => 3; 
     9plan tests => 4; 
    1010 
    1111ok $INC{'YAML/Syck.pm'}; 
    1212ok !$INC{'YAML.pm'}; 
     13is $Net::CIDR::MobileJP::yaml_loader, \&YAML::Syck::LoadFile; 
    1314t::Utils->check(); 
    1415