diff options
Diffstat (limited to 't/04init.t')
-rw-r--r-- | t/04init.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/04init.t b/t/04init.t new file mode 100644 index 0000000..aaed382 --- /dev/null +++ b/t/04init.t @@ -0,0 +1,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); |