Add test from getTitle trimming spaces

Author: newlandsvalley

test/Metadata.purs

@@ -138,6 +138,8 @@ headerSpec =
       assertOkTitle titledTune "Gamal Reinlender"
     it "gets no title" do
       assertNoHeader keyedTune getTitle
+    it "trims space from title" do
+      assertOkTitle trailingSpaceTitledTune "Gamal Reinlender"
     it "gets first of multiple titles" do
       assertOkTitle doublyTitledTune "Nancy Dawson"
     it "gets all titles" do
@@ -178,6 +180,10 @@ doublyTitledTune :: String
 doublyTitledTune =
   "T: Nancy Dawson\x0D\nT: Piss Upon the Grass\x0D\n| ABC |\x0D\n"
 
+trailingSpaceTitledTune :: String
+trailingSpaceTitledTune =
+  "T: Gamal Reinlender \x0D\n| ABC |\x0D\n"
+
 manyHeaders :: String
 manyHeaders =
   "X: 1\r\nT: Skänklåt efter Brittas Hans\r\nR: Skänklåt\r\nZ: Brian O'Connor, 11/7/2016\r\nL: 1/16\r\nO: Bjorsa\r\nM: 4/4\r\nK:Gmaj\r\n| ABC |\r\n"