[commit: packages/directory] master: Removes test T4113 as no longer relevant (dd65dca)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/dd65dca8fc91e9b19e94ecd748e09a90012cfa48/directory

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

commit dd65dca8fc91e9b19e94ecd748e09a90012cfa48
Author: Elliot Robinson <elliot.robinson at argiopetech.com>
Date:   Sun Feb 22 15:45:57 2015 -0500

    Removes test T4113 as no longer relevant
    
    This test had expected failures pending resolution of 7604. 7604 was resolved in such a way that we can't determine reasonable output for T4113.
    
    canonicalizePath001 provides a reasonable replacement


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

dd65dca8fc91e9b19e94ecd748e09a90012cfa48
 tests/T4113.hs             | 19 -------------------
 tests/T4113.stdout         |  2 --
 tests/T4113.stdout-mingw32 |  2 --
 tests/all.T                |  2 --
 4 files changed, 25 deletions(-)

diff --git a/tests/T4113.hs b/tests/T4113.hs
deleted file mode 100644
index e19f7d4..0000000
--- a/tests/T4113.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-
-module Main (main) where
-
-import Control.Exception
-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/T4113.stdout b/tests/T4113.stdout
deleted file mode 100644
index 86a7e9e..0000000
--- a/tests/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/T4113.stdout-mingw32 b/tests/T4113.stdout-mingw32
deleted file mode 100644
index 16f302c..0000000
--- a/tests/T4113.stdout-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/all.T b/tests/all.T
index a29a5d8..bdde734 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -26,5 +26,3 @@ test('createDirectoryIfMissing001',  normal, compile_and_run, [''])
 
 # No sane way to tell whether the output is reasonable here...
 test('getHomeDirectory001',  ignore_output, compile_and_run, [''])
\ No newline at end of file
-
-test('T4113', when(platform('i386-apple-darwin'), expect_broken(7604)), compile_and_run, [''])