Async-Interrupt/t/06_epipe.t

#! perl

no warnings;

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

use Async::Interrupt;

my $ep = new Async::Interrupt::EventPipe;

my $fd = $ep->fileno;

print "ok 1\n";

my ($vr, $vR); vec ($vr, $fd, 1) = 1;

my $n = select $vR=$vr, undef, undef, 0;

print $n == 0 ? "" : "not ", "ok 2 # $n\n";

$ep->signal;

my $n = select $vR=$vr, undef, undef, 0;
print $n == 1 ? "" : "not ", "ok 3 # $n\n";

$ep->drain;

my $n = select $vR=$vr, undef, undef, 0;
print $n == 0 ? "" : "not ", "ok 4 # $n\n";

print "ok 5 # ", join " ", $ep->signal_func, "\n";
print "ok 6 # ", join " ", $ep->drain_func, "\n";
Revision:	1.2
Committed:	Sat May 15 00:08:48 2010 UTC (16 years, 4 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_1, rel-1_2, rel-1_05, rel-1_24, rel-1_25, rel-1_26, rel-1_21, rel-1_22, rel-1_23, HEAD
Changes since 1.1:	+4 -1 lines
Log Message:	1.05
#	User	Rev	Content
1	root	1.1	#! perl
2
3			no warnings;
4
5	root	1.2	print "1..6\n"; $\|=1;
6	root	1.1
7			use Async::Interrupt;
8
9			my $ep = new Async::Interrupt::EventPipe;
10
11			my $fd = $ep->fileno;
12
13			print "ok 1\n";
14
15			my ($vr, $vR); vec ($vr, $fd, 1) = 1;
16
17			my $n = select $vR=$vr, undef, undef, 0;
18
19			print $n == 0 ? "" : "not ", "ok 2 # $n\n";
20
21			$ep->signal;
22
23			my $n = select $vR=$vr, undef, undef, 0;
24			print $n == 1 ? "" : "not ", "ok 3 # $n\n";
25
26			$ep->drain;
27
28			my $n = select $vR=$vr, undef, undef, 0;
29			print $n == 0 ? "" : "not ", "ok 4 # $n\n";
30	root	1.2
31			print "ok 5 # ", join " ", $ep->signal_func, "\n";
32			print "ok 6 # ", join " ", $ep->drain_func, "\n";