| Subject: | Fail to test on Win32 |
Due to difference of path delimiter.
| Subject: | 06_multiple.t.diff |
--- t\06_multiple.t.org Wed Oct 22 19:09:44 2008
+++ t\06_multiple.t Wed Nov 19 06:30:01 2008
@@ -25,7 +25,7 @@
isa_ok $module, 'Module::Collect::Package';
ok !grep { $_ eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
ok $module->require;
- ok grep { $_ eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
+ ok grep { canonpath($_) eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
my $obj = $module->new({ three => 3 });
ok $obj;
@@ -37,9 +37,9 @@
# ThreeBar
my ($module) = grep { $_->package eq 'ThreeBar' } @{ $collect->modules };
isa_ok $module, 'Module::Collect::Package';
- ok grep { $_ eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
+ ok grep { canonpath($_) eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
ok $module->require;
- ok grep { $_ eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
+ ok grep { canonpath($_) eq catfile('t', 'plugin3', 'three.pm') } keys %INC;
my $obj = $module->new({ three => 3 });
ok $obj;
| Subject: | 05_require.t.diff |
--- t\05_require.t.org Wed Oct 01 23:35:29 2008
+++ t\05_require.t Wed Nov 19 06:28:46 2008
@@ -11,7 +11,7 @@
my($module) = grep { $_->package eq 'One' } @{ $collect->modules };
isa_ok $module, 'Module::Collect::Package';
ok $module->require;
-ok grep {$_ eq catfile('t', 'plugin1', 'one.pm')} keys %INC;
+ok grep {canonpath($_) eq catfile('t', 'plugin1', 'one.pm')} keys %INC;
my $obj = $module->new;
ok $obj;
@@ -28,7 +28,7 @@
like $@, qr/Can't locate object method "new" via package "Two"/;
};
is $module2->package->two, 2;
-is $module2->path, catfile(qw/ t plugin2 two.pm/);
+is canonpath($module2->path), catfile(qw/ t plugin2 two.pm/);
is $module2->package, 'Two';
my($module3) = grep { $_->package eq 'two2' } @{ $collect->modules };