HCL-1.7: test/Spec/ReqIf.hs

module Spec.ReqIf (tests) where

import Test.HUnit

import System.Console.HCL

tests = TestLabel "reqIf" $ TestList $ map test'
  [ ( Nothing,    Nothing  )
  , ( Just True,  Just 'a' )
  , ( Just False, Just 'b' )
  ]

test' (x, expect) = let label = "reqIf " ++ show x in
  TestLabel label $ TestCase $ do
    val <- runRequest $ reqIf (reqLiftMaybe x) (return 'a') (return 'b')
    assertEqual "" expect val