Commit c5e32e45 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add tests for DB backend

parent a44bc293

lib/Travel/Status/DE/HAFAS.pm

+11 −6
Original line number Diff line number Diff line
@@ -145,6 +145,10 @@ sub new { 


	my $url = ( $conf{url} // $hafas_instance{$service}{url} ) . "/${lang}n";



	if ( $conf{xml} ) {

		$ref->{raw_xml} = $conf{xml};

	}

	else {

		$reply = $ua->post( $url, $ref->{post} );



		if ( $reply->is_error ) {
@@ -153,6 +157,7 @@ sub new { 
		}



		$ref->{raw_xml} = $reply->content;

	}



	# the interface often does not return valid XML (but it's close!)

	if ( substr( $ref->{raw_xml}, 0, 5 ) ne '<?xml' ) {

t/20-db.t

0 → 100755
+112 −0
Original line number Diff line number Diff line 
#!/usr/bin/env perl

use strict;

use warnings;

use 5.020;



use utf8;



use File::Slurp qw(read_file);

use Test::More tests => 46;



use Travel::Status::DE::HAFAS;



my $xml = read_file('t/in/DB.Berlin Jannowitzbrücke.xml');



my $status = Travel::Status::DE::HAFAS->new(

	service => 'DB',

	station => 'Berlin Jannowitzbrücke',

	xml     => $xml

);



is( $status->errcode, undef, 'no error code' );

is( $status->errstr,  undef, 'no error string' );



is(

	$status->get_active_service->{name},

	'Deutsche Bahn',

	'active service name'

);



is( scalar $status->results, 73, 'number of results' );



my @results = $status->results;



# Result 0: S-Bahn



is( $results[0]->date, '13.06.2020', 'result 0: date' );

is(

	$results[0]->datetime->strftime('%Y%m%d %H%M%S'),

	'20200613 141700',

	'result 0: datetime'

);

is( $results[0]->delay, 2,     'result 0: delay' );

is( $results[0]->info,  undef, 'result 0: no info' );

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' );

}

for my $res ( $results[0]->line_no, $results[0]->train_no ) {

	is( $res, 5, 'result 0: line/train number' );

}



is( $results[0]->operator, undef, 'result 0: no operator' );

is( $results[0]->platform, '4',   '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( $results[0]->sched_date, '13.06.2020', 'result 0: sched_date' );

is(

	$results[0]->sched_datetime->strftime('%Y%m%d %H%M%S'),

	'20200613 141500',

	'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' );



# Result 2: Bus



is( $results[2]->date, '13.06.2020', 'result 2: date' );

is(

	$results[2]->datetime->strftime('%Y%m%d %H%M%S'),

	'20200613 141700',

	'result 2: datetime'

);

is( $results[2]->delay, 0,     'result 2: delay' );

is( $results[2]->info,  undef, 'result 2: no info' );

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' );

}

for my $res ( $results[2]->line_no, $results[2]->train_no ) {

	is( $res, 300, 'result 2: line/train number' );

}



is( $results[2]->operator, undef, 'result 2: no operator' );

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( $results[2]->sched_date, '13.06.2020', 'result 2: sched_date' );

is(

	$results[2]->sched_datetime->strftime('%Y%m%d %H%M%S'),

	'20200613 141700',

	'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' );

t/30-invalid-xml.t

0 → 100755
+21 −0
Original line number Diff line number Diff line 
#!/usr/bin/env perl

use strict;

use warnings;

use 5.020;



use utf8;



use File::Slurp qw(read_file);

use Test::More tests => 1;



use Travel::Status::DE::HAFAS;



my $xml = 'lol';



my $status = Travel::Status::DE::HAFAS->new(

	service => 'DB',

	station => 'Berlin Jannowitzbrücke',

	xml => $xml

);



is (scalar $status->results, 0, 'no results on invalid input');

t/in/DB.Berlin Jannowitzbrücke.xml

0 → 100644
+0 −0

File added.

Preview size limit exceeded, changes collapsed.

t/in/NAHSH.Flensburg.xml

0 → 100644
+40 −0

File added.

Preview size limit exceeded, changes collapsed.