ext/Test/Harness/t/sample-tests/delayed

   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
  22 while (@parts) {
  23     sleep $delay if ( $delay_at & 1 );
  24     $delay_at >>= 1;
  25     print shift @parts;
  26 }
  27 sleep $delay if ( $delay_at & 1 );