From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 29 May 2001 23:23:45 +0000 (-0500)
Subject: fix extutils.t and autouse.t for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2487403058374808c346479712397733bb789089;p=p5sagit%2Fp5-mst-13.2.git

fix extutils.t and autouse.t for VMS
Message-Id: <a05100e01b73a21721dee@[192.168.56.153]>

p4raw-id: //depot/perl@10314
---

diff --git a/t/lib/extutils.t b/t/lib/extutils.t
index cc34740..27512fe 100644
--- a/t/lib/extutils.t
+++ b/t/lib/extutils.t
@@ -163,12 +163,15 @@ WriteMakefile(
                (#ABSTRACT_FROM => "$package.pm", # XXX add this
                 AUTHOR     => $0) : ())
              );
-if (-f "Makefile") {
+my $makefile = ($^O eq 'VMS' ? 'descrip' : 'Makefile');
+my $makefile_ext = ($^O eq 'VMS' ? '.mms' : '');
+if (-f "$makefile$makefile_ext") {
   print "ok 1\n";
 } else {
   print "not ok 1\n";
 }
-push @files, "Makefile.old"; # Renamed by make clean
+my $makefile_rename = ($^O eq 'VMS' ? '.mms' : '.old');
+push @files, "$makefile$makefile_rename"; # Renamed by make clean
 
 my $make = $Config{make};
 
diff --git a/t/pragma/autouse.t b/t/pragma/autouse.t
index 0120ed0..3dc5483 100644
--- a/t/pragma/autouse.t
+++ b/t/pragma/autouse.t
@@ -42,11 +42,12 @@ use autouse 'Carp' => qw(carp croak);
 
 
 # Test that autouse's lazy module loading works.  We assume that nothing
-# involved in this test uses Test::Soundex, which is pretty safe.
+# involved in this test uses Text::Soundex, which is pretty safe.
 use File::Spec;
 use autouse 'Text::Soundex' => qw(soundex);
 
 my $mod_file = File::Spec->catfile(qw(Text Soundex.pm));
+$mod_file = VMS::Filespec::unixify($mod_file) if $^O eq 'VMS';
 ok( !exists $INC{$mod_file} );
 ok( soundex('Basset'), 'B230' );
 ok( exists $INC{$mod_file} );