@@ -4,10 +4,11 @@ use 5.008; use strict; use warnings 'all'; -use Test::Command 0.08 tests => 1; +use Test::Command 0.08 tests => 2; use Test::More 0.94; use Test::Requires 0.02 { 'Getopt::Long' => 2.33, + 'Pod::Usage' => 1.36, }; my $send_nsca = 'bin/send_nsca'; @@ -15,12 +16,8 @@ my $send_nsca = 'bin/send_nsca'; ########################################################################### # TEST USAGE MESSAGE subtest 'Usage statement' => sub { - 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'); @@ -41,4 +38,17 @@ subtest 'Usage statement' => sub { $cmd->stdout_like(qr{defaults? to tab}, 'Mentions default delimiter'); }; +########################################################################### +# TEST VERSION MESSAGE +subtest 'Version statement' => sub { + my $cmd = Test::Command->new(cmd => [$^X, $send_nsca, '--version']); + + plan tests => 3; + + $cmd->exit_is_num(0, 'Exits with 0'); + $cmd->stderr_is_eq(q{}, 'Prints nothing on stderr'); + + $cmd->stdout_like(qr{$send_nsca version (?:\d+\.?)+}, 'Prints version'); +}; + exit 0; t/send_nsca.t adb00ec5bb5e2f81f213e4878668dbb35560378d Douglas Christopher Wilson dougwilson@live.com http://github.com/dougwilson/perl5-net-nsca-client/commit/dc06ecd20d1e3037df46657bf7762cd0cad7da94 dc06ecd20d1e3037df46657bf7762cd0cad7da94 2009-10-31T23:29:49-07:00 2009-10-31T23:29:49-07:00 Fix the usage test and add a version test 3a8c20b06b28ccec2cb6ed43b3b1306873044644 Douglas Christopher Wilson dougwilson@live.com