Changeset 21611 for lang/perl/Net-CIDR-MobileJP

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:

• 02.yaml-pp.t (modified) (1 diff)
• 03.yaml-syck.t (modified) (1 diff)

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

@@ -6 +6 @@
 use t::Utils;
 
+# plan skip_all => 'this test requires YAML::Syck' unless $INC{'YAML/Syck.pm'};
 plan tests => 3;
 
-is $INC{'YAML/Syck.pm'}, 't/testlib/YAML/Syck.pm';
 ok $INC{'YAML.pm'};
+is $Net::CIDR::MobileJP::yaml_loader, \&YAML::LoadFile;
 t::Utils->check();
 

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

@@ -7 +7 @@
 eval "use YAML::Syck";
 plan skip_all => "missing YAML::Syck" if $@;
-plan tests => 3;
+plan tests => 4;
 
 ok $INC{'YAML/Syck.pm'};
 ok !$INC{'YAML.pm'};
+is $Net::CIDR::MobileJP::yaml_loader, \&YAML::Syck::LoadFile;
 t::Utils->check();