fix TSV import test

src/Gargantext/Core/Text/Corpus/Parsers/TSV.hs

@@ -349,9 +349,10 @@ testCorrectFile bs =
 ----------Test headers added to ggt
 
 
+-- use a map to remove \r that sometimes appear at the end of a line
 testAllHeadersPresence :: [Text] -> Either Text [Text]
 testAllHeadersPresence headers = do
-    let listHeaders = filter (`notElem` headers) ["Publication Day", "Publication Month", "Publication Year", "Authors", "Title", "Source", "Abstract"]
+    let listHeaders = filter (`notElem` (map (T.replace (T.pack "\r") (T.pack ""))headers)) ["Publication Day", "Publication Month", "Publication Year", "Authors", "Title", "Source", "Abstract"]
     if null listHeaders
         then Right headers
         else Left ((pack " Missing column : ") <> T.intercalate ", " listHeaders)