Initial commit v0.1.0HEADmaster

1 files changed, 46 insertions, 0 deletions

diff --git a/test/Sound/MusicDirTrans/TypeSpec.hs b/test/Sound/MusicDirTrans/TypeSpec.hs
new file mode 100644
index 0000000..d825539
--- /dev/null
+++ b/test/Sound/MusicDirTrans/TypeSpec.hs
@@ -0,0 +1,46 @@
+module Sound.MusicDirTrans.TypeSpec
+        (
+          spec
+        )
+where
+
+import           Test.Hspec
+import           Sound.MusicDirTrans
+import           Sound.MusicDirTrans.Test.Util
+
+spec :: Spec
+spec = do
+        describe "AudioTrack" $ do
+                it "should work with the show function" $ do
+                        show $ AudioTrack "Mono/Requiem for Hell (2019)/01-song.flac"
+                        `shouldBe` "AudioTrack {currentPath = \"Mono/Requiem for Hell (2019)/01-song.flac\"}"
+                it "should have an equivalency" $ do
+                  AudioTrack "Mono/Requiem for Hell (2019)/01-song.flac"
+                    == AudioTrack "Mono/Requiem for Hell (2019)/01-song.flac"
+                  `shouldBe` True
+                it "should have currentPath field accessible" $do
+                  currentPath (AudioTrack "Mono/Requiem for Hell (2019)/01-song.flac")
+                    `shouldBe` "Mono/Requiem for Hell (2019)/01-song.flac"
+
+        describe "ArtistPath" $ do
+                it "should work with the show function" $ do
+                        show artistPath
+                        `shouldBe` artistPathStr
+                it "should have an equivalency" $ do
+                  artistPath == artistPath
+                  `shouldBe` True
+                it "should have rootPath field accessible" $ do
+                  rootPath artistPath `shouldBe` origPath
+                it "should have parentPath field accessible" $ do
+                  parentPath artistPath `shouldBe` "Mono"
+                it "should have childPath field accessible" $ do
+                  childPath artistPath `shouldBe` "Requiem for Hell (2019)"
+
+        describe "Metadata" $ do
+                it "should work with the show function" $ do
+                        show $ sampleMetadata
+                        `shouldBe` sampleMetadataStr
+
+        describe "newPath" $ do
+                it "should create a concatenated filepath" $ do
+                  newPath artistPath `shouldBe` "Mono/Requiem for Hell (2019)/"