@@ -6,16 +6,23 @@ use warnings 'all'; use Test::Command 0.08 tests => 1; use Test::More 0.94; +use Test::Requires 0.02 { + 'Getopt::Long' => 2.33, +}; my $send_nsca = 'bin/send_nsca'; ########################################################################### # TEST USAGE MESSAGE subtest 'Usage statement' => sub { - plan tests => 14; my $cmd = Test::Command->new(cmd => [$^X, $send_nsca, '--help']); + # Pod::Usage is required + Test::Requires->import('Pod::Usage'); + + plan tests => 14; + $cmd->exit_is_num(0, 'Exits with 0'); $cmd->stderr_is_eq(q{}, 'Prints nothing on stderr'); $cmd->stdout_like(qr{Options:}, 'Has Options: tag'); t/send_nsca.t 02d544bc578aea98365ef3c1f26d2ae8f1fb8039 Douglas Christopher Wilson dougwilson@live.com http://github.com/dougwilson/perl5-net-nsca-client/commit/123f533d784576c43a69afbb538d8d59a1d77dd4 123f533d784576c43a69afbb538d8d59a1d77dd4 2009-10-31T17:42:11-07:00 2009-10-31T17:42:11-07:00 Added skips for the send_nsca module failures, as it requires modules not listed in META.yml 98ea65ff96ca800f34c04d97ef19904fcd829108 Douglas Christopher Wilson dougwilson@live.com