TESTS: use hspec-discover
This commit is contained in:
@@ -19,8 +19,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
copyDirRecursiveOverwriteSpec :: Spec
|
||||
copyDirRecursiveOverwriteSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.copyDirRecursiveOverwrite" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -19,8 +19,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
copyDirRecursiveSpec :: Spec
|
||||
copyDirRecursiveSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.copyDirRecursive" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -19,8 +19,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
copyFileOverwriteSpec :: Spec
|
||||
copyFileOverwriteSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.copyFileOverwrite" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -19,8 +19,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
copyFileSpec :: Spec
|
||||
copyFileSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.copyFile" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -15,8 +15,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
createDirSpec :: Spec
|
||||
createDirSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.createDir" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -15,8 +15,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
createRegularFileSpec :: Spec
|
||||
createRegularFileSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.createRegularFile" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -20,8 +20,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
deleteDirRecursiveSpec :: Spec
|
||||
deleteDirRecursiveSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.deleteDirRecursive" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -19,8 +19,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
deleteDirSpec :: Spec
|
||||
deleteDirSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.deleteDir" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -19,8 +19,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
deleteFileSpec :: Spec
|
||||
deleteFileSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.deleteFile" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -29,8 +29,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
getDirsFilesSpec :: Spec
|
||||
getDirsFilesSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.getDirsFiles" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -17,8 +17,8 @@ import Utils
|
||||
|
||||
|
||||
|
||||
getFileTypeSpec :: Spec
|
||||
getFileTypeSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.getFileType" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -16,8 +16,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
moveFileOverwriteSpec :: Spec
|
||||
moveFileOverwriteSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.moveFileOverwrite" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -16,8 +16,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
moveFileSpec :: Spec
|
||||
moveFileSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.moveFile" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -16,8 +16,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
recreateSymlinkSpec :: Spec
|
||||
recreateSymlinkSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.recreateSymlink" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
@@ -16,8 +16,8 @@ import GHC.IO.Exception
|
||||
import Utils
|
||||
|
||||
|
||||
renameFileSpec :: Spec
|
||||
renameFileSpec =
|
||||
spec :: Spec
|
||||
spec =
|
||||
describe "HSFM.FileSystem.FileOperations.renameFile" $ do
|
||||
|
||||
-- successes --
|
||||
|
||||
Reference in New Issue
Block a user