From 804ad75a067f5d7f1b327da94a31d42f43b78226 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Thu, 13 May 2010 15:09:22 +0200
Subject: Die upon invalid options

---
 test/50-efa.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'test')

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