Random test

.travis.yml

@@ -69,7 +69,7 @@ install:
 
 script:
  - cabal build --enable-tests all
- - cabal test all
+ - cabal run spec
  - ./hpath/run-doctests.sh
  - ./hpath-filepath/run-doctests.sh
  - (cd hpath && cabal check)

hpath-directory/src/System/Posix/RawFilePath/Directory.hs

@@ -1150,7 +1150,8 @@ getDirsFiles' :: RawFilePath        -- ^ dir to read
 getDirsFiles' fp = do
   fd          <- openFd fp SPI.ReadOnly [SPDF.oNofollow] Nothing
   rawContents <- getDirectoryContents' fd
-  fmap catMaybes $ for rawContents $ \(_, f) ->
+  fmap catMaybes $ for rawContents $ \(_, f) -> do
+    putStrLn $ "getDirsFiles'" ++ (show f)
     if FP.isSpecialDirectoryEntry f then pure Nothing else pure $ Just f
 
 

hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs

@@ -199,6 +199,7 @@ readDirEnt (unpackDirStream -> dirp) =
                  dName <- c_name dEnt >>= peekFilePath
                  dType <- c_type dEnt
                  c_freeDirEnt dEnt
+                 putStrLn $ "readDirEnt" ++ (show dName)
                  return (dType, dName)
        else do
          errno <- getErrno