在任何Haskell测试框架中是否存在assertException？

Question

我正在写一些使用HUnit的测试，我想断言某个特定函数在给定某个输入时会抛出异常。我无法找到提供所需功能的断言函数。任何人都知道一个测试框架呢？

Answer 1

虽然HUnit不附带任何异常的断言，可以很容易地编写自己：

import Control.Exception 
import Control.Monad 
import Test.HUnit 

assertException :: (Exception e, Eq e) => e -> IO a -> IO() 
assertException ex action = 
    handleJust isWanted (const $ return()) $ do 
     action 
     assertFailure $ "Expected exception: " ++ show ex 
    where isWanted = guard . (== ex) 

testPasses = TestCase $ assertException DivideByZero (evaluate $ 5 `div` 0) 
testFails = TestCase $ assertException DivideByZero (evaluate $ 5 `div` 1) 

main = runTestTT $ TestList [ testPasses, testFails ] 

你可以做一些更看中的一样，如果你喜欢用一个谓语，而不是明确的比较。

$ ./testex 
### Failure in: 1       
Expected exception: divide by zero 
Cases: 2 Tried: 2 Errors: 0 Failures: 1 

注意evaluate这里可能会被优化掉（参见GHC票#5129），但在IO单子测试代码这应该很好地工作。

Answer 2

您可以从testpack使用assertRaises。

Answer 3

hspec（或更准确地说hspec-expectations）有shouldThrow。