Commit 797492ec authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add tests for identified_data

parent 2162daa7

t/20-vrr.t

+4 −1
Original line number Diff line number Diff line
@@ -6,7 +6,7 @@ use utf8; 


use Encode qw(decode);

use File::Slurp qw(slurp);

use Test::More tests => 111;

use Test::More tests => 113;



BEGIN {

	use_ok('Travel::Status::DE::VRR');
@@ -20,6 +20,9 @@ my $status = Travel::Status::DE::VRR->new_from_xml(xml => $xml); 
isa_ok($status, 'Travel::Status::DE::EFA');

can_ok($status, qw(errstr results));



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

is_deeply([$status->identified_data], [qw[Essen Hauptbahnhof]], 'identified_data');



my @results = $status->results;



for my $result (@results) {

t/21-vrr-ambig.t

+2 −1
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ use 5.010; 
use utf8;



use File::Slurp qw(slurp);

use Test::More tests => 9;

use Test::More tests => 10;



BEGIN {

	use_ok('Travel::Status::DE::VRR');
@@ -28,3 +28,4 @@ is_deeply([$status->name_candidates], ['Alfredusbad', 'Am Alfredusbad'], 'name c 


is_deeply([$status->lines], [], 'no lines');

is_deeply([$status->results], [], 'no results');

is_deeply([$status->identified_data], [qw[Essen Alfredusbad]], 'identified data');