在任何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。