fsnotify-0.4.0.1: test/Main.hs

{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ImplicitParams #-}

module Main where

import Control.Exception.Safe
import Control.Monad
import Control.Monad.IO.Class
import FSNotify.Test.EventTests
import FSNotify.Test.Util
import Prelude hiding (FilePath)
import System.FSNotify
import System.FilePath
import Test.Sandwich
import UnliftIO.IORef


main :: IO ()
main = runSandwichWithCommandLineArgs defaultOptions $ parallelN 20 $ do
    describe "Configuration" $ do
      it "respects the confOnHandlerException option" $ do
        withRandomTempDirectory $ \watchedDir' -> do
          exceptions <- newIORef (0 :: Int)
          let conf = defaultConfig { confOnHandlerException = \_ -> modifyIORef exceptions (+ 1) }

          liftIO $ withManagerConf conf $ \mgr -> do
            stop <- watchDir mgr watchedDir' (const True) $ \ev -> do
              case ev of
#ifdef darwin_HOST_OS
                Modified {} -> throwIO $ userError "Oh no!"
#else
                Added {} -> throwIO $ userError "Oh no!"
#endif
                _ -> return ()

            writeFile (watchedDir' </> "testfile") "foo"

            let ?timeInterval = 5*10^(5 :: Int)
            pauseAndRetryOnExpectationFailure 3 $
              readIORef exceptions >>= (`shouldBe` 1)

            stop

    describe "SingleThread" $ eventTests SingleThread
    describe "ThreadPerWatch" $ eventTests ThreadPerWatch
    describe "ThreadPerEvent" $ eventTests ThreadPerEvent