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";
undef $fh; # work around bugs in windows not updating stat info

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.2
Committed:	Tue Nov 27 09:37:59 2007 UTC (18 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_4
Changes since 1.1:	+1 -0 lines
Log Message:	win32...
#	User	Rev	Content
1	root	1.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	root	1.2	undef $fh; # work around bugs in windows not updating stat info
28	root	1.1
29			my $t = EV::timer 0.2, 0, sub {
30			print "no ok 5\n";
31			EV::unloop;
32			};
33
34			print "ok 4\n";
35			EV::loop;
36			print "ok 6\n";
37