Example.hs

module Test.Example (exampleTests) where

import Data.Text (Text)
import System.Directory (canonicalizePath)
import Test.Helpers
import Test.Tasty
import Test.Tasty.HUnit

import qualified Data.Text.Encoding as Text (decodeUtf8, encodeUtf8)
import qualified Shikensu

import Data.ByteString (ByteString)
import Flow
import Prelude hiding (read)
import Shikensu.Types
import Shikensu.Contrib
import Shikensu.Contrib.IO (read, write)


exampleTests :: TestTree
exampleTests =
    let
        path = canonicalizePath "./tests"
        dict = path >>= dictionary_io
        test = path >>= \p ->
            read [Shikensu.makeDefinition p "fixtures/*.md" "fixtures/example.md"]
            >>= flow
    in
        testCase "Example test"
        $ dict >>= \d -> test >>= assertEq d



-- Setup


dictionary_io :: String -> IO Dictionary
dictionary_io absolutePathToCwd =
    Shikensu.list absolutePathToCwd ["fixtures/*.md"]
        >>= read
        >>= flow
        >>= write "./build"


flow :: Dictionary -> IO Dictionary
flow =
       renameExt ".md" ".html"
    .> permalink "index"
    .> clone "index.html" "200.html"
    .> copyPropsToMetadata
    .> renderContent markdownRenderer
    .> return


markdownRenderer :: Definition -> Maybe ByteString
markdownRenderer def =
    content def
        |> fmap Text.decodeUtf8
        |> fmap renderMarkdown
        |> fmap Text.encodeUtf8


renderMarkdown :: Text -> Text
renderMarkdown text =
    text