[commit: testsuite] master: Move T4113 to libraries/directory/tests (#4480) (c981d72)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c981d72360355082695f3ff5f79512f0de706e10

>---------------------------------------------------------------

commit c981d72360355082695f3ff5f79512f0de706e10
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Dec 13 09:40:22 2011 +0000

    Move T4113 to libraries/directory/tests (#4480)

>---------------------------------------------------------------

 tests/lib/IO/T4113.hs                          |   20 --------------------
 tests/lib/IO/T4113.stdout                      |    2 --
 tests/lib/IO/T4113.stdout-i386-unknown-mingw32 |    2 --
 tests/lib/IO/all.T                             |    1 -
 4 files changed, 0 insertions(+), 25 deletions(-)

diff --git a/tests/lib/IO/T4113.hs b/tests/lib/IO/T4113.hs
deleted file mode 100644
index 3bc8096..0000000
--- a/tests/lib/IO/T4113.hs
+++ /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/tests/lib/IO/T4113.stdout b/tests/lib/IO/T4113.stdout
deleted file mode 100644
index 86a7e9e..0000000
--- a/tests/lib/IO/T4113.stdout
+++ /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/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 b/tests/lib/IO/T4113.stdout-i386-unknown-mingw32
deleted file mode 100644
index 16f302c..0000000
--- a/tests/lib/IO/T4113.stdout-i386-unknown-mingw32
+++ /dev/null
@@ -1,2 +0,0 @@
-Exception: getFullPathName: invalid argument (The filename, directory name, or volume label syntax is incorrect.)
-("/no/such/file","drive:\\no\\such\\file")
diff --git a/tests/lib/IO/all.T b/tests/lib/IO/all.T
index 60457b8..38cdabc 100644
--- a/tests/lib/IO/all.T
+++ b/tests/lib/IO/all.T
@@ -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, [''])