tasty-auto-0.1.0.2: tasty-auto.hs

import System.Exit (exitFailure)
import System.Environment (getArgs)
import System.IO (hPutStrLn, stderr)
import Test.Tasty.Auto

main :: IO ()
main = do
  args <- getArgs
  case args of
    src : _ : dst : ingredients -> do
      tests <- findTests src
      writeFile dst $ showTestDriver ingredients src tests ""
    _ -> do
      hPutStrLn stderr "tasty-auto: Expected source and destination arguments"
      exitFailure