Stop the copyFile00{1,2} tests tripping over each other

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

diff --git a/tests/copyFile001.hs b/tests/copyFile001.hs
index e039bec..0a59af2 100644 (file)
--- a/tests/copyFile001.hs
+++ b/tests/copyFile001.hs
@@ -8,19 +8,19 @@ import System.IO
 
 main :: IO ()
 main = do tryIO $ removeFile to
-          cs_before <- getDirectoryContents "copyFile"
+          cs_before <- getDirectoryContents "copyFile001dir"
           putStrLn "Before:"
           print $ sort cs_before
           copyFile from to
-          cs_before <- getDirectoryContents "copyFile"
+          cs_before <- getDirectoryContents "copyFile001dir"
           putStrLn "After:"
           print $ sort cs_before
           readFile to >>= print
 
 tryIO :: IO a -> IO (Either IOException a)
-tryIO = try 
+tryIO = try
 
 from, to :: FilePath
-from = "copyFile/source"
-to   = "copyFile/target"
+from = "copyFile001dir/source"
+to   = "copyFile001dir/target"