| Subject: | 01.api.t and 03.view.t |
Dear Ian,
As you can see from my cpan-testers report #2650561,
01.api.t and 03.view.t resulted in failure because of MS Windows paths.
Could you adopt the way to keep cross-platform as follows?
--- 01.api.t.orig Mon Nov 24 12:17:31 2008
+++ 01.api.t Mon Nov 24 12:19:44 2008
@@ -3,6 +3,7 @@
use strict;
use warnings;
use FindBin;
+use File::Spec;
use lib $FindBin::Bin . '/lib';
@@ -32,5 +33,5 @@
is( $cow->template_src_ext, '.tt', 'template source ext' );
-is( $cow->template_src_base, $FindBin::Bin . '/lib', 'template source base' );
+is( $cow->template_src_base, File::Spec->catdir($FindBin::Bin . '/lib'), 'template source
base' );
--- 03.view.t.orig Mon Nov 24 12:20:37 2008
+++ 03.view.t Mon Nov 24 12:30:51 2008
@@ -4,6 +4,7 @@
use warnings;
use FindBin;
use File::Slurp;
+use File::Spec;
use lib $FindBin::Bin . '/lib';
use Farm::Cow;
@@ -33,7 +34,7 @@
my $alt_ext = '.tt2';
my $alt_path = $FindBin::Bin . '/tt2_src';
-my $alt_file = $alt_path . "/Farm/Cow.tt2";
+my $alt_file = File::Spec->catfile($alt_path, "Farm/Cow.tt2");
my $alt_src = read_file( $alt_file );
is( $view->build_src_path( base => $alt_path, ext => $alt_ext),
Best regards,
Taro Nishino