Add test cases

Author: rnjtranjan

streamly-coreutils.cabal

@@ -105,8 +105,7 @@ library
     , unix >= 2.7.0 && < 2.8
     , directory >= 1.2.2 && < 1.4
     , filepath >= 1.4 && < 1.5
-    , directory         >= 1.3.6 && < 1.3.7
-    , temporary         >= 1.3   && < 1.4
+   
   hs-source-dirs:      src
   exposed-modules:
       Streamly.Coreutils

test/Common.hs

@@ -0,0 +1,41 @@
+module Common
+where
+
+import Control.Monad (unless)
+import System.Directory
+    ( createDirectory
+    , createDirectoryIfMissing
+    , createDirectoryLink
+    , removeFile
+    , removePathForcibly
+    , renameDirectory
+    , renamePath
+    )
+import System.FilePath ((</>), takeDirectory)
+import System.IO
+    ( BufferMode(..), hSetBuffering, stdout, IOMode (WriteMode), openFile
+    , hClose)
+import System.IO.Temp (withSystemTempDirectory)
+
+
+createParent :: FilePath -> FilePath -> IO ()
+createParent file parent = do
+    createDirectoryIfMissing True (parent </> takeDirectory file)
+
+createDirWithParent :: FilePath -> FilePath -> IO ()
+createDirWithParent dir parent =
+    unless (null dir) $ createDirectoryIfMissing True (parent </> dir)
+
+createDir :: FilePath -> FilePath -> IO ()
+createDir dir parent =
+    unless (null dir) $ createDirectory (parent </> dir)
+
+createFileWithParent :: FilePath -> FilePath -> IO ()
+createFileWithParent file parent = do
+    unless (null file) $
+        createDirectoryIfMissing True (parent </> takeDirectory file)
+    openFile (parent </> file) WriteMode >>= hClose
+
+createFile :: FilePath -> FilePath -> IO ()
+createFile file parent =
+    openFile (parent </> file) WriteMode >>= hClose

test/Main.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE ScopedTypeVariables #-}
 module Main
     (main)
 where
@@ -7,7 +8,10 @@ import qualified Streamly.Internal.Data.Fold as FL
 
 import Streamly.Coreutils.Uniq
 import Streamly.Coreutils.Rm
+import Streamly.Coreutils.FileTest
+import System.FilePath ((</>))
 
+import Control.Exception (try, SomeException)
 import Control.Monad.IO.Class (MonadIO)
 import Streamly.Prelude (IsStream)
 import Common
@@ -51,8 +55,35 @@ gen c n = S.unfoldr step (0, True)
 --  * File parent dirs not having permissions
 --  * File owned by someone else
 
+testRm :: IO ()
+testRm = do
+    let dir = "testDir"
+        file = "file.txt"
+        path = dir </> file
+    createFileWithParent file dir
+    exist <- test path isExisting
+    rm id path
+    failed <- test path isExisting
+    if exist && not failed
+    then print "Test Rm PASS"
+    else print "Test Rm Failed"
+
+testRmNonExist :: IO ()
+testRmNonExist = do
+    let dir = "testDir"
+        file = "file.txt"
+        fileNE = "fileNE.txt"
+        pathNE = dir </> fileNE
+    createFileWithParent file dir
+    res <- try (rm id pathNE)
+    case res of
+        Left (_e :: SomeException) -> print "Test RmNE Passed"
+        Right _ -> print "Test RmNE Failed"
+
+
 main :: IO ()
 main = do
+    testRm
     let comp = compareUsingOptions opt
     S.drain $ S.mapM print $ splitOnNewLine $ S.take 100 $ gen 'a' 6
     S.drain $