--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+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.

--- a/tests/test-ftruncate.c
+++ b/tests/test-ftruncate.c
@@ -49,7 +49,9 @@
     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);
   }