From: Gerrit P. Haase <gp@familiehaase.de>
Date: Tue, 16 Oct 2001 15:01:04 +0000 (+0200)
Subject: [ PATCH ] maint/perl/t/io/fs.t for build on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73077d539ecc1b3cdb02af89ac34a6328eef1a86;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH ] maint/perl/t/io/fs.t for build on Cygwin
Message-ID: <3BCC4BB0.30935.2145B7@localhost>

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

diff --git a/t/io/fs.t b/t/io/fs.t
index bd07833..8a700b2 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -245,14 +245,21 @@ else {
 }
 
 # check if rename() can be used to just change case of filename
-chdir './tmp';
-open(fh,'>x') || die "Can't create x";
-close(fh);
-rename('x', 'X');
-print 'not ' unless -e 'X';
-print "ok 27\n";
-unlink 'X';
-chdir $wd || die "Can't cd back to $wd";
+if ($^O eq 'cygwin') {
+  print "ok 27 # skipped: works only if check_case is set to relaxed.\n";
+} else { 
+  chdir './tmp';
+  open(fh,'>x') || die "Can't create x";
+  close(fh);
+  rename('x', 'X');
+  
+  # this works on win32 only, because fs isn't casesensitive
+  print 'not ' unless -e 'X'; 
+  
+  print "ok 27\n";
+  unlink 'X';
+  chdir $wd || die "Can't cd back to $wd";
+}
 
 # check if rename() works on directories
 if ($Is_VMSish) {
@@ -267,4 +274,5 @@ print "ok 28\n";
 -d 'tmp1' or print "not ";
 print "ok 29\n";
 
-END { rmdir 'tmp1'; 1 while unlink "Iofs.tmp"; }
+# need to remove 'tmp' if rename() in test 28 failed!
+END { rmdir 'tmp1'; rmdir 'tmp'; unlink "Iofs.tmp"; }