diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 09:40:22 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 13:12:24 +0000 |
| commit | ce7325ceb268a9468c8f36e7b86a83b52ac62aaf (patch) | |
| tree | 91e16ec5e343394da2b4bad5b224d3d3a1c0f8c9 /testsuite | |
| parent | ac499b7968343212cd0bfd21513b45beecb59a55 (diff) | |
| download | haskell-ce7325ceb268a9468c8f36e7b86a83b52ac62aaf.tar.gz | |
Move T4113 to libraries/directory/tests (#4480)
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/lib/IO/T4113.hs | 20 | ||||
| -rw-r--r-- | testsuite/tests/lib/IO/T4113.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 | 2 | ||||
| -rw-r--r-- | testsuite/tests/lib/IO/all.T | 1 |
4 files changed, 0 insertions, 25 deletions
diff --git a/testsuite/tests/lib/IO/T4113.hs b/testsuite/tests/lib/IO/T4113.hs deleted file mode 100644 index 3bc8096baa..0000000000 --- a/testsuite/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/testsuite/tests/lib/IO/T4113.stdout b/testsuite/tests/lib/IO/T4113.stdout deleted file mode 100644 index 86a7e9e295..0000000000 --- a/testsuite/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/testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 b/testsuite/tests/lib/IO/T4113.stdout-i386-unknown-mingw32 deleted file mode 100644 index 16f302c475..0000000000 --- a/testsuite/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/testsuite/tests/lib/IO/all.T b/testsuite/tests/lib/IO/all.T index 60457b8a88..38cdabc933 100644 --- a/testsuite/tests/lib/IO/all.T +++ b/testsuite/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, ['']) |