DB: Switch to mgate.exe API

1 files changed, 56 insertions, 60 deletions

diff --git a/t/20-db.t b/t/20-db.t
index 90257e4..65c7ba5 100755
--- a/t/20-db.t
+++ b/t/20-db.t
@@ -6,16 +6,18 @@ use 5.020;
 use utf8;
 
 use File::Slurp qw(read_file);
-use Test::More tests => 67;
+use JSON;
+use Test::More tests => 61;
 
 use Travel::Status::DE::HAFAS;
 
-my $xml = read_file('t/in/DB.Berlin Jannowitzbrücke.xml');
+my $json
+  = JSON->new->utf8->decode( read_file('t/in/DB.Berlin Jannowitzbrücke.json') );
 
 my $status = Travel::Status::DE::HAFAS->new(
 	service => 'DB',
 	station => 'Berlin Jannowitzbrücke',
-	xml     => $xml
+	json    => $json
 );
 
 is( $status->errcode, undef, 'no error code' );
@@ -27,69 +29,65 @@ is(
 	'active service name'
 );
 
-is( scalar $status->results, 73, 'number of results' );
+is( scalar $status->results, 30, 'number of results' );
 
 my @results = $status->results;
 
-# Result 0: S-Bahn
+# Result 0: Bus
 
-is( $results[0]->date, '13.06.2020', 'result 0: date' );
+is( $results[0]->date, '02.10.2022', 'result 0: date' );
 is(
 	$results[0]->datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 141700',
+	'20221002 170500',
 	'result 0: datetime'
 );
-is( $results[0]->delay, 2,     'result 0: delay' );
-is( $results[0]->info,  undef, 'result 0: no info' );
+is( $results[0]->delay, 10, 'result 0: delay' );
 ok( !$results[0]->is_cancelled,        'result 0: not cancelled' );
 ok( !$results[0]->is_changed_platform, 'result 0: platform not changed' );
-is( scalar $results[0]->messages, 0, 'result 0: no messages' );
 
 for my $res ( $results[0]->line, $results[0]->train ) {
-	is( $res, 'S      5', 'result 0: line/train' );
+	is( $res, 'Bus  300', 'result 0: line/train' );
 }
 for my $res ( $results[0]->line_no, $results[0]->train_no ) {
-	is( $res, 5, 'result 0: line/train number' );
+	is( $res, 300, 'result 0: line/train number' );
 }
 
 is( $results[0]->operator, undef, 'result 0: no operator' );
-is( $results[0]->platform, '4',   'result 0: platform' );
+is( $results[0]->platform, undef, 'result 0: platform' );
 
 for my $res ( $results[0]->route_end, $results[0]->destination,
 	$results[0]->origin )
 {
-	is( $res, 'Berlin Westkreuz', 'result 0: route start/end' );
+	is( $res, 'Tiergarten, Philharmonie', 'result 0: route start/end' );
 }
 
-is( $results[0]->sched_date, '13.06.2020', 'result 0: sched_date' );
+is( $results[0]->sched_date, '02.10.2022', 'result 0: sched_date' );
 is(
 	$results[0]->sched_datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 141500',
+	'20221002 165500',
 	'result 0: sched_datetime'
 );
-is( $results[0]->sched_time, '14:15', 'result 0: sched_time' );
-is( $results[0]->time,       '14:17', 'result 0: time' );
-is( $results[0]->type,       'S',     'result 0: type' );
+is( $results[0]->sched_time, '16:55', 'result 0: sched_time' );
+is( $results[0]->time,       '17:05', 'result 0: time' );
+is( $results[0]->type,       'Bus',   'result 0: type' );
 
-# Result 2: Bus
+# Result 2: U-Bahn
 
-is( $results[2]->date, '13.06.2020', 'result 2: date' );
+is( $results[2]->date, '02.10.2022', 'result 2: date' );
 is(
 	$results[2]->datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 141700',
+	'20221002 170000',
 	'result 2: datetime'
 );
-is( $results[2]->delay, 0,     'result 2: delay' );
-is( $results[2]->info,  undef, 'result 2: no info' );
+is( $results[2]->delay, 0, 'result 2: delay' );
 ok( !$results[2]->is_cancelled,        'result 2: not cancelled' );
 ok( !$results[2]->is_changed_platform, 'result 2: platform not changed' );
-is( scalar $results[2]->messages, 0, 'result 2: no messages' );
 
 for my $res ( $results[2]->line, $results[2]->train ) {
-	is( $res, 'Bus  300', 'result 2: line/train' );
+	is( $res, 'U      8', 'result 2: line/train' );
 }
 for my $res ( $results[2]->line_no, $results[2]->train_no ) {
-	is( $res, 300, 'result 2: line/train number' );
+	is( $res, 8, 'result 2: line/train number' );
 }
 
 is( $results[2]->operator, undef, 'result 2: no operator' );
@@ -98,55 +96,53 @@ is( $results[2]->platform, undef, 'result 2: no platform' );
 for my $res ( $results[2]->route_end, $results[2]->destination,
 	$results[2]->origin )
 {
-	is( $res, 'Warschauer Str. (S+U), Berlin', 'result 2: route start/end' );
+	is( $res, 'Hermannstr. (S+U), Berlin', 'result 2: route start/end' );
 }
 
-is( $results[2]->sched_date, '13.06.2020', 'result 2: sched_date' );
+is( $results[2]->sched_date, '02.10.2022', 'result 2: sched_date' );
 is(
 	$results[2]->sched_datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 141700',
+	'20221002 170000',
 	'result 2: sched_datetime'
 );
-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]->sched_time, '17:00', 'result 2: sched_time' );
+is( $results[2]->time,       '17:00', 'result 2: time' );
+is( $results[2]->type,       'U',     'result 2: type' );
 
-# Result 6: U-Bahn
+# Result 3: S-Bahn
 
-is( $results[6]->date, '13.06.2020', 'result 6: date' );
+is( $results[3]->date, '02.10.2022', 'result 3: date' );
 is(
-	$results[6]->datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 142100',
-	'result 6: datetime'
+	$results[3]->datetime->strftime('%Y%m%d %H%M%S'),
+	'20221002 170100',
+	'result 3: 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' );
+is( $results[3]->delay, 0, 'result 3: delay' );
+ok( !$results[3]->is_cancelled,        'result 3: not cancelled' );
+ok( !$results[3]->is_changed_platform, 'result 3: platform not changed' );
+
+for my $res ( $results[3]->line, $results[3]->train ) {
+	is( $res, 'S      3', 'result 3: line/train' );
 }
-for my $res ( $results[6]->line_no, $results[6]->train_no ) {
-	is( $res, 8, 'result 6: line/train number' );
+for my $res ( $results[3]->line_no, $results[3]->train_no ) {
+	is( $res, 3, 'result 3: line/train number' );
 }
 
-is( $results[6]->operator, undef, 'result 6: no operator' );
-is( $results[6]->platform, undef, 'result 6: no platform' );
+is( $results[3]->operator, undef, 'result 3: no operator' );
+is( $results[3]->platform, 4,     'result 3: platform' );
 
-for my $res ( $results[6]->route_end, $results[6]->destination,
-	$results[6]->origin )
+for my $res ( $results[3]->route_end, $results[3]->destination,
+	$results[3]->origin )
 {
-	is( $res, 'Paracelsus-Bad (U), Berlin', 'result 6: route start/end' );
+	is( $res, 'Berlin-Spandau (S)', 'result 3: route start/end' );
 }
 
-is( $results[6]->sched_date, '13.06.2020', 'result 6: sched_date' );
+is( $results[3]->sched_date, '02.10.2022', 'result 3: sched_date' );
 is(
-	$results[6]->sched_datetime->strftime('%Y%m%d %H%M%S'),
-	'20200613 142000',
-	'result 6: sched_datetime'
+	$results[3]->sched_datetime->strftime('%Y%m%d %H%M%S'),
+	'20221002 170100',
+	'result 3: 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' );
+is( $results[3]->sched_time, '17:01', 'result 3: sched_time' );
+is( $results[3]->time,       '17:01', 'result 3: time' );
+is( $results[3]->type,       'S',     'result 3: type' );