From fc17b3bd410fba5046a385519d603233c9a39285 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 13 Aug 2014 12:19:42 -0700 Subject: Make options work with test-pandoc. --- tests/test-pandoc.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs index 7e4f4732c..b7b1c30b1 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -23,6 +23,7 @@ import qualified Tests.Writers.AsciiDoc import qualified Tests.Shared import qualified Tests.Walk import Text.Pandoc.Shared (inDirectory) +import System.Environment (getArgs) tests :: [Test] tests = [ testGroup "Old" Tests.Old.tests @@ -52,7 +53,5 @@ tests = [ testGroup "Old" Tests.Old.tests main :: IO () main = do setLocaleEncoding utf8 - -- we ignore command-line arguments, since we're having cabal pass - -- the build directory as first argument, and we don't want test-framework - -- to choke on that. - inDirectory "tests" $ defaultMainWithArgs tests [] + args <- getArgs + inDirectory "tests" $ defaultMainWithArgs tests args -- cgit v1.2.3