1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
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
|
