deka-tests-0.6.0.2: dectest/TestHelpers.hs

{-# LANGUAGE OverloadedStrings #-}
module TestHelpers where

import TestLog
import qualified Data.ByteString.Char8 as BS8
import qualified Deka.Dec as D
import qualified Deka.Context as C
import Data.Monoid
import Conditions
import Data.List (sort)

testConditions
  :: [BS8.ByteString]
  -- ^ List of conditions
  -> C.Flags
  -- ^ Actual conditions from test
  -> TestLog ()
testConditions bs flgs = do
  cs <- parseConditions bs
  let fs = sort . C.unpackFlags $ flgs
  if sort fs == sort cs
    then tell "conditions are as expected"
    else flunk $ "conditions not as expected: " <>
          (BS8.pack . show $ fs)

testDec :: D.Dec -> Maybe D.Dec -> TestLog ()
testDec x y = case y of
  Nothing -> tell "target result is undefined" >> return ()
  Just r ->
    let sx = D.toByteString x
        sr = D.toByteString r
        res | sx == sr = tell "result is as expected"
            | otherwise =
                flunk $ "output: " <> sx <> " expected result: " <> sr
    in res