Typo
[packages/base.git] / tests / assert.hs
1
2 import Control.Exception
3
4 -- We want to get the assertion failure, not the overflow exception.
5 -- trac #5561.
6
7 main :: IO ()
8 main = let e1 i = throw Overflow
9 in assert False (e1 5)