summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/20-db.t46
1 files changed, 43 insertions, 3 deletions
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' );