blob: 12621b8ed5f829d5398fa76392630435214af8aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# -*- perl -*-
#########################
use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use POSIX::Run::Capture };
ok(eval { new POSIX::Run::Capture(['cat', 'file']) });
ok(eval { new POSIX::Run::Capture(argv => ['cat', 'file'], timeout => 3) });
ok(!eval { new POSIX::Run::Capture(1, 2) });
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
|