hinotify 0.3.8 → 0.3.8.1

raw patch · 2 files changed

+66/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hinotify.cabal +6/−1
• tests/Utils.hs +60/−0

@@ -1,5 +1,5 @@ name:               hinotify-version:            0.3.8+version:            0.3.8.1 build-type:         Simple synopsis:           Haskell binding to inotify description:@@ -37,6 +37,7 @@     build-depends: base, directory, hinotify     hs-source-dirs: src tests     main-is: test001-list-dir-contents.hs+    other-modules: Utils     ghc-options: -Wall  test-suite test002@@ -44,6 +45,7 @@     build-depends: base, directory, hinotify     hs-source-dirs: src tests     main-is: test002-writefile.hs+    other-modules: Utils     ghc-options: -Wall  test-suite test003@@ -51,6 +53,7 @@     build-depends: base, directory, hinotify     hs-source-dirs: src tests     main-is: test003-removefile.hs+    other-modules: Utils     ghc-options: -Wall  test-suite test004@@ -58,6 +61,7 @@     build-depends: base, directory, hinotify     hs-source-dirs: src tests     main-is: test004-modify-file.hs+    other-modules: Utils     ghc-options: -Wall  test-suite test005@@ -65,4 +69,5 @@     build-depends: base, directory, hinotify     hs-source-dirs: src tests     main-is: test005-move-file.hs+    other-modules: Utils     ghc-options: -Wall

@@ -0,0 +1,60 @@+module Utils where++import Control.Concurrent.Chan+import Control.Exception++import System.Directory+import System.Environment+import System.Exit++import System.INotify++testName :: IO String+testName = do+    n <- getProgName+    return (n ++ "-playground")++withTempDir :: (String -> IO a) -> IO a+withTempDir f = do+    path <- testName+    bracket+        ( createDirectory path >> return path )+        ( removeDirectoryRecursive )+        ( f )++withWatch :: INotify -> [EventVariety] -> FilePath -> (Event -> IO ()) -> IO a -> IO a+withWatch inot events path action f =+    bracket+        ( addWatch inot events path action )+        removeWatch+        ( const f )++inTestEnviron :: [EventVariety] -> (String -> IO a) -> ([Event] -> IO b) -> IO b+inTestEnviron events action f = do+    withTempDir $ \testPath -> do+        inot <- initINotify+        chan <- newChan+        withWatch inot events testPath (writeChan chan) $ do+            _ <- action testPath+            events' <- getChanContents chan+            f events'++(~=) :: Eq a => [a] -> [a] -> Bool+[] ~= _ = True+(x:xs) ~= (y:ys) = x == y && xs ~= ys+_ ~= _ = False++asMany :: [a] -> [a] -> [a]+asMany xs ys = take (length xs) ys++explainFailure :: Show a => [a] -> [a] -> String+explainFailure expected reality = unlines $+    [ "Expected:" ] +++    [ "> " ++ show x | x <- expected ] +++    [ "But got:" ] +++    [ "< " ++ show x | x <- asMany expected reality ]++testFailure, testSuccess :: IO a+testFailure = exitFailure +testSuccess = exitWith ExitSuccess+