From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 25 Jun 2007 10:23:15 +0000 (-0400)
Subject: Accept file exists error in ext/Win32API/File/t/file.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbd94dceff637dba4a157f04ea2f028bb3baf9c7;p=p5sagit%2Fp5-mst-13.2.git

Accept file exists error in ext/Win32API/File/t/file.t
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706250723r4d6c5f5dg203b3f61cdeaa14d@mail.gmail.com>

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

diff --git a/ext/Win32API/File/t/file.t b/ext/Win32API/File/t/file.t
index 567652c..0840feb 100644
--- a/ext/Win32API/File/t/file.t
+++ b/ext/Win32API/File/t/file.t
@@ -222,7 +222,8 @@ $ok or print "# ",fileLastError(),"\n";
 print $ok ? "" : "not ", "ok ", ++$test, "\n";	# ok 30
 
 $ok= ! MoveFileEx( "CanWrite.txt", "ReadOnly.cp", MOVEFILE_REPLACE_EXISTING )
- &&  Win32API::File::_fileLastError() == 5; # access is denied
+ &&  (Win32API::File::_fileLastError() == 5     # access is denied
+ ||   Win32API::File::_fileLastError() == 183); # already exists
 $ok or print "# ",fileLastError(),"\n";
 print $ok ? "" : "not ", "ok ", ++$test, "\n";	# ok 31