1 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/lib/IO/openFile006.hs b/testsuite/tests/lib/IO/openFile006.hs
new file mode 100644
index 0000000000..63cfea1a87
--- /dev/null
+++ b/testsuite/tests/lib/IO/openFile006.hs
@@ -0,0 +1,14 @@
+-- !!! opening a file in WriteMode better truncate it
+
+import System.IO
+
+main = do
+  h <- openFile "openFile006.out" AppendMode
+  hPutStr h "hello, world"
+  size <- hFileSize h
+  print size
+  hClose h
+ 
+  h <- openFile "openFile006.out" WriteMode
+  size <- hFileSize h
+  print size