diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2010-05-13 15:09:22 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-05-13 15:09:22 +0200 |
commit | 804ad75a067f5d7f1b327da94a31d42f43b78226 (patch) | |
tree | b64ab0a115a55ac06a348b7598f732966dd9bc62 /test | |
parent | b4661dde93b7f23422b7982a4c23d1af581b6e7b (diff) |
Die upon invalid options
Diffstat (limited to 'test')
-rw-r--r-- | test/50-efa.t | 10 |
1 files changed, 9 insertions, 1 deletions
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"); |