jbrechtel
77c6de303f
- Remove nonexistent confDebounce field from WatchConfig (fsnotify 0.4.4.0) - Remove unused Generic deriving and GHC.Generics import - Replace .!= with fromMaybe (not re-exported by Data.Yaml) - Add missing Data.Text import in Main.hs - Use git -C flag in runGitIn to run in the correct repo directory - Clean up unused imports
51 lines
1.6 KiB
Haskell
51 lines
1.6 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Monad
|
|
import Control.Monad.IO.Class
|
|
import Data.String.Interpolate
|
|
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 =
|
|
withTestFolderGenerator $ \testFolderGenerator ->
|
|
runSandwichWithCommandLineArgs defaultOptions $ parallelN 20 $ do
|
|
describe "Configuration" $ do
|
|
it "respects the confOnHandlerException option" $ do
|
|
withRandomTempDirectory testFolderGenerator $ \watchedDir' -> do
|
|
info [i|Got temp dir: #{watchedDir'}|]
|
|
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 {} -> expectationFailure "Oh no!"
|
|
#else
|
|
Added {} -> expectationFailure "Oh no!"
|
|
#endif
|
|
_ -> return ()
|
|
|
|
writeFile (watchedDir' </> "testfile") "foo"
|
|
|
|
waitUntil 5.0 $
|
|
readIORef exceptions >>= (`shouldBe` 1)
|
|
|
|
stop
|
|
|
|
describe "SingleThread" $ eventTests testFolderGenerator SingleThread
|
|
describe "ThreadPerWatch" $ eventTests testFolderGenerator ThreadPerWatch
|
|
describe "ThreadPerEvent" $ eventTests testFolderGenerator ThreadPerEvent
|