git.iko.soy/streamly
on a05abfc help sign in
streamly/test/Streamly/Test/FileSystem/Event.hs
28 lines 680 B history raw
1-- |
2-- Module : Streamly.Test.FileSystem.Event
3-- Copyright : (c) 2021 Composewell Technologies
4-- License : BSD-3-Clause
5-- Maintainer : streamly@composewell.com
6-- Stability : experimental
7-- Portability : GHC
8--
10module Streamly.Test.FileSystem.Event (main) where
12import qualified Streamly.Internal.FileSystem.Event as Event
13import Streamly.Test.FileSystem.Event.Common
15moduleName :: String
16moduleName = "FileSystem.Event"
18main :: IO ()
19main = do
20 let run = runTests moduleName "non-recursive" Event.watch
21 run DirType commonTests
22 run
23#if defined(CABAL_OS_DARWIN)
24 SymLinkResolvedPath
25#else
26 SymLinkOrigPath
27#endif
28 commonTests