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