From: Bruno Haible <bruno@clisp.org>
Date: Wed, 21 Sep 2011 20:22:46 +0000 (+0200)
Subject: ftruncate tests: Avoid a test failure on mingw.
X-Git-Tag: v0.1~1790
X-Git-Url: http://erislabs.org.uk/gitweb/?a=commitdiff_plain;h=834cf7dbf43a8432d57fc2a709c317fd02d019b6;p=gnulib.git

ftruncate tests: Avoid a test failure on mingw.

* tests/test-ftruncate.c (main): Allow a failure with EACCES.
---

diff --git a/ChangeLog b/ChangeLog
index 415dfc13c..f215c1718 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-09-21  Bruno Haible  <bruno@clisp.org>
 
+	ftruncate tests: Avoid a test failure on mingw.
+	* tests/test-ftruncate.c (main): Allow a failure with EACCES.
+
+2011-09-21  Bruno Haible  <bruno@clisp.org>
+
 	select tests: Avoid test failures on OSF/1 5.1 and mingw.
 	* tests/test-select.h (test_bad_fd): Disable all tests on OSF/1 and
 	native Windows.
diff --git a/tests/test-ftruncate.c b/tests/test-ftruncate.c
index 60590a6f7..c5da4eb24 100644
--- a/tests/test-ftruncate.c
+++ b/tests/test-ftruncate.c
@@ -49,7 +49,9 @@ main (int argc, char *argv[])
     ASSERT (fd >= 0);
     errno = 0;
     ASSERT (ftruncate (fd, 0) == -1);
-    ASSERT (errno == EBADF || errno == EINVAL);
+    ASSERT (errno == EBADF || errno == EINVAL
+            || errno == EACCES /* seen on mingw */
+           );
     close (fd);
   }