HSpec (또는 HUnit)을 사용하면 오류가 발생한 경우에만 인쇄되는 어설 션에 추가 정보를 첨부 할 수 있습니까? 그것은 예를 들어 <code>shouldBe</code>와 함께 작동</p> <pre><code>property \x -> counterexample ("Foo failed with: " ++ ...) $ foo x </code></pre> <p>하지만 방법 : 마찬가지로 quickcheck는 반례를 지원하는 방법에

Question

failDetails (" details: " ++ baz a) $ 
    a `shouldBe` 2 

그리고 나는 그것이의 라인을 따라 뭔가를 인쇄하고 싶은이 :

expected: 2 
but got: 3 
details: ... 

Answer 1

네, 가능합니다 것 같다 :

import Control.Exception 
import Test.HUnit.Lang (HUnitFailure(..)) 

failDetails details assert = do 
    assert `catch` \(HUnitFailure loc msg) -> do 
    throw $ HUnitFailure loc $ msg ++ "\n" ++ details 

우리는 shouldBe에 의해 던져진 예외를 catch, 메시지를 수정하고 그것을 다시 던지십시오. 우리가 정의하는 경우

1 `shouldBe` 2 
    $> failDetails "foobar" 

:

는

우리는 심지어 그것을 좋아 사용할 수 있습니다

($>) = flip ($) 
infixl 0 $> 
{-# INLINE ($>) #-}