Fix compilation errors
- 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
This commit is contained in:
@@ -0,0 +1,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
|
||||
Reference in New Issue
Block a user