From d146e44ff3a8b3304e6603a2238c40034c4b91a1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 20 Nov 2011 12:42:44 +0100 Subject: VRR.pm: Check for 'ambiguous input' error condition --- t/21-vrr-ambig.t | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 t/21-vrr-ambig.t (limited to 't/21-vrr-ambig.t') diff --git a/t/21-vrr-ambig.t b/t/21-vrr-ambig.t new file mode 100644 index 0000000..7dd96a4 --- /dev/null +++ b/t/21-vrr-ambig.t @@ -0,0 +1,28 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; +use utf8; + +use File::Slurp qw(slurp); +use Test::More tests => 7; + +BEGIN { + use_ok('Travel::Status::DE::VRR'); +} +require_ok('Travel::Status::DE::VRR'); + +my $xml = slurp('t/in/essen_alfredusbad_ambiguous.xml'); + +my $status = Travel::Status::DE::VRR->new_from_xml(xml => $xml); + +isa_ok($status, 'Travel::Status::DE::VRR'); +can_ok($status, qw(errstr results)); + +$status->check_for_ambiguous(); + +is($status->errstr, 'Ambiguous name input: Alfredusbad | Am Alfredusbad', + 'errstr ok'); + +is_deeply([$status->lines], [], 'no lines'); +is_deeply([$status->results], [], 'no results'); -- cgit v1.2.3