tldr-0.9.2: test/Spec.hs

import Tldr
import Tldr.Types (ColorSetting(..))
import Test.Tasty
import Test.Tasty.Golden (goldenVsFile)
import System.IO (withBinaryFile, IOMode(..))
import Data.Monoid ((<>))

tests :: TestTree
tests = testGroup "tldr Tests" [goldenTests]

goldenTests :: TestTree
goldenTests = testGroup "Golden tests" [gtests]

renderPageToFile :: FilePath -> FilePath -> IO ()
renderPageToFile mdfile opfile = do
  withBinaryFile opfile WriteMode (\handle -> renderPage mdfile handle UseColor)

-- For adding new command, you need to add:
-- A new ".md" file for that command
-- A new ".golden" file for the expected output

commandTest :: String -> TestTree
commandTest str = goldenVsFile (str <> " test") (golden str) (output str) (renderPageToFile (md str) (output str))
    where
      prefix = "test/data/"
      golden cmd = prefix <> cmd <> ".golden"
      output cmd = prefix <> cmd <> ".output"
      md cmd = prefix <> cmd <> ".md"

gtests :: TestTree
gtests = testGroup "(render test)"
         [
          commandTest "ls"
         , commandTest "ps"
         , commandTest "grep"
         ]

main :: IO ()
main = defaultMain tests