diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-13 12:19:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-13 12:19:42 -0700 |
| commit | fc17b3bd410fba5046a385519d603233c9a39285 (patch) | |
| tree | 57935df6c67f1dc3b30162cc39947f0c20078da0 | |
| parent | 05b7fd8dee131c42a736c1252fa2901bb841ceba (diff) | |
| download | pandoc-fc17b3bd410fba5046a385519d603233c9a39285.tar.gz | |
Make options work with test-pandoc.
| -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 |