Accept file exists error in ext/Win32API/File/t/file.t
authorJerry D. Hedden <jdhedden@cpan.org>
Mon, 25 Jun 2007 10:23:15 +0000 (06:23 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 25 Jun 2007 14:26:37 +0000 (14:26 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706250723r4d6c5f5dg203b3f61cdeaa14d@mail.gmail.com>

p4raw-id: //depot/perl@31465

ext/Win32API/File/t/file.t

index 567652c..0840feb 100644 (file)
@@ -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