#!/usr/bin/perl -w

use strict;

use Test::More tests => 3;

use IO::Ppoll;

use POSIX qw( SIGHUP );

my $ppoll = IO::Ppoll->new();

ok( !$ppoll->sigmask_ismember( SIGHUP ), 'SIGHUP not in initial set' );

$ppoll->sigmask_add( SIGHUP );

ok( $ppoll->sigmask_ismember( SIGHUP ), 'SIGHUP now in set' );

$ppoll->sigmask_del( SIGHUP );

ok( !$ppoll->sigmask_ismember( SIGHUP ), 'SIGHUP no longer in set' );