ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/04_stat.t
Revision: 1.2
Committed: Tue Nov 27 09:37:59 2007 UTC (16 years, 6 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...

File Contents

# 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