¿Hay una assertException en cualquiera de los frameworks de prueba Haskell?

Question

Estoy escribiendo algunas pruebas usando HUnit y me gustaría afirmar que una función en particular arroja una excepción dado una entrada determinada. No puedo encontrar una función afirmar que proporciona la funcionalidad requerida. Alguien sabe de un marco de prueba que hace?

Answer 1

Aunque HUnit no viene con ninguna afirmación de excepción, es fácil de escribir su propia:

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 ] 

Puede hacer algo más elegante como el uso de un predicado en lugar de comparación explícita si lo desea.

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

Tenga en cuenta que evaluate aquí podría obtener optimizado de distancia (ver GHC billete #5129), pero para probar el código en el IO mónada esto debería funcionar bien.

Answer 2

Puede usar assertRaises desde testpack.

Answer 3

hspec (o más precisamente hspec-expectations) tiene shouldThrow.