1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{-# 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
|
