Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

43 lines (32 sloc) 0.778 kB
module Main where
import Control.Monad
import System.Directory
import System.INotify as INotify
import Utils
file :: String
file = "hello"
write :: String -> IO ()
write path = do
writeFile (path ++ '/':file) ""
remove :: String -> IO ()
remove path = do
removeFile (path ++ '/':file)
action :: String -> IO ()
action path = do
write path
remove path
main :: IO ()
main =
inTestEnviron [AllEvents] action $ \ events -> do
when (expected ~= events)
testSuccess
putStrLn $ explainFailure expected events
testFailure
expected :: [Event]
expected =
[ Created False file
, Opened False (Just file)
, Modified False (Just file)
, Closed False (Just file) True
, Deleted False file
]
Jump to Line
Something went wrong with that request. Please try again.