git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/process.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 my $hires;
   7
   8 BEGIN {
   9     $hires = eval 'use Time::HiRes qw(sleep); 1';
  10 }
  11
  12 use Test::More (
  13       $^O eq 'VMS' ? ( skip_all => 'VMS' )
  14     : $hires ? ( tests => 9 * 3 )
  15     : ( skip_all => 'Need Time::HiRes' )
  16 );
  17
  18 use File::Spec;
  19 use TAP::Parser::Iterator::Process;
  20
  21 my @expect = (
  22     '1..5',
  23     'ok 1 00000',
  24     'ok 2',
  25     'not ok 3',
  26     'ok 4',
  27     'ok 5 00000',
  28 );
  29
  30 my $source = File::Spec->catfile(
  31     ( $ENV{PERL_CORE} ? 'lib' : 't' ),
  32     'sample-tests', 'delayed'
  33 );
  34
  35 for my $chunk_size ( 1, 4, 65536 ) {
  36     for my $where ( 0 .. 8 ) {
  37
  38         my $proc = TAP::Parser::Iterator::Process->new(
  39             {   _chunk_size => $chunk_size,
  40                 command     => [ $^X, $source, ( 1 << $where ) ]
  41             }
  42         );
  43
  44         my @got = ();
  45         while ( defined( my $line = $proc->next_raw ) ) {
  46             push @got, $line;
  47         }
  48
  49         is_deeply \@got, \@expect,
  50           "I/O ok with delay at position $where, chunk size $chunk_size";
  51     }
  52 }