Blogger.hs

module Golden.Blogger where

import Data.Maybe (listToMaybe)
import Golden.GoldenTestHelpers
import Hakyll.Convert.Blogger
import Test.Tasty (TestTree, testGroup)

instance CustomShow FullPost where
  customShow = show

goldenTests :: TestTree
goldenTests =
  testGroup
    "Blogger"
    [ blogger_000,
      blogger_001,
      blogger_002
    ]

blogger_000 :: TestTree
blogger_000 =
  testGroup
    "readPosts"
    [ helper
        ("post No." ++ no)
        (listToMaybe . (drop offset))
      | (no, offset) <- map (\n -> (show n, n)) [0 .. 2]
    ]
  where
    helper = readPostsHelper readPosts "test/golden/data/blogger-000/"

blogger_001 :: TestTree
blogger_001 =
  testGroup
    "distilled posts (blogger-001)"
    [ helper
        ("post No." ++ no)
        (listToMaybe . (drop offset))
      | (no, offset) <- map (\n -> (show n, n)) [0 .. 2]
    ]
  where
    helper = readAndDistillHelper readPosts distill "test/golden/data/blogger-001/"

blogger_002 :: TestTree
blogger_002 =
  testGroup
    "distilled posts (blogger-002)"
    [ helper
        ("post No." ++ no)
        (listToMaybe . (drop offset))
      | (no, offset) <- map (\n -> (show n, n)) [0 .. 2]
    ]
  where
    helper = readAndDistillHelper readPosts distill "test/golden/data/blogger-002/"