From abf476761e14fbd190a4d06fad5f126dd2943cfc Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 14 Jun 2020 20:28:51 +0200
Subject: DB test: Add U-Bahn

---
 t/20-db.t | 46 +++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 43 insertions(+), 3 deletions(-)

(limited to 't')

diff --git a/t/20-db.t b/t/20-db.t
index 688a2ac..90257e4 100755
--- a/t/20-db.t
+++ b/t/20-db.t
@@ -6,7 +6,7 @@ use 5.020;
 use utf8;
 
 use File::Slurp qw(read_file);
-use Test::More tests => 46;
+use Test::More tests => 67;
 
 use Travel::Status::DE::HAFAS;
 
@@ -93,7 +93,7 @@ for my $res ( $results[2]->line_no, $results[2]->train_no ) {
 }
 
 is( $results[2]->operator, undef, 'result 2: no operator' );
-is( $results[2]->platform, undef,   'result 2: no platform' );
+is( $results[2]->platform, undef, 'result 2: no platform' );
 
 for my $res ( $results[2]->route_end, $results[2]->destination,
 	$results[2]->origin )
@@ -109,4 +109,44 @@ is(
 );
 is( $results[2]->sched_time, '14:17', 'result 2: sched_time' );
 is( $results[2]->time,       '14:17', 'result 2: time' );
-is( $results[2]->type,       'Bus',     'result 2: type' );
+is( $results[2]->type,       'Bus',   'result 2: type' );
+
+# Result 6: U-Bahn
+
+is( $results[6]->date, '13.06.2020', 'result 6: date' );
+is(
+	$results[6]->datetime->strftime('%Y%m%d %H%M%S'),
+	'20200613 142100',
+	'result 6: datetime'
+);
+is( $results[6]->delay, 1,     'result 6: delay' );
+is( $results[6]->info,  undef, 'result 6: no info' );
+ok( !$results[6]->is_cancelled,        'result 6: not cancelled' );
+ok( !$results[6]->is_changed_platform, 'result 6: platform not changed' );
+is( scalar $results[6]->messages, 0, 'result 6: no messages' );
+
+for my $res ( $results[6]->line, $results[6]->train ) {
+	is( $res, 'U      8', 'result 6: line/train' );
+}
+for my $res ( $results[6]->line_no, $results[6]->train_no ) {
+	is( $res, 8, 'result 6: line/train number' );
+}
+
+is( $results[6]->operator, undef, 'result 6: no operator' );
+is( $results[6]->platform, undef, 'result 6: no platform' );
+
+for my $res ( $results[6]->route_end, $results[6]->destination,
+	$results[6]->origin )
+{
+	is( $res, 'Paracelsus-Bad (U), Berlin', 'result 6: route start/end' );
+}
+
+is( $results[6]->sched_date, '13.06.2020', 'result 6: sched_date' );
+is(
+	$results[6]->sched_datetime->strftime('%Y%m%d %H%M%S'),
+	'20200613 142000',
+	'result 6: sched_datetime'
+);
+is( $results[6]->sched_time, '14:20', 'result 6: sched_time' );
+is( $results[6]->time,       '14:21', 'result 6: time' );
+is( $results[6]->type,       'U',     'result 6: type' );
-- 
cgit v1.2.3