summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/efa3
-rw-r--r--test/50-efa.t10
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");