TESTS: add deleteDirRecursiveSpec
This commit is contained in:
parent
31fe08195f
commit
bd70b8751a
71
test/Spec.hs
71
test/Spec.hs
@ -673,6 +673,70 @@ deleteDirSpec =
|
||||
>> normalDirPerms "test/deleteDirSpec/noPerms"
|
||||
>> deleteDir' "test/deleteDirSpec/noPerms/foo"
|
||||
|
||||
deleteDirRecursiveSpec :: Spec
|
||||
deleteDirRecursiveSpec =
|
||||
describe "HSFM.FileSystem.FileOperations.deleteDirRecursive" $ do
|
||||
|
||||
-- successes --
|
||||
it "deleteDirRecursive, empty directory, all fine" $ do
|
||||
createDir'' "test/deleteDirRecursiveSpec/testDir"
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/testDir"
|
||||
getSymbolicLinkStatus "test/deleteDirRecursiveSpec/testDir"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == NoSuchThing)
|
||||
|
||||
it "deleteDirRecursive, empty directory with null permissions, all fine" $ do
|
||||
createDir'' "test/deleteDirRecursiveSpec/noPerms/testDir"
|
||||
noPerms "test/deleteDirRecursiveSpec/noPerms/testDir"
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/noPerms/testDir"
|
||||
|
||||
it "deleteDirRecursive, non-empty directory, all fine" $ do
|
||||
createDir'' "test/deleteDirRecursiveSpec/nonEmpty"
|
||||
createDir'' "test/deleteDirRecursiveSpec/nonEmpty/dir1"
|
||||
createDir'' "test/deleteDirRecursiveSpec/nonEmpty/dir2"
|
||||
createDir'' "test/deleteDirRecursiveSpec/nonEmpty/dir2/dir3"
|
||||
createRegularFile'' "test/deleteDirRecursiveSpec/nonEmpty/file1"
|
||||
createRegularFile'' "test/deleteDirRecursiveSpec/nonEmpty/dir1/file2"
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/nonEmpty"
|
||||
getSymbolicLinkStatus "test/deleteDirRecursiveSpec/nonEmpty"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == NoSuchThing)
|
||||
|
||||
-- posix failures --
|
||||
it "deleteDirRecursive, can't open parent directory" $ do
|
||||
createDir'' "test/deleteDirRecursiveSpec/noPerms/foo"
|
||||
noPerms "test/deleteDirRecursiveSpec/noPerms"
|
||||
(deleteDirRecursive' "test/deleteDirRecursiveSpec/noPerms/foo"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == PermissionDenied))
|
||||
>> normalDirPerms "test/deleteDirRecursiveSpec/noPerms"
|
||||
>> deleteDir' "test/deleteDirRecursiveSpec/noPerms/foo"
|
||||
|
||||
it "deleteDirRecursive, can't write to parent directory" $ do
|
||||
createDir'' "test/deleteDirRecursiveSpec/noWritable/foo"
|
||||
noWritableDirPerms "test/deleteDirRecursiveSpec/noWritable"
|
||||
(deleteDirRecursive' "test/deleteDirRecursiveSpec/noWritable/foo"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == PermissionDenied))
|
||||
normalDirPerms "test/deleteDirRecursiveSpec/noWritable"
|
||||
deleteDir' "test/deleteDirRecursiveSpec/noWritable/foo"
|
||||
|
||||
it "deleteDirRecursive, wrong file type (symlink to directory)" $
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/dirSym"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == InappropriateType)
|
||||
|
||||
it "deleteDirRecursive, wrong file type (regular file)" $
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/file"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == InappropriateType)
|
||||
|
||||
it "deleteDirRecursive, directory does not exist" $
|
||||
deleteDirRecursive' "test/deleteDirRecursiveSpec/doesNotExist"
|
||||
`shouldThrow`
|
||||
(\e -> ioeGetErrorType e == NoSuchThing)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -832,3 +896,10 @@ deleteDir' p = do
|
||||
pwd <- fromJust <$> getEnv "PWD" >>= P.parseAbs
|
||||
file <- (pwd P.</>) <$> P.parseRel p
|
||||
deleteDir file
|
||||
|
||||
|
||||
deleteDirRecursive' :: ByteString -> IO ()
|
||||
deleteDirRecursive' p = do
|
||||
pwd <- fromJust <$> getEnv "PWD" >>= P.parseAbs
|
||||
dir <- (pwd P.</>) <$> P.parseRel p
|
||||
deleteDirRecursive dir
|
||||
|
0
test/deleteDirRecursiveSpec/.keep
Normal file
0
test/deleteDirRecursiveSpec/.keep
Normal file
0
test/deleteDirRecursiveSpec/dir/.keep
Normal file
0
test/deleteDirRecursiveSpec/dir/.keep
Normal file
1
test/deleteDirRecursiveSpec/dirSym
Symbolic link
1
test/deleteDirRecursiveSpec/dirSym
Symbolic link
@ -0,0 +1 @@
|
||||
dir
|
0
test/deleteDirRecursiveSpec/file
Normal file
0
test/deleteDirRecursiveSpec/file
Normal file
0
test/deleteDirRecursiveSpec/noPerms/.keep
Normal file
0
test/deleteDirRecursiveSpec/noPerms/.keep
Normal file
0
test/deleteDirRecursiveSpec/noWritable/.keep
Normal file
0
test/deleteDirRecursiveSpec/noWritable/.keep
Normal file
Loading…
Reference in New Issue
Block a user