HCL-1.7: test/Spec/ReqLift.hs

module Spec.ReqLift (tests) where

import Test.HUnit

import System.Console.HCL

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

test' (x, expect) = TestLabel (show x) $ TestCase $ do
  val <- runRequest $ reqLift succ $ reqLiftMaybe x
  assertEqual "" expect val