libraries/base/tests/topHandler03.hs


1
2
3
4
5
6
7
8

import System.Posix.Signals
import System.Exit
import Data.Bits

-- Test that a ExitFailure representing SIGTERM causes
-- the process to terminate by killing itself with SIGTERM

main = exitWith (ExitFailure (fromIntegral (-sigTERM)))