debian: fix testsuite

haskell-debian (3.95-2) UNRELEASED; urgency=medium

haskell-debian (3.95-2) unstable; urgency=medium

  [ Ilias Tsitsimpis ]

  * Remove Dmitry Bogatov from Uploaders per his request. Thank you

    Dmitry for your previous maintainership.

 -- Ilias Tsitsimpis <iliastsi@debian.org>  Tue, 30 Jul 2019 13:10:16 +0300

 -- Clint Adams <clint@debian.org>  Sat, 10 Aug 2019 17:47:50 -0400

haskell-debian (3.95-1) unstable; urgency=medium

--- a/Test/Control.hs

+++ b/Test/Control.hs

@@ -53,11 +53,11 @@

     , TestCase (parseDebianControlFromFile "Test/Control.hs" >>= \ vc ->

                 assertEqual "policy4"

                             -- Exceptions have bogus Eq instances, so we need to show then compare.

-                            "Left \"./Debian/Control/Policy.hs\"(line 77, column 54): ParseControlError \"Test/Control.hs\" (line 0, column 0):\nFailed to parse Test/Control.hs"

+                            "Left \"src/Debian/Control/Policy.hs\"(line 77, column 54): ParseControlError \"Test/Control.hs\" (line 0, column 0):\nFailed to parse Test/Control.hs"

                             (show (either Left (either Left Right . debianRelations "Foo") vc)))

     , TestCase (parseDebianControlFromFile "nonexistant" >>= \ vc ->

                 assertEqual "policy5"

-                            "Left \"./Debian/Control/Policy.hs\"(line 76, column 36): IOError nonexistant: openBinaryFile: does not exist (No such file or directory)"

+                            "Left \"src/Debian/Control/Policy.hs\"(line 76, column 36): IOError nonexistant: openBinaryFile: does not exist (No such file or directory)"

                             (replaceString "openFile" "openBinaryFile"

                              (show (either Left (debianRelations "Foo") (vc :: Either ControlFileError DebianControl)))))

threaded-option

fix-testsuite