move copyFile001 from testsuite

[haskell-directory.git] / tests / copyFile001.hs

diff --git a/tests/copyFile001.hs b/tests/copyFile001.hs
new file mode 100644 (file)
index 0000000..219b01b
--- /dev/null
+++ b/tests/copyFile001.hs
@@ -0,0 +1,23 @@
+
+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"
+