diff options
Diffstat (limited to 't/00use.t')
-rw-r--r-- | t/00use.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/00use.t b/t/00use.t new file mode 100644 index 0000000..aefe48e --- /dev/null +++ b/t/00use.t @@ -0,0 +1,20 @@ +# Before 'make install' is performed this script should be runnable with +# 'make test'. After 'make install' it should work as 'perl POSIX-Run-Capture.t' + +######################### + +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. + |