diff options
author | Daniel Friesel <derf@finalrewind.org> | 2016-04-19 19:08:22 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2016-04-19 19:08:22 +0200 |
commit | 797492ec8c039098849c8093e8d6412c3e5971f8 (patch) | |
tree | 56210af705df274890ec23fb0e47c418553a0f50 /t | |
parent | 2162daa756f8a8e5f05c42200262910866a8b937 (diff) |
add tests for identified_data
Diffstat (limited to 't')
-rw-r--r-- | t/20-vrr.t | 5 | ||||
-rw-r--r-- | t/21-vrr-ambig.t | 3 |
2 files changed, 6 insertions, 2 deletions
@@ -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) { diff --git a/t/21-vrr-ambig.t b/t/21-vrr-ambig.t index fb03a43..e4783f5 100644 --- a/t/21-vrr-ambig.t +++ b/t/21-vrr-ambig.t @@ -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'); |