aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/samplerun.t8
1 files changed, 5 insertions, 3 deletions
diff --git a/t/samplerun.t b/t/samplerun.t
index c3930ed..4df0d7d 100644
--- a/t/samplerun.t
+++ b/t/samplerun.t
@@ -2,6 +2,8 @@
use Test::More tests => 3;
+use IO::File;
+
use strict;
use warnings;
@@ -9,7 +11,7 @@ my $config = 't/fixtures/localhost.conf';
my $testplan = 't/fixtures/testplan';
my $input = 't/fixtures/input';
-subtest 'standard input', sub {
+do {
my $cmd = "./xmpt -c $config -p $testplan";
my $xmptfh = new IO::File("|$cmd") or BAIL_OUT "Can't run '$cmd': $!.\n";
my $inputfh = new IO::File($input) or
@@ -22,7 +24,7 @@ subtest 'standard input', sub {
ok($? == 0, 'Standard input redirect');
};
-subtest 'timeout', sub {
+do {
my $cmd = "./xmpt -t 1 -c $config -p $testplan cat 2>/dev/null";
local $SIG{ALRM} = sub { fail("Timed out running $cmd.") };
alarm 5;
@@ -30,7 +32,7 @@ subtest 'timeout', sub {
ok(($? >> 8) != 0, 'Timeout test');
};
-subtest 'I/O redirected to cat', sub {
+do {
my $cmd = "./xmpt -c $config -p $testplan cat $input 2>/dev/null";
local $SIG{ALRM} = sub { fail("Timed out running $cmd.") };
alarm 10;