X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=tests%2FcurrentDirectory001.hs;fp=tests%2FcurrentDirectory001.hs;h=0b57a44412663af79eaee8e212236b8e05b0c77f;hb=91d6a82800ce5fd57d3f776b8265e9242cf1b174;hp=d8ca7b3d399cc2899abc602958896bb17dcd69dc;hpb=1f9af202c6e595283fe57577eade9b8b4c30355c;p=haskell-directory.git

diff --git a/tests/currentDirectory001.hs b/tests/currentDirectory001.hs
index d8ca7b3..0b57a44 100644
--- a/tests/currentDirectory001.hs
+++ b/tests/currentDirectory001.hs
@@ -1,15 +1,18 @@
-import System.Directory (getCurrentDirectory, setCurrentDirectory, 
-                     createDirectory, removeDirectory, getDirectoryContents)
 
+import System.Directory (getCurrentDirectory, setCurrentDirectory,
+                         createDirectory, removeDirectory,
+                         getDirectoryContents)
+
+main :: IO ()
 main = do
     oldpwd <- getCurrentDirectory
-    createDirectory "foo"
-    setCurrentDirectory "foo"
+    createDirectory dir
+    setCurrentDirectory dir
     ~[n1, n2] <- getDirectoryContents "."
     if dot n1 && dot n2 
      then do
         setCurrentDirectory oldpwd
-        removeDirectory "foo"
+        removeDirectory dir
         putStr "Okay\n"
       else
         ioError (userError "Oops")
@@ -18,3 +21,7 @@ dot :: String -> Bool
 dot "." = True
 dot ".." = True
 dot _ = False
+
+dir :: FilePath
+dir = "currentDirectory001-dir"
+