hasufell
/
hpath
1
1
Fork 0
Code Issues 8 Pull Requests 0 Releases 19 Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
234 Commits
8 Branches
1.4 MiB
 
 
 
 
Tree: 09eea518b8
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '09eea518b8'
${ noResults }
hpath/hpath-io/test/HPath/IO/RecreateSymlinkOverwriteSpe...

140 lines
3.9 KiB
Raw Blame History 

  1. {-# LANGUAGE OverloadedStrings #-}

  2. 

  3. module HPath.IO.RecreateSymlinkOverwriteSpec where

  4. 

  5. 

  6. -- TODO: exception if destination exists but is not a file + `OverWrite` CopyMode

  7. 

  8. 

  9. import Test.Hspec

  10. import HPath.IO

  11. import HPath.IO.Errors

  12. import System.IO.Error

  13.   (

  14.     ioeGetErrorType

  15.   )

  16. import GHC.IO.Exception

  17.   (

  18.     IOErrorType(..)

  19.   )

  20. import Utils

  21. 

  22. 

  23. upTmpDir :: IO ()

  24. upTmpDir = do

  25.   setTmpDir "RecreateSymlinkOverwriteSpec"

  26.   createTmpDir

  27. 

  28. 

  29. setupFiles :: IO ()

  30. setupFiles = do

  31.   createRegularFile' "myFile"

  32.   createSymlink' "myFileL" "myFile"

  33.   createRegularFile' "alreadyExists"

  34.   createDir' "alreadyExistsD"

  35.   createDir' "dir"

  36.   createDir' "noPerms"

  37.   createDir' "noWritePerm"

  38.   createDir' "alreadyExistsD2"

  39.   createRegularFile' "alreadyExistsD2/lala"

  40.   noPerms "noPerms"

  41.   noWritableDirPerms "noWritePerm"

  42.   writeFile' "myFile" "Blahfaselgagaga"

  43. 

  44. 

  45. cleanupFiles :: IO ()

  46. cleanupFiles = do

  47.   normalDirPerms "noPerms"

  48.   normalDirPerms "noWritePerm"

  49.   deleteFile' "myFile"

  50.   deleteFile' "myFileL"

  51.   deleteFile' "alreadyExists"

  52.   deleteFile' "alreadyExistsD2/lala"

  53.   deleteDir' "alreadyExistsD"

  54.   deleteDir' "alreadyExistsD2"

  55.   deleteDir' "dir"

  56.   deleteDir' "noPerms"

  57.   deleteDir' "noWritePerm"

  58. 

  59. 

  60. spec :: Spec

  61. spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $

  62.   describe "HPath.IO.recreateSymlink" $ do

  63. 

  64.     -- successes --

  65.     it "recreateSymLink (Overwrite), all fine" $ do

  66.       recreateSymlink' "myFileL"

  67.                        "movedFile"

  68.                        Overwrite

  69.       removeFileIfExists "movedFile"

  70. 

  71.     it "recreateSymLink (Overwrite), all fine" $ do

  72.       recreateSymlink' "myFileL"

  73.                        "dir/movedFile"

  74.                        Overwrite

  75.       removeFileIfExists "dir/movedFile"

  76. 

  77.     it "recreateSymLink (Overwrite), destination file already exists" $

  78.       recreateSymlink' "myFileL"

  79.                        "alreadyExists"

  80.                        Overwrite

  81. 

  82.     it "recreateSymLink (Overwrite), destination already exists and is an empty dir" $ do

  83.       recreateSymlink' "myFileL"

  84.                        "alreadyExistsD"

  85.                        Overwrite

  86.       deleteFile' "alreadyExistsD"

  87.       createDir' "alreadyExistsD"

  88. 

  89.     -- posix failures --

  90.     it "recreateSymLink (Overwrite), destination already exists and is a non-empty dir" $

  91.       recreateSymlink' "myFileL"

  92.                        "alreadyExistsD2"

  93.                        Overwrite

  94.         `shouldThrow`

  95.         (\e -> ioeGetErrorType e == UnsatisfiedConstraints)

  96. 

  97.     it "recreateSymLink (Overwrite), wrong input type (file)" $

  98.       recreateSymlink' "myFile"

  99.                        "movedFile"

  100.                        Overwrite

  101.         `shouldThrow`

  102.         (\e -> ioeGetErrorType e == InvalidArgument)

  103. 

  104.     it "recreateSymLink (Overwrite), wrong input type (directory)" $

  105.       recreateSymlink' "dir"

  106.                        "movedFile"

  107.                        Overwrite

  108.         `shouldThrow`

  109.         (\e -> ioeGetErrorType e == InvalidArgument)

  110. 

  111.     it "recreateSymLink (Overwrite), can't write to destination directory" $

  112.       recreateSymlink' "myFileL"

  113.                        "noWritePerm/movedFile"

  114.                        Overwrite

  115.         `shouldThrow`

  116.         (\e -> ioeGetErrorType e == PermissionDenied)

  117. 

  118.     it "recreateSymLink (Overwrite), can't open destination directory" $

  119.       recreateSymlink' "myFileL"

  120.                        "noPerms/movedFile"

  121.                        Overwrite

  122.         `shouldThrow`

  123.         (\e -> ioeGetErrorType e == PermissionDenied)

  124. 

  125.     it "recreateSymLink (Overwrite), can't open source directory" $

  126.       recreateSymlink' "noPerms/myFileL"

  127.                        "movedFile"

  128.                        Overwrite

  129.         `shouldThrow`

  130.         (\e -> ioeGetErrorType e == PermissionDenied)

  131. 

  132.     -- custom failures --

  133.     it "recreateSymLink (Overwrite), source and destination are the same file" $

  134.       recreateSymlink' "myFileL"

  135.                        "myFileL"

  136.                        Overwrite

  137.         `shouldThrow`

  138.         isSameFile