Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Make options work with test-pandoc.

Browse source
This commit is contained in:
John MacFarlane 2014-08-13 12:19:42 -07:00
parent 05b7fd8dee
commit fc17b3bd41
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/test-pandoc.hs
View file

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