X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Ft%2Fprocess.t;fp=dev%2Farm%2Flibtest-harness-perl%2Flibtest-harness-perl-3.12%2Ft%2Fprocess.t;h=5adddc9017ff38f10071c89d6ee77c17431cfab2;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/process.t b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/process.t
new file mode 100644
index 0000000..5adddc9
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/process.t
@@ -0,0 +1,52 @@
+#!/usr/bin/perl -w
+
+use strict;
+use lib 't/lib';
+
+my $hires;
+
+BEGIN {
+    $hires = eval 'use Time::HiRes qw(sleep); 1';
+}
+
+use Test::More (
+      $^O eq 'VMS' ? ( skip_all => 'VMS' )
+    : $hires ? ( tests => 9 * 3 )
+    : ( skip_all => 'Need Time::HiRes' )
+);
+
+use File::Spec;
+use TAP::Parser::Iterator::Process;
+
+my @expect = (
+    '1..5',
+    'ok 1 00000',
+    'ok 2',
+    'not ok 3',
+    'ok 4',
+    'ok 5 00000',
+);
+
+my $source = File::Spec->catfile(
+    ( $ENV{PERL_CORE} ? 'lib' : 't' ),
+    'sample-tests', 'delayed'
+);
+
+for my $chunk_size ( 1, 4, 65536 ) {
+    for my $where ( 0 .. 8 ) {
+
+        my $proc = TAP::Parser::Iterator::Process->new(
+            {   _chunk_size => $chunk_size,
+                command     => [ $^X, $source, ( 1 << $where ) ]
+            }
+        );
+
+        my @got = ();
+        while ( defined( my $line = $proc->next_raw ) ) {
+            push @got, $line;
+        }
+
+        is_deeply \@got, \@expect,
+          "I/O ok with delay at position $where, chunk size $chunk_size";
+    }
+}