@@ -23,6 +23,7 @@ import qualified Tests.Writers.AsciiDoc
2323import qualified Tests.Shared
2424import qualified Tests.Walk
2525import Text.Pandoc.Shared (inDirectory)
26+import System.Environment (getArgs)
2627
2728tests :: [Test]
2829tests = [ testGroup "Old" Tests.Old.tests
@@ -52,7 +53,5 @@ tests = [ testGroup "Old" Tests.Old.tests
5253main :: IO ()
5354main = do
5455 setLocaleEncoding utf8
55− -- we ignore command-line arguments, since we're having cabal pass
56− -- the build directory as first argument, and we don't want test-framework
57− -- to choke on that.
58− inDirectory "tests" $ defaultMainWithArgs tests []
56+ args <- getArgs
57+ inDirectory "tests" $ defaultMainWithArgs tests args