citeproc-hs-0.3.4: test/test.hs

import System.Environment
import Text.CSL.Eval (split)
import Text.CSL.Test

-- a dir with a final slash
testDir  = "citeproc-test/processor-tests/machines/"
testDirH = "citeproc-test/processor-tests/humans/"

main :: IO ()
main = do
  args <- getArgs
  case args of
    [x,y,z] -> if z == "txt"
               then test_ 2 (testDirH ++ x ++ "_" ++ y ++ ".txt" ) >> return ()
               else test' 2 (testDir  ++ x ++ "_" ++ y ++ ".json") >> return ()
    [x,y]   ->      test' 2 (testDir  ++ x ++ "_" ++ y ++ ".json") >> return ()
    [x]     -> runTS (split (== ',') x) 0 testDir
    x       -> runTS                 x  0 testDir