hablo/test/Mock/Article.hs

module Mock.Article (
      hostRelativeImage
    , noDescription
    , noImage
    , noMeta
    , remoteImage
    , simple
  ) where

import Article (Article(..))
import qualified Data.Map as Map (fromList, insert)
import Markdown (Markdown(..))
import Mock.Markdown (article)

simple :: Article
simple = Article article

noImage :: Article
noImage = Article $ article {metadata = Map.fromList [("summary", "It's a test")]}

remoteImage :: Article
remoteImage = Article $ article {metadata = setImage $ metadata article}
  where
    setImage = Map.insert "featuredImage" "https://somewhere.el.se/test.png"

hostRelativeImage :: Article
hostRelativeImage = Article $ article {metadata = setImage $ metadata article}
  where
    setImage = Map.insert "featuredImage" "/media/test.png"

noDescription :: Article
noDescription = Article $ article {metadata = Map.fromList [("featuredImage", "test.png")]}

noMeta :: Article
noMeta = Article $ article {metadata = Map.fromList []}