Add a test for copyFile

testsuite/tests/ghc-regress/lib/IO/all.T

@@ -54,6 +54,7 @@ test('misc001', extra_run_opts('misc001.hs misc001.out'), \
 	compile_and_run, [''])
 clean(['misc001.out'])
 
+test('copyFile001',  normal, compile_and_run, [''])
 test('openFile001',  normal, compile_and_run, [''])
 test('openFile002',  exit_code(1), compile_and_run, [''])
 test('openFile003',  normal, compile_and_run, [''])

testsuite/tests/ghc-regress/lib/IO/copyFile/source

+This is the data
\ No newline at end of file

testsuite/tests/ghc-regress/lib/IO/copyFile001.hs

+
+module Main (main) where
+
+import Control.Exception
+import Data.List
+import System.Directory
+import System.IO
+
+main :: IO ()
+main = do try $ removeFile to
+          cs_before <- getDirectoryContents "copyFile"
+          putStrLn "Before:"
+          print $ sort cs_before
+          copyFile from to
+          cs_before <- getDirectoryContents "copyFile"
+          putStrLn "After:"
+          print $ sort cs_before
+          readFile to >>= print
+
+from, to :: FilePath
+from = "copyFile/source"
+to   = "copyFile/target"
+

testsuite/tests/ghc-regress/lib/IO/copyFile001.stdout

+Before:
+[".","..","source"]
+After:
+[".","..","source","target"]
+"This is the data"