HCL-1.7: test/Spec/ReqLift2.hs

module Spec.ReqLift2 (tests) where

import Test.HUnit

import System.Console.HCL

tests = TestLabel "reqLift2" $ TestList $ map test'
  [ ( Nothing, Nothing, Nothing )
  , ( Just 1,  Nothing, Nothing )
  , ( Nothing, Just 1,  Nothing )
  , ( Just 1,  Just 1,  Just 2  )
  ]

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