IO-AIO/t/04_fork.t

#!/usr/bin/perl

use Test;
use IO::AIO;

# this is a lame test, but....

BEGIN { plan tests => 8 }

IO::AIO::min_parallel 2;

print "ok 1\n";

if (open FH, "-|") {
   print while <FH>;
   aio_stat "/", sub {
      print "ok 6\n";
   };
   print "ok 5\n";
   IO::AIO::poll;
   print "ok 7\n";
} else {
   print "ok 2\n";
   aio_stat "/", sub {
      print "ok 3\n";
   };
   IO::AIO::poll;
   print "ok 4\n";
   exit;
}

print "ok 8\n";

Revision:	1.2
Committed:	Wed Aug 17 05:06:59 2005 UTC (21 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_61, rel-1_73, rel-1_72, rel-1_71, rel-1_8, rel-1_3, rel-1_5, rel-1_4, rel-1_7, rel-1_6
Changes since 1.1:	+8 -12 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3			use Test;
4			use IO::AIO;
5
6			# this is a lame test, but....
7
8	root	1.2	BEGIN { plan tests => 8 }
9	root	1.1
10			IO::AIO::min_parallel 2;
11
12			print "ok 1\n";
13
14			if (open FH, "-\|") {
15			print while <FH>;
16			aio_stat "/", sub {
17	root	1.2	print "ok 6\n";
18	root	1.1	};
19	root	1.2	print "ok 5\n";
20	root	1.1	IO::AIO::poll;
21	root	1.2	print "ok 7\n";
22	root	1.1	} else {
23	root	1.2	print "ok 2\n";
24	root	1.1	aio_stat "/", sub {
25	root	1.2	print "ok 3\n";
26	root	1.1	};
27			IO::AIO::poll;
28	root	1.2	print "ok 4\n";
29	root	1.1	exit;
30			}
31
32	root	1.2	print "ok 8\n";
33	root	1.1