BEGIN {
   unless (exists $SIG{USR1}) {
      print <<EOF;
1..0 # SKIP Broken perl detected, skipping tests.
EOF
      exit 0;
   }
}

$| = 1; print "1..16\n";

use EV;

print "ok 1\n";

EV::signal USR1 => sub { print "not ok 2\n" };

print "ok 2\n";

my $usr2 = EV::signal USR2 => sub { print "ok 10\n" };

print "ok 3\n";

my $loop = new EV::Loop;

print "ok 4\n";

my $usr1_0 = $loop->signal (USR1 => sub { print "not ok 8\n" });
my $usr1_1 = $loop->signal (USR1 => sub { print "ok 8\n"; $_[0]->stop });
my $usr1_2 = $loop->signal (USR1 => sub { print "not ok 8\n" });

print "ok 5\n";

kill USR1 => $$;
kill USR2 => $$;

print "ok 6\n";

undef $usr1_0;
undef $usr1_2;

print "ok 7\n";

$loop->loop;

print "ok 9\n";

EV::loop (EV::LOOP_ONESHOT);

print "ok 11\n";

$usr2 = EV::signal USR2 => sub { print "ok 13\n" };
$usr1_0 = EV::signal USR1 => sub { print "ok 15\n" };

print "ok 12\n";

kill USR2 => $$;

EV::loop (EV::LOOP_NONBLOCK);

print "ok 14\n";

kill USR1 => $$;

EV::loop (EV::LOOP_NONBLOCK);

print "ok 16\n";