Re: [EMAIL PROTECTED] fixes for cpanplus on VMS

[Jos I. Boumans]

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