unix-2.7.3: tests/Signals001.hs

{-# LANGUAGE CPP #-}

{-# OPTIONS_GHC -fno-warn-missing-signatures #-}

module Signals001 (main) where

import Control.Monad
import System.Posix.Signals

#include "ghcconfig.h"

main :: IO ()
main = do
  forM_ (filter id $ testMembers emptySignalSet) $ \_ ->
    fail "should be False"
  forM_ (filter id $ testMembers emptyset) $ \_ ->
    fail "should be False"
  forM_ (filter not $ testMembers fullSignalSet) $ \_ ->
    fail "should be True"
  forM_ (filter not $ testMembers fullset) $ \_ ->
    fail "should be True"

fullset = internalAbort `addSignal`
    realTimeAlarm `addSignal`
    busError `addSignal`
    processStatusChanged `addSignal`
    continueProcess `addSignal`
    floatingPointException `addSignal`
    lostConnection `addSignal`
    illegalInstruction `addSignal`
    keyboardSignal `addSignal`
    killProcess `addSignal`
    openEndedPipe `addSignal`
    keyboardTermination `addSignal`
    segmentationViolation `addSignal`
    softwareStop `addSignal`
    softwareTermination `addSignal`
    keyboardStop `addSignal`
    backgroundRead `addSignal`
    backgroundWrite `addSignal`
    userDefinedSignal1 `addSignal`
    userDefinedSignal2 `addSignal`
#if HAVE_SIGPOLL
    pollableEvent `addSignal`
#endif
    profilingTimerExpired `addSignal`
    badSystemCall `addSignal`
    breakpointTrap `addSignal`
    urgentDataAvailable `addSignal`
    virtualTimerExpired `addSignal`
    cpuTimeLimitExceeded `addSignal`
    fileSizeLimitExceeded `addSignal`
    emptySignalSet

emptyset = internalAbort `deleteSignal`
    realTimeAlarm `deleteSignal`
    busError `deleteSignal`
    processStatusChanged `deleteSignal`
    continueProcess `deleteSignal`
    floatingPointException `deleteSignal`
    lostConnection `deleteSignal`
    illegalInstruction `deleteSignal`
    keyboardSignal `deleteSignal`
    killProcess `deleteSignal`
    openEndedPipe `deleteSignal`
    keyboardTermination `deleteSignal`
    segmentationViolation `deleteSignal`
    softwareStop `deleteSignal`
    softwareTermination `deleteSignal`
    keyboardStop `deleteSignal`
    backgroundRead `deleteSignal`
    backgroundWrite `deleteSignal`
    userDefinedSignal1 `deleteSignal`
    userDefinedSignal2 `deleteSignal`
#if HAVE_SIGPOLL
    pollableEvent `deleteSignal`
#endif
    profilingTimerExpired `deleteSignal`
    badSystemCall `deleteSignal`
    breakpointTrap `deleteSignal`
    urgentDataAvailable `deleteSignal`
    virtualTimerExpired `deleteSignal`
    cpuTimeLimitExceeded `deleteSignal`
    fileSizeLimitExceeded `deleteSignal`
    fullSignalSet

testMembers set = [
    internalAbort `inSignalSet` set,
    realTimeAlarm `inSignalSet` set,
    busError `inSignalSet` set,
    processStatusChanged `inSignalSet` set,
    continueProcess `inSignalSet` set,
    floatingPointException `inSignalSet` set,
    lostConnection `inSignalSet` set,
    illegalInstruction `inSignalSet` set,
    keyboardSignal `inSignalSet` set,
    killProcess `inSignalSet` set,
    openEndedPipe `inSignalSet` set,
    keyboardTermination `inSignalSet` set,
    segmentationViolation `inSignalSet` set,
    softwareStop `inSignalSet` set,
    softwareTermination `inSignalSet` set,
    keyboardStop `inSignalSet` set,
    backgroundRead `inSignalSet` set,
    backgroundWrite `inSignalSet` set,
    userDefinedSignal1 `inSignalSet` set,
    userDefinedSignal2 `inSignalSet` set,
#if HAVE_SIGPOLL
    pollableEvent `inSignalSet` set,
#endif
    profilingTimerExpired `inSignalSet` set,
    badSystemCall `inSignalSet` set,
    breakpointTrap `inSignalSet` set,
    urgentDataAvailable `inSignalSet` set,
    virtualTimerExpired `inSignalSet` set,
    cpuTimeLimitExceeded `inSignalSet` set,
    fileSizeLimitExceeded `inSignalSet` set
    ]