Move T4113 to libraries/directory/tests (#4480)
authorSimon Marlow <marlowsd@gmail.com>
Tue, 13 Dec 2011 09:40:22 +0000 (09:40 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 13 Dec 2011 13:12:24 +0000 (13:12 +0000)
testsuite/tests/lib/IO/T4113.hs [deleted file]
testsuite/tests/lib/IO/T4113.stdout [deleted file]
testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 [deleted file]
testsuite/tests/lib/IO/all.T

diff --git a/testsuite/tests/lib/IO/T4113.hs b/testsuite/tests/lib/IO/T4113.hs
deleted file mode 100644 (file)
index 3bc8096..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-
-module Main (main) where
-
-import Control.Exception
-import Prelude hiding (catch)
-import System.Directory
-
-main :: IO ()
-main = do doit ""
-          doit "/no/such/file"
-
-doit :: FilePath -> IO ()
-doit fp = do fp' <- canonicalizePath fp
-             print (fp, mangle fp')
-    `catch` \e -> putStrLn ("Exception: " ++ show (e :: IOException))
-  where -- On Windows, "/no/such/file" -> "C:\\no\\such\\file", so
-        -- we remove the drive letter so as to get consistent output
-        mangle (_ : ':' : xs) = "drive:" ++ xs
-        mangle xs = xs
-
diff --git a/testsuite/tests/lib/IO/T4113.stdout b/testsuite/tests/lib/IO/T4113.stdout
deleted file mode 100644 (file)
index 86a7e9e..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-Exception: : canonicalizePath: does not exist (No such file or directory)
-Exception: /no/such/file: canonicalizePath: does not exist (No such file or directory)
diff --git a/testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 b/testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32
deleted file mode 100644 (file)
index 16f302c..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-Exception: getFullPathName: invalid argument (The filename, directory name, or volume label syntax is incorrect.)\r
-("/no/such/file","drive:\\no\\such\\file")\r
index 60457b8..38cdabc 100644 (file)
@@ -152,7 +152,6 @@ test('environment001',
 test('newline001', extra_clean(['newline001.out']), compile_and_run, [''])
 
 test('openTempFile001', normal, compile_and_run, [''])
-test('T4113', normal, compile_and_run, [''])
 
 test('T4144', normal, compile_and_run, [''])