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.hsc

@@ -29,6 +29,7 @@ import Test.Tasty.QuickCheck
 import qualified FileStatus
 import qualified FileExtendedStatus
 import qualified FileStatusByteString
+import qualified ReadDirStream
 import qualified Signals001
 
 main :: IO ()
@@ -59,6 +60,9 @@ main = defaultMain $ testGroup "All"
     , posix005                     -- JS: missing "environ"
     , posix006                     -- JS: missing "time"
     , posix010                     -- JS: missing "sysconf"
+    , emptyDirStream
+    , nonEmptyDirStream
+    , dirStreamWithTypes
     ]
 #endif
   , testWithFilePath
@@ -275,6 +279,15 @@ testWithFilePath =
             (\ptr -> (=== ys) <$> Sh.packCString ptr)
       ]
 
+emptyDirStream :: TestTree
+emptyDirStream = testCase "emptyDirStream" ReadDirStream.emptyDirStream
+
+nonEmptyDirStream :: TestTree
+nonEmptyDirStream = testCase "nonEmptyDirStream" ReadDirStream.nonEmptyDirStream
+
+dirStreamWithTypes :: TestTree
+dirStreamWithTypes = testCase "dirStreamWithTypes" ReadDirStream.dirStreamWithTypes
+
 -------------------------------------------------------------------------------
 -- Utils
 

unix.cabal

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