Add tests for the top level exception handler
[ghc.git] / libraries / base / tests / topHandler03.hs
1 import System.Posix.Signals
2 import System.Exit
3 import Data.Bits
4
5 -- Test that a ExitFailure representing SIGTERM causes
6 -- the process to terminate by killing itself with SIGTERM
7
8 main = exitWith (ExitFailure (fromIntegral (-sigTERM)))