X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=tests%2FcopyFile001.hs;fp=tests%2FcopyFile001.hs;h=0a59af278cbf4ade1c7ed2d4ec0044c1d0e69560;hb=637fc6a503c9f7c68dc667a07d15b4ecb825047d;hp=e039becc778c992665dd53db31c886ede3abbd19;hpb=5f753ccb8ebe2a630aaf7da2399565547d006d49;p=haskell-directory.git

diff --git a/tests/copyFile001.hs b/tests/copyFile001.hs
index e039bec..0a59af2 100644
--- 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"