IO-AIO/t/04_fork.t

#!/usr/bin/perl

BEGIN {
   if ($^O eq "MSWin32") {
      print qq{1..0 # SKIP perl broken beyond repair\n};
      exit 0;
   }
}

use Test;
use IO::AIO;

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

BEGIN { plan tests => 10 }

IO::AIO::min_parallel 2;

IO::AIO::aio_nop sub {
   print "ok 6\n";
};

IO::AIO::aio_busy 1, sub {
   print "ok 8\n";

};

print "ok 1\n";

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

print "ok 10\n";

Revision:	1.10
Committed:	Mon Jul 18 02:59:59 2011 UTC (12 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-4_81, rel-4_80, rel-4_17, rel-4_14, rel-4_15, rel-4_12, rel-4_11, rel-4_18, rel-4_19, rel-4_4, rel-4_5, rel-4_6, rel-4_7, rel-4_0, rel-4_1, rel-4_2, rel-4_3, rel-4_78, rel-4_79, rel-4_74, rel-4_75, rel-4_76, rel-4_77, rel-4_71, rel-4_72, rel-4_73, rel-4_52, rel-4_53, rel-4_51, rel-4_54, rel-4_34, rel-4_31, rel-4_32, rel-4_33, HEAD
Changes since 1.9:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3	root	1.6	BEGIN {
4	root	1.10	if ($^O eq "MSWin32") {
5			print qq{1..0 # SKIP perl broken beyond repair\n};
6	root	1.6	exit 0;
7			}
8			}
9
10	root	1.1	use Test;
11			use IO::AIO;
12
13			# this is a lame test, but....
14
15	root	1.5	BEGIN { plan tests => 10 }
16	root	1.1
17			IO::AIO::min_parallel 2;
18
19	root	1.5	IO::AIO::aio_nop sub {
20	root	1.3	print "ok 6\n";
21			};
22
23	root	1.7	IO::AIO::aio_busy 1, sub {
24	root	1.5	print "ok 8\n";
25
26			};
27
28	root	1.1	print "ok 1\n";
29
30			if (open FH, "-\|") {
31			print while <FH>;
32			aio_stat "/", sub {
33	root	1.3	print "ok 7\n";
34	root	1.1	};
35	root	1.2	print "ok 5\n";
36	root	1.4	IO::AIO::poll while IO::AIO::nreqs;
37	root	1.5	print "ok 9\n";
38	root	1.1	} else {
39	root	1.9	IO::AIO::reinit;
40	root	1.2	print "ok 2\n";
41	root	1.1	aio_stat "/", sub {
42	root	1.2	print "ok 3\n";
43	root	1.1	};
44	root	1.4	IO::AIO::poll while IO::AIO::nreqs;
45	root	1.2	print "ok 4\n";
46	root	1.1	exit;
47			}
48
49	root	1.5	print "ok 10\n";
50	root	1.1