From 49bca5b7fafffc9dc42660fc13c7931cd243426d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sat, 14 Aug 2010 11:31:26 +0200
Subject: Remove 'time' option from WWW::Efa

---
 t/50-www-efa.t | 13 +++----------
 t/60-bin-efa.t | 14 ++++++++++++--
 2 files changed, 15 insertions(+), 12 deletions(-)

(limited to 't')

diff --git a/t/50-www-efa.t b/t/50-www-efa.t
index bae1e94..8e56624 100644
--- a/t/50-www-efa.t
+++ b/t/50-www-efa.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.010;
 
-use Test::More tests => 135;
+use Test::More tests => 131;
 
 BEGIN {
 	use_ok('WWW::Efa');
@@ -115,13 +115,6 @@ is_efa_post(
 	['type_origin', 'address'],
 );
 
-is_efa_post(
-	'time', '22:23',
-	['itdTripDateTimeDepArr', 'dep'],
-	['itdTimeHour', '22'],
-	['itdTimeMinute', '23'],
-);
-
 is_efa_post(
 	'depart', '22:23',
 	['itdTripDateTimeDepArr', 'dep'],
@@ -137,12 +130,12 @@ is_efa_post(
 );
 
 is_efa_err(
-	'time', '37:00',
+	'depart', '37:00',
 	'Must match HH:MM',
 );
 
 is_efa_err(
-	'time', '07',
+	'depart', '07',
 	'Must match HH:MM',
 );
 
diff --git a/t/60-bin-efa.t b/t/60-bin-efa.t
index 2b60233..0ae0b1f 100644
--- a/t/60-bin-efa.t
+++ b/t/60-bin-efa.t
@@ -94,13 +94,23 @@ for my $opt (qw/-w --walk-speed/) {
 	);
 }
 
-for my $opt (qw/-t --time --depart -a --arrive/) {
+for my $opt (qw/-t --time --depart/) {
 	$cmd = Test::Command->new(cmd => "$efa $opt 35:12 $testarg");
 
 	$cmd->exit_isnt_num(0);
 	$cmd->stdout_is_eq($EMPTY);
 	$cmd->stderr_is_eq(
-		mk_err('time', '35:12', 'Must match HH:MM')
+		mk_err('depart', '35:12', 'Must match HH:MM')
+	);
+}
+
+for my $opt (qw/-a --arrive/) {
+	$cmd = Test::Command->new(cmd => "$efa $opt 35:12 $testarg");
+
+	$cmd->exit_isnt_num(0);
+	$cmd->stdout_is_eq($EMPTY);
+	$cmd->stderr_is_eq(
+		mk_err('arrive', '35:12', 'Must match HH:MM')
 	);
 }
 
-- 
cgit v1.2.3