blob: d9dba31c282458e548843441a3c8a176b8557a92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# -*- mode: perl -*-
use Test::More tests => 3;
use IO::File;
use strict;
use warnings;
my $env = 't/fixtures/sample.env';
my $testplan = 't/fixtures/sample.plan';
my $input = 't/fixtures/sample.input';
do {
my $cmd = "./xmpt -e $env -p $testplan";
my $xmptfh = new IO::File("|$cmd") or BAIL_OUT "Can't run '$cmd': $!.\n";
my $inputfh = new IO::File($input) or
BAIL_OUT "Couldn't open $input for reading: $!.\n";
while (<$inputfh>) {
print $xmptfh $_;
}
$inputfh->close;
$xmptfh->close;
ok($? == 0, 'Standard input redirect');
};
do {
my $cmd = "./xmpt -t 1 -e $env -p $testplan cat 2>/dev/null";
local $SIG{ALRM} = sub { fail("Timed out running $cmd.") };
alarm 5;
system $cmd;
ok(($? >> 8) != 0, 'Timeout test');
};
do {
my $cmd = "./xmpt -e $env -p $testplan cat $input 2>/dev/null";
local $SIG{ALRM} = sub { fail("Timed out running $cmd.") };
alarm 10;
ok((system($cmd) >> 8) == 0, 'I/O redirected to cat');
alarm 0;
};
|
