diff options
| -rwxr-xr-x | bin/efa | 3 | ||||
| -rw-r--r-- | test/50-efa.t | 10 |
2 files changed, 11 insertions, 2 deletions
@@ -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"); |