Added tests for ReadDirStream

Author: mmhat

tests/ReadDirStream.hs

@@ -0,0 +1,49 @@
+module ReadDirStream
+  ( emptyDirStream
+  , nonEmptyDirStream
+  ) where
+
+import System.Posix.Files
+import System.Posix.Directory
+import System.Posix.IO
+import Control.Exception as E
+import Test.Tasty.HUnit
+
+dir :: FilePath
+dir = "dir"
+
+emptyDirStream :: IO ()
+emptyDirStream = do
+  cleanup
+  createDirectory dir ownerReadMode
+  dir_p <- openDirStream dir
+  _ <- readDirStreamMaybe dir_p  -- Just "."
+  _ <- readDirStreamMaybe dir_p  -- Just ".."
+  ment <- readDirStreamMaybe dir_p
+  closeDirStream dir_p
+  cleanup
+  ment @?= Nothing
+
+nonEmptyDirStream :: IO ()
+nonEmptyDirStream = do
+  cleanup
+  createDirectory dir ownerModes
+  _ <- createFile (dir <> "/file") ownerReadMode
+  dir_p <- openDirStream dir
+  -- We read three entries here since "." and "." are included in the dirstream
+  one <- readDirStreamMaybe dir_p
+  two <- readDirStreamMaybe dir_p
+  three <- readDirStreamMaybe dir_p
+  let ment = maximum [one, two, three]
+  closeDirStream dir_p
+  cleanup
+  ment @?= Just "file"
+
+cleanup :: IO ()
+cleanup = do
+    ignoreIOExceptions $ removeLink $ dir <> "/file"
+    ignoreIOExceptions $ removeDirectory dir
+
+ignoreIOExceptions :: IO () -> IO ()
+ignoreIOExceptions io = io `E.catch`
+                        ((\_ -> return ()) :: E.IOException -> IO ())

tests/Test.hs

@@ -19,6 +19,7 @@ import Test.Tasty.HUnit
 
 import qualified FileStatus
 import qualified FileStatusByteString
+import qualified ReadDirStream
 import qualified Signals001
 
 main :: IO ()
@@ -42,6 +43,8 @@ main = defaultMain $ testGroup "All"
   , posix005
   , posix006
   , posix010
+  , emptyDirStream
+  , nonEmptyDirStream
   ]
 
 executeFile001 :: TestTree
@@ -225,6 +228,12 @@ posix010 = testCase "posix010" $ do
 
   homeDirectory root @?= homeDirectory root'
 
+emptyDirStream :: TestTree
+emptyDirStream = testCase "emptyDirStream" ReadDirStream.emptyDirStream
+
+nonEmptyDirStream :: TestTree
+nonEmptyDirStream = testCase "nonEmptyDirStream" ReadDirStream.nonEmptyDirStream
+
 -------------------------------------------------------------------------------
 -- Utils
 

unix.cabal

@@ -162,6 +162,7 @@ test-suite unix-tests
         FileStatus
         FileStatusByteString
         Signals001
+        ReadDirStream
     type: exitcode-stdio-1.0
     default-language: Haskell2010
     build-depends: base, tasty, tasty-hunit, unix