this sneaked in somehow

diff --git a/tests/currentDirectory001.hs~ b/tests/currentDirectory001.hs~
deleted file mode 100644 (file)
index bcf9b96..0000000
--- a/tests/currentDirectory001.hs~
+++ /dev/null
@@ -1,20 +0,0 @@
-import Directory (getCurrentDirectory, setCurrentDirectory, 
-                     createDirectory, removeDirectory, getDirectoryContents)
-
-main = do
-    oldpwd <- getCurrentDirectory
-    createDirectory "foo"
-    setCurrentDirectory "foo"
-    ~[n1, n2] <- getDirectoryContents "."
-    if dot n1 && dot n2 
-     then do
-        setCurrentDirectory oldpwd
-        removeDirectory "foo"
-        putStr "Okay\n"
-      else
-        ioError (userError "Oops")
-
-dot :: String -> Bool
-dot "." = True
-dot ".." = True
-dot _ = False