module Sound.MusicDirTrans.FileSpec
        ( spec
        )
where

import           Test.Hspec
import           Sound.MusicDirTrans
import           Sound.MusicDirTrans.Test.Util

spec :: Spec
spec = do
        describe "trackFilePatterns" $ do
                it "should compile track file extensions patterns" $ do
                        trackFilePatterns `shouldBe` patterns

        describe "getMetadata" $ do
                it "should gather track metadata" $ do
                        fileMetadata <- getMetadata "audio-samples/sample.flac"
                        sampleMetadata `shouldBe` fileMetadata

        describe "mkNewPathName" $ do
                it "should create an Artist -> Album ArtistPath structure" $ do
                        mkArtistPath origPath metadata `shouldBe` artistPath
                        mkArtistPath origPath metadataWithoutYear
                                `shouldBe` artistPathWithoutYear