From 804ad75a067f5d7f1b327da94a31d42f43b78226 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 13 May 2010 15:09:22 +0200 Subject: Die upon invalid options --- bin/efa | 3 ++- test/50-efa.t | 10 +++++++++- 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"); -- cgit v1.2.3