gitlab-haskell-1.0.0.0: tests/API/TodosTests.hs

{-# LANGUAGE FlexibleInstances #-}

module API.TodosTests (todosTests) where

import API.Common
import Control.Monad.IO.Class
import Data.Aeson
import qualified Data.ByteString.Lazy.Char8 as BSL
import GitLab
import GitLab.SystemHooks.GitLabSystemHooks
import GitLab.SystemHooks.Types
import Test.Tasty
import Test.Tasty.HUnit

-- | https://docs.gitlab.com/ee/api/todos.html
todosTests :: [TestTree]
todosTests =
  ( let fname = "data/api/todos/todo-items.json"
     in gitlabJsonParserTests
          "todo-items"
          fname
          (parseOne =<< BSL.readFile fname :: IO [Todo])
          ( do
              decodedFile <- parseOne =<< BSL.readFile fname :: IO [Todo]
              parseOne (encode decodedFile) :: IO [Todo]
          )
  )
    ++ ( let fname = "data/api/todos/mark-todo-item-done.json"
          in gitlabJsonParserTests
               "mark-todo-item-done"
               fname
               (parseOne =<< BSL.readFile fname :: IO Todo)
               ( do
                   decodedFile <- parseOne =<< BSL.readFile fname :: IO Todo
                   parseOne (encode decodedFile) :: IO Todo
               )
       )