Commit | Line | Data |
b965d173 |
1 | # Used to test Process.pm |
2 | |
5e727a3e |
3 | BEGIN { |
4 | if ( $ENV{PERL_CORE} ) { |
5 | unshift @INC, '../lib'; |
6 | } |
7 | } |
8 | |
b965d173 |
9 | use Time::HiRes qw(sleep); |
10 | |
11 | my $delay = 0.01; |
12 | |
13 | $| = 1; |
14 | |
15 | my @parts = ( |
16 | "1.", |
17 | ".5\n", |
18 | "ok 1 00000\n", |
19 | "ok 2\nnot", |
20 | " ok 3", |
21 | "\nok 4\nok ", |
22 | "5 00000", |
23 | "" |
24 | ); |
25 | |
26 | my $delay_at = shift || 0; |
27 | |
5e727a3e |
28 | while (@parts) { |
b965d173 |
29 | sleep $delay if ( $delay_at & 1 ); |
30 | $delay_at >>= 1; |
31 | print shift @parts; |
32 | } |
33 | sleep $delay if ( $delay_at & 1 ); |