unused-0.9.0.0: test/Unused/Cache/FindArgsFromIgnoredPathsSpec.hs

module Unused.Cache.FindArgsFromIgnoredPathsSpec
    ( main
    , spec
    ) where

import Test.Hspec
import Unused.Cache.FindArgsFromIgnoredPaths

main :: IO ()
main = hspec spec

spec :: Spec
spec =
    parallel $
    describe "findArgs" $ do
        it "converts paths" $
            findArgs ["a/*", "/b/*", "c/"] `shouldBe`
            ["-not", "-path", "*/a/*", "-not", "-path", "*/b/*", "-not", "-path", "*/c/*"]
        it "converts wildcards" $
            findArgs ["a/*.csv", "/b/*.csv"] `shouldBe`
            ["-not", "-path", "*/a/*.csv", "-not", "-path", "*/b/*.csv"]
        it "filenames and paths at the same time" $
            findArgs ["/.foreman", ".bundle/"] `shouldBe`
            [ "-not"
            , "-name"
            , "*/.foreman"
            , "-not"
            , "-path"
            , "*/.foreman/*"
            , "-not"
            , "-path"
            , "*/.bundle/*"
            ]