9 $hires = eval 'use Time::HiRes qw(sleep); 1';
13 $^O eq 'VMS' ? ( skip_all => 'VMS' )
14 : $hires ? ( tests => 9 * 3 )
15 : ( skip_all => 'Need Time::HiRes' )
19 use TAP::Parser::Iterator::Process;
30 my $source = File::Spec->catfile(
31 ( $ENV{PERL_CORE} ? 'lib' : 't' ),
32 'sample-tests', 'delayed'
35 for my $chunk_size ( 1, 4, 65536 ) {
36 for my $where ( 0 .. 8 ) {
38 my $proc = TAP::Parser::Iterator::Process->new(
39 { _chunk_size => $chunk_size,
40 command => [ $^X, $source, ( 1 << $where ) ]
45 while ( defined( my $line = $proc->next_raw ) ) {
49 is_deeply \@got, \@expect,
50 "I/O ok with delay at position $where, chunk size $chunk_size";