This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Cwd 2.16
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Mar 2004 15:27:38 +0000 (15:27 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Mar 2004 15:27:38 +0000 (15:27 +0000)
p4raw-id: //depot/perl@22470

ext/Cwd/Changes
ext/Cwd/t/cwd.t
lib/Cwd.pm

index 01d20ed..c3158ba 100644 (file)
@@ -1,5 +1,11 @@
 Revision history for Perl extension Cwd.
 
+2.16  Sat Mar  6 17:56:31 CST 2004
+
+ - For VMS compatibility (and to conform to Cwd's documented
+   interface), in the regression tests we now compare output results
+   to an absolute path. [Craig A. Berry]
+
 2.15  Fri Jan 16 08:09:44 CST 2004
 
  - Fixed a problem on static perl builds - while creating
index 3644833..fbd8133 100644 (file)
@@ -89,8 +89,9 @@ SKIP: {
     }
 }
 
-my @test_dirs = qw{_ptrslt_ _path_ _to_ _a_ _dir_};
-my $Test_Dir     = File::Spec->catdir(@test_dirs);
+my $Top_Test_Dir = '_ptrslt_';
+my $Test_Dir     = File::Spec->catdir($Top_Test_Dir, qw/_path_ _to_ _a_ _dir_/);
+my $want = quotemeta File::Spec->rel2abs($Test_Dir);
 
 mkpath([$Test_Dir], 0, 0777);
 Cwd::chdir $Test_Dir;
@@ -98,11 +99,11 @@ Cwd::chdir $Test_Dir;
 foreach my $func (qw(cwd getcwd fastcwd fastgetcwd)) {
   my $result = eval "$func()";
   is $@, '';
-  dir_ends_with( $result, $Test_Dir, "$func()" );
+  like( File::Spec->canonpath($result), qr|$want$|i, "$func()" );
 }
 
 # Cwd::chdir should also update $ENV{PWD}
-dir_ends_with( $ENV{PWD}, $Test_Dir, 'Cwd::chdir() updates $ENV{PWD}' );
+like(File::Spec->canonpath($ENV{PWD}), qr|$want$|i,      'Cwd::chdir() updates $ENV{PWD}');
 my $updir = File::Spec->updir;
 Cwd::chdir $updir;
 print "#$ENV{PWD}\n";
@@ -115,7 +116,7 @@ print "#$ENV{PWD}\n";
 Cwd::chdir $updir;
 print "#$ENV{PWD}\n";
 
-rmtree($test_dirs[0], 0, 0);
+rmtree([$Top_Test_Dir], 0, 0);
 
 {
   my $check = ($IsVMS   ? qr|\b((?i)t)\]$| :
@@ -138,22 +139,6 @@ SKIP: {
     like($abs_path,      qr|$want$|);
     like($fast_abs_path, qr|$want$|);
 
-    rmtree($test_dirs[0], 0, 0);
+    rmtree([$Top_Test_Dir], 0, 0);
     unlink "linktest";
 }
-
-#############################################
-# These two routines give us sort of a poor-man's cross-platform
-# directory comparison routine.
-
-sub bracketed_form {
-  return join '', map "[$_]",
-    grep length, File::Spec->splitdir(File::Spec->canonpath( shift() ));
-}
-
-sub dir_ends_with {
-  my ($dir, $expect) = (shift, shift);
-  my $bracketed_expect = quotemeta bracketed_form($expect);
-  like( bracketed_form($dir), qr|$bracketed_expect$|i, (@_ ? shift : ()) );
-}
-
index 2757fd6..283ac74 100644 (file)
@@ -1,5 +1,5 @@
 package Cwd;
-$VERSION = $VERSION = '2.15';
+$VERSION = $VERSION = '2.16';
 
 =head1 NAME