Commit 804ad75a authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Die upon invalid options

parent b4661dde

bin/efa

+2 −1
Original line number Diff line number Diff line
@@ -227,7 +227,8 @@ GetOptions( 
	'via=s{2}'       => \@via,

	'via-type=s'     => \$via_type,

	'w|walk-speed=s' => \$walk_speed,

);



) or die("Please see $0 --help\n");



@exclude = split(/,/, join(',', @exclude));

test/50-efa.t

+9 −1
Original line number Diff line number Diff line
@@ -2,7 +2,7 @@ 
use strict;

use warnings;

use 5.010;

use Test::Command tests => 72;

use Test::Command tests => 76;



my $efa     = 'bin/efa';

my $testarg = "E HBf MH HBf";
@@ -47,6 +47,14 @@ for my $opt (qw/-e --exclude/) { 
	$cmd->stderr_is_eq($err_exclude);

}



for my $opt (qw/-m --max-change/) {

	$cmd = Test::Command->new(cmd => "$efa $opt nan $testarg");



	$cmd->exit_isnt_num(0);

	$cmd->stdout_is_eq('');

	# no stderr test - depends on Getopt::Long

}



for my $opt (qw/-P --prefer/) {

	$cmd = Test::Command->new(cmd => "$efa $opt invalid $testarg");