aboutsummaryrefslogtreecommitdiff
path: root/t/04init.t
blob: aaed38255aaca9d36df5f73809a59be0a70c826f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# -*- perl -*-

use lib 't';

use strict;
use warnings;
use Test::More tests => 3;
use POSIX::Run::Capture;

my $obj = new POSIX::Run::Capture(argv => [qw(dir /tmp)],
				  program => '/bin/ls',
				  timeout => 15);

is_deeply($obj->argv,  [qw(dir /tmp)]);
is($obj->program, '/bin/ls');
is($obj->timeout, 15);

Return to:

Send suggestions and report system problems to the System administrator.