view release on metacpan or  search on metacpan

t/commandline.t  view on Meta::CPAN

use strict;
use warnings 'all';

use Test::More tests => 15;
use Test::Trap;

use Nagios::Plugin::OverHTTP;

SKIP: {
	local @ARGV = '--help';

	my $skip = 0;
	# Create new plugin with no arguments which means it will read from
	# command line
	trap { Nagios::Plugin::OverHTTP->new_with_options; };

	if ($trap->leaveby ne 'exit' || $trap->exit != 0) {
		ok(0, 'Usage exited with code 0');
		$trap->diag_all;
		skip 'Usage failed out', 9;