(#669) Fix the unit test

Author: rexim

src/Bot/Friday.hs

@@ -105,7 +105,7 @@ ytLinkId text =
      _ -> Nothing) =<<
   rightToMaybe
     (regexParseArgs
-       "https?:\\/\\/(www\\.)?youtu(be\\.com\\/watch\\?v=|\\.be\\/)([a-zA-Z0-9\\-\\_]+)"
+       "https?:\\/\\/(www\\.)?youtu(be\\.com\\/watch\\?v=|\\.be\\/)([a-zA-Z0-9_-]+)"
        text)
 
 fridayCommand :: Reaction Message T.Text

test/Bot/FridayTest.hs

@@ -46,7 +46,7 @@ ytLinkIdTest =
        ytLinkId input)
     [ ("https://www.youtube.com/watch?v=etMJxBigrc", Just "etMJxBigrc")
     -- TODO(#669): ytLinkIdTest is failing
-    -- , ("https://www.youtube.com/watch?v=etMJxB-igrc", Just "etMJxB-igrc")
+    , ("https://www.youtube.com/watch?v=etMJxB-igrc", Just "etMJxB-igrc")
     ]
 
 spec :: Test