directory-1.2.6.1: tests/IsSymbolicLink.hs

{-# LANGUAGE CPP #-}
module IsSymbolicLink where
#include "util.inl"
import System.Directory
import Control.Monad (when)
#ifdef mingw32_HOST_OS
import System.IO.Error (catchIOError, isPermissionError)
#endif
import TestUtils

main :: TestEnv -> IO ()
main _t = do
  success <- (createSymbolicLink "x" "y" >> return True)
#ifdef mingw32_HOST_OS
    -- only test if symbolic links can be created
    -- (usually disabled on Windows by group policy)
    `catchIOError` \ e ->
      if isPermissionError e
      then return False
      else ioError e
#endif
  when success $
    T(expect) () =<< isSymbolicLink "y"