Julian Ospald
7 years ago
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
19 changed files with
19 additions and
19 deletions
-
test/HPath/IO/CanonicalizePathSpec.hs
-
test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs
-
test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs
-
test/HPath/IO/CopyDirRecursiveSpec.hs
-
test/HPath/IO/CopyFileOverwriteSpec.hs
-
test/HPath/IO/CopyFileSpec.hs
-
test/HPath/IO/CreateDirSpec.hs
-
test/HPath/IO/CreateRegularFileSpec.hs
-
test/HPath/IO/CreateSymlinkSpec.hs
-
test/HPath/IO/DeleteDirRecursiveSpec.hs
-
test/HPath/IO/DeleteDirSpec.hs
-
test/HPath/IO/DeleteFileSpec.hs
-
test/HPath/IO/GetDirsFilesSpec.hs
-
test/HPath/IO/GetFileTypeSpec.hs
-
test/HPath/IO/MoveFileOverwriteSpec.hs
-
test/HPath/IO/MoveFileSpec.hs
-
test/HPath/IO/RecreateSymlinkOverwriteSpec.hs
-
test/HPath/IO/RecreateSymlinkSpec.hs
-
test/HPath/IO/RenameFileSpec.hs
|
|
@@ -40,7 +40,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.canonicalizePath" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -123,7 +123,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.copyDirRecursive" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -90,7 +90,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.copyDirRecursive" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -76,7 +76,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.copyDirRecursive" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -61,7 +61,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.copyFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -60,7 +60,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.copyFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -41,7 +41,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.createDir" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -39,7 +39,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.createRegularFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -40,7 +40,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.createSymlink" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -51,7 +51,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.deleteDirRecursive" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -52,7 +52,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.deleteDir" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -46,7 +46,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.deleteFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -53,7 +53,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.getDirsFiles" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -47,7 +47,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.getFileType" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -51,7 +51,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.moveFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -53,7 +53,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.moveFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -58,7 +58,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.recreateSymlink" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -54,7 +54,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.recreateSymlink" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|
|
|
@@ -51,7 +51,7 @@ cleanupFiles = do |
|
|
|
|
|
|
|
|
|
|
|
spec :: Spec |
|
|
|
spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $ |
|
|
|
spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $ |
|
|
|
describe "HPath.IO.renameFile" $ do |
|
|
|
|
|
|
|
-- successes -- |
|
|
|