RmSpec.hs

module RmSpec (rmSpec) where

import TestInit
import Data.Text as T
import Help

rmSpec :: Spec
rmSpec = do
  let b = "b"
  let d = "dir"
  describe "rm file" $ do
    it "rm" $ do
      res <- shelly $ do
        writefile b "testing"
        (True @==) =<< test_f b
        rm b
        test_f b
      assert (not res)

    it "rm_r" $ do
      res <- shelly $ do
        writefile b "testing"
        (True @==) =<< test_f b
        rm b
        test_f b
      assert $ not res

    it "rm_f" $ do
      res <- shelly $ do
        (False @==) =<< test_f b
        rm_f b
        test_f b
      assert $ not res

  describe "rm_rf dir" $ do
    it "empty dir" $ do
      res <- shelly $ do
        mkdir d
        rm_rf d
        test_d d
      assert $ not res

    it "dir with file" $ do
      res <- shelly $ do
        mkdir d
        rm d `catchany_sh` (\_ -> return ())
        (True @==) =<< test_d d
        writefile (d </> b) "testing"
        rm d `catchany_sh` (\_ -> return ())
        (True @==) =<< test_d d
        rm_rf d
        test_d d
      assert $ not res

  describe "rm symlink" $ do
    let l = "l"
    it "rm" $ do
      res <- shelly $ do
        writefile b "b"
        cmd "ln" "-s" (T.pack b) (T.pack l)
        rm l
        test_f b
      assert res
      shelly $ rm b

    it "rm_f" $ do
      res <- shelly $ do
        writefile b "b"
        cmd "ln" "-s" (T.pack b) (T.pack l)
        rm_f l
        test_f b
      assert res
      shelly $ rm_f b

    it "rm_rf" $ do
      res <- shelly $ do
        mkdir d
        writefile (d</>b) "b"
        cmd "ln" "-s" (T.pack $ d</>b) (T.pack l)
        rm_rf l
        test_f (d</>b)
      assert res
      shelly $ rm_rf d