EV/t/04_stat.t

BEGIN { $| = 1; print "1..6\n"; }

no warnings;
use strict;

use File::Temp;

use EV;

my $fh = new File::Temp UNLINK => 1;

my $w = EV::stat "$fh", 0.1, sub {
   print "ok 5\n";
   EV::unloop;
};

my $t = EV::timer 0.2, 0, sub {
   print "ok 2\n";
   EV::unloop;
};

print "ok 1\n";
EV::loop;
print "ok 3\n";

syswrite $fh, "size change";

my $t = EV::timer 0.2, 0, sub {
   print "no ok 5\n";
   EV::unloop;
};

print "ok 4\n";
EV::loop;
print "ok 6\n";

Revision:	1.1
Committed:	Tue Nov 27 07:27:10 2007 UTC (16 years, 7 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	BEGIN { $\| = 1; print "1..6\n"; }
2
3	no warnings;
4	use strict;
5
6	use File::Temp;
7
8	use EV;
9
10	my $fh = new File::Temp UNLINK => 1;
11
12	my $w = EV::stat "$fh", 0.1, sub {
13	print "ok 5\n";
14	EV::unloop;
15	};
16
17	my $t = EV::timer 0.2, 0, sub {
18	print "ok 2\n";
19	EV::unloop;
20	};
21
22	print "ok 1\n";
23	EV::loop;
24	print "ok 3\n";
25
26	syswrite $fh, "size change";
27
28	my $t = EV::timer 0.2, 0, sub {
29	print "no ok 5\n";
30	EV::unloop;
31	};
32
33	print "ok 4\n";
34	EV::loop;
35	print "ok 6\n";
36