Mini Shell
Mini Shell
| Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/sample-tests/ |
| Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Test-Harness-3.42/t/sample-tests/delayed |
# Used to test Process.pm
use Time::HiRes qw(sleep);
my $delay = 0.01;
$| = 1;
my @parts = (
"1.",
".5\n",
"ok 1 00000\n",
"ok 2\nnot",
" ok 3",
"\nok 4\nok ",
"5 00000",
""
);
my $delay_at = shift || 0;
while (@parts) {
sleep $delay if ( $delay_at & 1 );
$delay_at >>= 1;
print shift @parts;
}
sleep $delay if ( $delay_at & 1 );