From f07619b7c6301fe8ddbcb415c1e931cdbc0b48c9 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sun, 5 Jun 2016 15:25:57 +0200 Subject: [PATCH] TESTS: fix before/after --- test/HPath/IO/CanonicalizePathSpec.hs | 2 +- test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs | 2 +- test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs | 2 +- test/HPath/IO/CopyDirRecursiveSpec.hs | 2 +- test/HPath/IO/CopyFileOverwriteSpec.hs | 2 +- test/HPath/IO/CopyFileSpec.hs | 2 +- test/HPath/IO/CreateDirSpec.hs | 2 +- test/HPath/IO/CreateRegularFileSpec.hs | 2 +- test/HPath/IO/CreateSymlinkSpec.hs | 2 +- test/HPath/IO/DeleteDirRecursiveSpec.hs | 2 +- test/HPath/IO/DeleteDirSpec.hs | 2 +- test/HPath/IO/DeleteFileSpec.hs | 2 +- test/HPath/IO/GetDirsFilesSpec.hs | 2 +- test/HPath/IO/GetFileTypeSpec.hs | 2 +- test/HPath/IO/MoveFileOverwriteSpec.hs | 2 +- test/HPath/IO/MoveFileSpec.hs | 2 +- test/HPath/IO/RecreateSymlinkOverwriteSpec.hs | 2 +- test/HPath/IO/RecreateSymlinkSpec.hs | 2 +- test/HPath/IO/RenameFileSpec.hs | 2 +- 19 files changed, 19 insertions(+), 19 deletions(-) diff --git a/test/HPath/IO/CanonicalizePathSpec.hs b/test/HPath/IO/CanonicalizePathSpec.hs index fdf4745..dfdd67f 100644 --- a/test/HPath/IO/CanonicalizePathSpec.hs +++ b/test/HPath/IO/CanonicalizePathSpec.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 -- diff --git a/test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs b/test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs index be58015..bf19617 100644 --- a/test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs +++ b/test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs b/test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs index aa21a55..56d1f8c 100644 --- a/test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs +++ b/test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CopyDirRecursiveSpec.hs b/test/HPath/IO/CopyDirRecursiveSpec.hs index 6002a95..2b66bac 100644 --- a/test/HPath/IO/CopyDirRecursiveSpec.hs +++ b/test/HPath/IO/CopyDirRecursiveSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CopyFileOverwriteSpec.hs b/test/HPath/IO/CopyFileOverwriteSpec.hs index d3b80a4..7ab5897 100644 --- a/test/HPath/IO/CopyFileOverwriteSpec.hs +++ b/test/HPath/IO/CopyFileOverwriteSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CopyFileSpec.hs b/test/HPath/IO/CopyFileSpec.hs index c2974e5..a42e3d9 100644 --- a/test/HPath/IO/CopyFileSpec.hs +++ b/test/HPath/IO/CopyFileSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CreateDirSpec.hs b/test/HPath/IO/CreateDirSpec.hs index 1172a78..bcd3cbe 100644 --- a/test/HPath/IO/CreateDirSpec.hs +++ b/test/HPath/IO/CreateDirSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CreateRegularFileSpec.hs b/test/HPath/IO/CreateRegularFileSpec.hs index be02e59..8f775c5 100644 --- a/test/HPath/IO/CreateRegularFileSpec.hs +++ b/test/HPath/IO/CreateRegularFileSpec.hs @@ -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 -- diff --git a/test/HPath/IO/CreateSymlinkSpec.hs b/test/HPath/IO/CreateSymlinkSpec.hs index 5720568..9769a87 100644 --- a/test/HPath/IO/CreateSymlinkSpec.hs +++ b/test/HPath/IO/CreateSymlinkSpec.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.createSymlink" $ do -- successes -- diff --git a/test/HPath/IO/DeleteDirRecursiveSpec.hs b/test/HPath/IO/DeleteDirRecursiveSpec.hs index 7027f9c..becf141 100644 --- a/test/HPath/IO/DeleteDirRecursiveSpec.hs +++ b/test/HPath/IO/DeleteDirRecursiveSpec.hs @@ -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 -- diff --git a/test/HPath/IO/DeleteDirSpec.hs b/test/HPath/IO/DeleteDirSpec.hs index a5a444d..ee88e92 100644 --- a/test/HPath/IO/DeleteDirSpec.hs +++ b/test/HPath/IO/DeleteDirSpec.hs @@ -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 -- diff --git a/test/HPath/IO/DeleteFileSpec.hs b/test/HPath/IO/DeleteFileSpec.hs index f985485..cf628e6 100644 --- a/test/HPath/IO/DeleteFileSpec.hs +++ b/test/HPath/IO/DeleteFileSpec.hs @@ -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 -- diff --git a/test/HPath/IO/GetDirsFilesSpec.hs b/test/HPath/IO/GetDirsFilesSpec.hs index daf3fe4..1df4b2d 100644 --- a/test/HPath/IO/GetDirsFilesSpec.hs +++ b/test/HPath/IO/GetDirsFilesSpec.hs @@ -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 -- diff --git a/test/HPath/IO/GetFileTypeSpec.hs b/test/HPath/IO/GetFileTypeSpec.hs index 7b63df5..423dfae 100644 --- a/test/HPath/IO/GetFileTypeSpec.hs +++ b/test/HPath/IO/GetFileTypeSpec.hs @@ -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 -- diff --git a/test/HPath/IO/MoveFileOverwriteSpec.hs b/test/HPath/IO/MoveFileOverwriteSpec.hs index 6d2767e..80c4d22 100644 --- a/test/HPath/IO/MoveFileOverwriteSpec.hs +++ b/test/HPath/IO/MoveFileOverwriteSpec.hs @@ -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 -- diff --git a/test/HPath/IO/MoveFileSpec.hs b/test/HPath/IO/MoveFileSpec.hs index a28d48f..7af577b 100644 --- a/test/HPath/IO/MoveFileSpec.hs +++ b/test/HPath/IO/MoveFileSpec.hs @@ -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 -- diff --git a/test/HPath/IO/RecreateSymlinkOverwriteSpec.hs b/test/HPath/IO/RecreateSymlinkOverwriteSpec.hs index 896b509..f27dee2 100644 --- a/test/HPath/IO/RecreateSymlinkOverwriteSpec.hs +++ b/test/HPath/IO/RecreateSymlinkOverwriteSpec.hs @@ -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 -- diff --git a/test/HPath/IO/RecreateSymlinkSpec.hs b/test/HPath/IO/RecreateSymlinkSpec.hs index 1653ac3..d50360b 100644 --- a/test/HPath/IO/RecreateSymlinkSpec.hs +++ b/test/HPath/IO/RecreateSymlinkSpec.hs @@ -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 -- diff --git a/test/HPath/IO/RenameFileSpec.hs b/test/HPath/IO/RenameFileSpec.hs index 72f1e63..e2cfed2 100644 --- a/test/HPath/IO/RenameFileSpec.hs +++ b/test/HPath/IO/RenameFileSpec.hs @@ -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 --