#!/usr/bin/perl

use strict;
use Test::Simple tests => 3;

use Net::PSYC qw(:event setDEBUG);

my $c = 0;
my $f;

sub t {
    ok(1, 'Setting up timer-events with IO::Select.');
    return 1;
}

sub g {
    if ($c == 1) {
	ok(1, 'Setting up repeating timer-events.');
	$c++;
	add(2, 't', \&stop_loop);
	return 0;
    }
    ++$c;
}

add(5, 'i', \&stop_loop);
add(0.5, 't', \&t);
add(1, 't', \&g, 1);
print "!\tIf nothing happens for more than 5 seconds,\n!\tterminate the test and report the failure!\n";
start_loop();
ok( $c == 2, 'Removing timer-event.');

__END__