Die upon invalid options

2 files changed, 11 insertions, 2 deletions

diff --git a/bin/efa b/bin/efa
index f9fc71e..a8ee155 100755
--- a/bin/efa
+++ b/bin/efa
@@ -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));
 
diff --git a/test/50-efa.t b/test/50-efa.t
index fa38572..3884874 100644
--- a/test/50-efa.t
+++ b/test/50-efa.t
@@ -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");