summaryrefslogtreecommitdiff
path: root/t/20-vrr.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2016-04-19 19:08:22 +0200
committerDaniel Friesel <derf@finalrewind.org>2016-04-19 19:08:22 +0200
commit797492ec8c039098849c8093e8d6412c3e5971f8 (patch)
tree56210af705df274890ec23fb0e47c418553a0f50 /t/20-vrr.t
parent2162daa756f8a8e5f05c42200262910866a8b937 (diff)
add tests for identified_data
Diffstat (limited to 't/20-vrr.t')
-rw-r--r--t/20-vrr.t5
1 files changed, 4 insertions, 1 deletions
diff --git a/t/20-vrr.t b/t/20-vrr.t
index 76176e9..95eb7a3 100644
--- a/t/20-vrr.t
+++ b/t/20-vrr.t
@@ -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) {