On 03 Sep 2007, at 21:25, John E. Malmberg wrote:
Jos I. Boumans wrote:
On Sep 3, 2007, at 12:23 AM, John E. Malmberg wrote:
While there are still some CPANPLUS tests that are not working
on VMS, these patches improve things.
I'll review these patches shortly, thanks for sending them john.
With the patch that I just submitted, I am now down to 3 issues for
CPANPLUS in blead on VMS.
00_CPANPLUS-Internals-Utils.t
not ok 4 - Cwd() is 'foo'
# Failed test ' Cwd() is 'foo''
# at [-.lib.cpanplus.t]00_cpanplus-internals-utils.t line 37.
# got: 'PROJECT_ROOT:[PERL-BLEAD.lib.CPANPLUS.t.FOO]'
# expected: 'PROJECT_ROOT:[PERL-BLEAD.LIB.CPANPLUS.T.foo]'
This test needs to follow File::Spec->case_tolerant, and I have not
yet figured out the best way to do that.
As outlined in another thread about module::build and case tolerance,
only certain values of Unix FS are
case*IN*tolerant, so i've changed the test as follows:
--- t/00_CPANPLUS-Internals-Utils.t (revision 2237)
+++ t/00_CPANPLUS-Internals-Utils.t (local)
@@ -37,7 +37,8 @@
is( File::Spec->rel2abs(cwd()), File::Spec->rel2abs(File::Spec-
>catdir($Cwd,$Dir)),
" Cwd() is '$Dir'");
ok( $Class->_chdir( dir => $Cwd), "Chdir back to '$Cwd'" );
- is( File::Spec->rel2abs(cwd()),$Cwd," Cwd() is '$Cwd'" );
+ like( File::Spec->rel2abs(cwd()), qr/$Cwd/i,
+ " Cwd() is '$Cwd'" );
}
Which covers our cases well enough I think.
Thanks for reporting,
-- Jos
