# HG changeset patch
# User Bruno Haible <bruno@clisp.org>
# Date 1316636566 -7200
# Node ID 06f18298ffd84e543a86c797f7bef9bfc2bb9ce5
# Parent  8a33129afa20bee6abfe81b3937b251f1910d33a
ftruncate tests: Avoid a test failure on mingw.

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

diff --git a/ChangeLog b/ChangeLog
--- 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.
diff --git a/tests/test-ftruncate.c b/tests/test-ftruncate.c
--- 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);
   }