view release on metacpan or  search on metacpan

t/App-DWG-Sort/04-run.t  view on Meta::CPAN

# XXX Hack for missing abs2rel on Windows.
if ($OSNAME eq 'MSWin32') {
	$script =~ s/\\/\//msg;
}
my $right_ret = <<"END";
Usage: $script [-h] [--version] directory
	-h		Print help.
	--version	Print version.
	directory	Directory with DWG files.
END
stderr_is(
	sub {
		App::DWG::Sort->new->run;
		return;
	},
	$right_ret,
	'Run help.',
);