diff options
Diffstat (limited to 'tests/test-pandoc.hs')
| -rw-r--r-- | tests/test-pandoc.hs | 7 |
1 files 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 |