Tweak openFile003
authorIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:26:04 +0000 (20:26 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 4 Sep 2011 19:26:04 +0000 (20:26 +0100)
It tried opening . for writing, which confused the driver into thinking
it was writing something but not removing it. So changed to use a
different directory instead.

testsuite/tests/lib/IO/all.T
testsuite/tests/lib/IO/openFile003.hs
testsuite/tests/lib/IO/openFile003.stdout
testsuite/tests/lib/IO/openFile003.stdout-i386-unknown-mingw32
testsuite/tests/lib/IO/openFile003.stdout-i386-unknown-solaris2
testsuite/tests/lib/IO/openFile003.stdout-mingw
testsuite/tests/lib/IO/openFile003.stdout-mips-sgi-irix
testsuite/tests/lib/IO/openFile003.stdout-sparc-sun-solaris2

index cf557a6..2b5cfe6 100644 (file)
@@ -70,7 +70,7 @@ test('misc001',
 
 test('openFile001',  normal, compile_and_run, [''])
 test('openFile002',  exit_code(1), compile_and_run, [''])
-test('openFile003',  normal, compile_and_run, [''])
+test('openFile003',  extra_clean(['openFile003Dir']), compile_and_run, [''])
 test('openFile004',  extra_clean(['openFile004.out']), compile_and_run, [''])
 test('openFile005',
      [if_compiler_type('hugs', expect_fail),
index 81b69c4..f3c640f 100644 (file)
@@ -1,14 +1,17 @@
+import System.Directory
 import System.IO
 import System.IO.Error
 
 -- !!! Open a directory (should fail)
 
 main = do
-  r <- tryIOError (openFile "." ReadMode)
+  let dir = "openFile003Dir"
+  createDirectoryIfMissing False dir
+  r <- tryIOError (openFile dir ReadMode)
   print r
-  r <- tryIOError (openFile "." WriteMode)
+  r <- tryIOError (openFile dir WriteMode)
   print r
-  r <- tryIOError (openFile "." AppendMode)
+  r <- tryIOError (openFile dir AppendMode)
   print r
-  r <- tryIOError (openFile "." ReadWriteMode)
+  r <- tryIOError (openFile dir ReadWriteMode)
   print r
index 5728845..3621518 100644 (file)
@@ -1,4 +1,4 @@
-Left .: openFile: inappropriate type (is a directory)
-Left .: openFile: inappropriate type (Is a directory)
-Left .: openFile: inappropriate type (Is a directory)
-Left .: openFile: inappropriate type (Is a directory)
+Left openFile003Dir: openFile: inappropriate type (is a directory)
+Left openFile003Dir: openFile: inappropriate type (Is a directory)
+Left openFile003Dir: openFile: inappropriate type (Is a directory)
+Left openFile003Dir: openFile: inappropriate type (Is a directory)
index 08eaf89..bf99bcf 100644 (file)
@@ -1,4 +1,4 @@
-Left .: openFile: permission denied (Permission denied)\r
-Left .: openFile: permission denied (Permission denied)\r
-Left .: openFile: permission denied (Permission denied)\r
-Left .: openFile: permission denied (Permission denied)\r
+Left openFile003Dir: openFile: permission denied (Permission denied)\r
+Left openFile003Dir: openFile: permission denied (Permission denied)\r
+Left openFile003Dir: openFile: permission denied (Permission denied)\r
+Left openFile003Dir: openFile: permission denied (Permission denied)\r
index 2cbf46b..6a78a2a 100644 (file)
@@ -1,4 +1,4 @@
-Left .: openFile: inappropriate type (is a directory)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: inappropriate type (is a directory)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
index f7d4410..2f63d8c 100644 (file)
@@ -1,16 +1,16 @@
 Left permission denied
 Action: openFile
 Reason: Permission denied
-File: .
+File: openFile003Dir
 Left permission denied
 Action: openFile
 Reason: Permission denied
-File: .
+File: openFile003Dir
 Left permission denied
 Action: openFile
 Reason: Permission denied
-File: .
+File: openFile003Dir
 Left permission denied
 Action: openFile
 Reason: Permission denied
-File: .
+File: openFile003Dir
index 2cbf46b..6a78a2a 100644 (file)
@@ -1,4 +1,4 @@
-Left .: openFile: inappropriate type (is a directory)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: inappropriate type (is a directory)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
index 2cbf46b..6a78a2a 100644 (file)
@@ -1,4 +1,4 @@
-Left .: openFile: inappropriate type (is a directory)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
-Left .: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: inappropriate type (is a directory)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)
+Left openFile003Dir: openFile: invalid argument (Invalid argument)