view release on metacpan or  search on metacpan

t/App-Image-Generator/04-run.t  view on Meta::CPAN

			'Warning about bad argument';
		return;
	},
	$right_ret,
	'Run help (-x - bad option).',
);

# Test.
@ARGV = (
	'-s 100',
	'output_file.png',
);
eval {
	App::Image::Generator->new->run;
};
is($EVAL_ERROR, "Bad size value.\n", "Bad size value (-s 100).");
clean();

# Test.
@ARGV = (
	'-p bad_pattern',
	'output_file.png',
);
eval {
	App::Image::Generator->new->run;
};
is($EVAL_ERROR, "Bad pattern.\n", "Bad pattern (-p bad_pattern).");
clean();

sub help {
	my $script = abs2rel(File::Object->new->file('04-run.t')->s);
	# XXX Hack for missing abs2rel on Windows.