From 0c0386264c7a08cea15cd8794aa9220df7d110e7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 2 Feb 2014 16:04:00 +0100
Subject: Remove duplicates from delay and qos messages

---
 t/32-result-messages.t | 68 +++++++++++++++++++++++++++++---------------------
 1 file changed, 40 insertions(+), 28 deletions(-)

(limited to 't/32-result-messages.t')

diff --git a/t/32-result-messages.t b/t/32-result-messages.t
index 4e30355..355162a 100644
--- a/t/32-result-messages.t
+++ b/t/32-result-messages.t
@@ -26,31 +26,43 @@ my $status = Travel::Status::DE::IRIS->new(
 my @results = $status->results;
 
 my $ice645 = $results[0];
-my $s1 = $results[1];
-my $s9 = $results[8];
-my $hkx = $results[10];
-my $abr = $results[13];
-
-is_deeply([$ice645->info],
-['Witterungsbedingte Störung', 'Unwetter', 'Abweichende Wagenreihung'],
-'info: no dups, sorted, msg+qos');
-
-is_deeply([$ice645->messages], [
-['2014-01-03T19:03:00', 'Witterungsbedingte Störung'],
-['2014-01-03T19:15:00', 'Witterungsbedingte Störung'],
-['2014-01-03T19:48:00', 'Witterungsbedingte Störung'],
-['2014-01-03T19:58:00', 'Witterungsbedingte Störung'],
-['2014-01-03T19:59:00', 'Witterungsbedingte Störung'],
-['2014-01-03T20:00:00', 'Witterungsbedingte Störung'],
-['2014-01-03T20:01:00', 'Unwetter'],
-['2014-01-03T20:02:00', 'Abweichende Wagenreihung']], 'messages: with dups');
-
-is_deeply([$ice645->qos_messages], [
-['2014-01-03T20:02:00', 'Abweichende Wagenreihung']], 'qos_messages');
-
-TODO: {
-	local $TODO = 'no duplicate finding yet';
-	is_deeply([$ice645->delay_messages], [
-['2014-01-03T19:03:00', 'Witterungsbedingte Störung'],
-['2014-01-03T20:01:00', 'Unwetter']], 'delay_messages: no dups');
-}
+my $s1     = $results[1];
+my $s9     = $results[8];
+my $hkx    = $results[10];
+my $abr    = $results[13];
+
+is_deeply(
+	[ $ice645->info ],
+	[ 'Witterungsbedingte Störung', 'Unwetter', 'Abweichende Wagenreihung' ],
+	'info: no dups, sorted, msg+qos'
+);
+
+is_deeply(
+	[ $ice645->messages ],
+	[
+		[ '2014-01-03T20:02:00', 'Abweichende Wagenreihung' ],
+		[ '2014-01-03T20:01:00', 'Unwetter' ],
+		[ '2014-01-03T20:00:00', 'Witterungsbedingte Störung' ],
+		[ '2014-01-03T19:59:00', 'Witterungsbedingte Störung' ],
+		[ '2014-01-03T19:58:00', 'Witterungsbedingte Störung' ],
+		[ '2014-01-03T19:48:00', 'Witterungsbedingte Störung' ],
+		[ '2014-01-03T19:15:00', 'Witterungsbedingte Störung' ],
+		[ '2014-01-03T19:03:00', 'Witterungsbedingte Störung' ]
+	],
+	'messages: with dups'
+);
+
+is_deeply(
+	[ $ice645->qos_messages ],
+	[ [ '2014-01-03T20:02:00', 'Abweichende Wagenreihung' ] ],
+	'qos_messages'
+);
+
+is_deeply(
+	[ $ice645->delay_messages ],
+	[
+		[ '2014-01-03T20:01:00', 'Unwetter' ],
+		[ '2014-01-03T20:00:00', 'Witterungsbedingte Störung' ]
+	],
+	'delay_messages: no dups'
+);
-- 
cgit v1.2.3