VRR.pm: Check for 'ambiguous input' error condition

2 files changed, 109 insertions, 0 deletions

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');
diff --git a/t/in/essen_alfredusbad_ambiguous.xml b/t/in/essen_alfredusbad_ambiguous.xml
new file mode 100644
index 0000000..9b3e589
--- /dev/null
+++ b/t/in/essen_alfredusbad_ambiguous.xml
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="utf-8"?>
+<itdRequest version="9.16.27.53" language="de" lengthUnit="METER" sessionID="efa1.vrr.de_36925562" client="libwww-perl/6.03" clientIP="87.147.17.185" serverID="efa1.vrr.de_" virtDir="vrr" now="2011-11-20T12:18:48" nowWD="1">
+  <itdLayoutParams>
+    <itdLayoutParam name="mdvMap2_dm" value="" />
+    <itdLayoutParam name="mapState_dm" value="" />
+    <itdLayoutParam name="mdvMap_dm" value="3406199:401077:NAV3" />
+    <itdLayoutParam name="view" value="" />
+    <itdLayoutParam name="id_dm" value=":dm" />
+    <itdLayoutParam name="transpCompany" value="vrr" />
+  </itdLayoutParams>
+  <itdDepartureMonitorRequest requestID="1">
+    <itdOdv type="stop" usage="dm">
+      <itdOdvPlace state="identified" method="itp">
+        <odvPlaceElem omc="5113000" placeID="18" value="5113000:18" span="0" type="remote" mainPlace="1">Essen</odvPlaceElem>
+        <odvPlaceInput>E</odvPlaceInput>
+      </itdOdvPlace>
+      <itdOdvName state="list" method="itp">
+        <itdMessage type="error" module="BROKER" code="1">name list</itdMessage>
+        <odvNameElem listIndex="0" selected="0" matchQuality="999010" stopID="20009115" value="0:1">Alfredusbad</odvNameElem>
+        <odvNameElem listIndex="1" selected="0" matchQuality="996010" stopID="20009903" value="1:2">Am Alfredusbad</odvNameElem>
+        <odvNameInput>Afredusbad</odvNameInput>
+      </itdOdvName>
+    </itdOdv>
+    <itdDateTime ttpFrom="20110901" ttpTo="20120531">
+      <itdDate weekday="1" year="2011" month="11" day="20" />
+      <itdTime hour="12" minute="20" />
+    </itdDateTime>
+    <itdDateRange>
+      <itdDate day="20" month="11" year="2011" weekday="1" />
+      <itdDate day="21" month="11" year="2011" weekday="2" />
+      <itdDate day="22" month="11" year="2011" weekday="3" />
+      <itdDate day="23" month="11" year="2011" weekday="4" />
+      <itdDate day="24" month="11" year="2011" weekday="5" />
+      <itdDate day="25" month="11" year="2011" weekday="6" />
+      <itdDate day="26" month="11" year="2011" weekday="7" />
+      <itdDate day="27" month="11" year="2011" weekday="1" />
+      <itdDate day="28" month="11" year="2011" weekday="2" />
+      <itdDate day="29" month="11" year="2011" weekday="3" />
+      <itdDate day="30" month="11" year="2011" weekday="4" />
+      <itdDate day="01" month="12" year="2011" weekday="5" />
+      <itdDate day="02" month="12" year="2011" weekday="6" />
+      <itdDate day="03" month="12" year="2011" weekday="7" />
+      <itdDate day="04" month="12" year="2011" weekday="1" />
+    </itdDateRange>
+    <itdTripOptions>
+      <itdPtOptions>
+        <excludedMeans>
+          <meansElem value="0" selected="0">Zug</meansElem>
+          <meansElem value="1" selected="0">S-Bahn</meansElem>
+          <meansElem value="2" selected="0">U-Bahn</meansElem>
+          <meansElem value="3" selected="0">Stadtbahn</meansElem>
+          <meansElem value="4" selected="0">Straßen-/Trambahn</meansElem>
+          <meansElem value="5" selected="0">Stadtbus</meansElem>
+          <meansElem value="6" selected="0">Regionalbus</meansElem>
+          <meansElem value="7" selected="0">Schnellbus</meansElem>
+          <meansElem value="8" selected="0">Seil-/Zahnradbahn</meansElem>
+          <meansElem value="9" selected="0">Schiff</meansElem>
+          <meansElem value="10" selected="0">AST/Rufbus</meansElem>
+          <meansElem value="11" selected="0">Sonstige</meansElem>
+        </excludedMeans>
+      </itdPtOptions>
+      <itdItOptions>
+        <itRouter logASCII="false" logSVG="false" />
+        <itPedestrian computeMonomodalTrip="false" computationType="PT_AND_IT" itIncidentData="false" useElevation="false" speedFactor="100" costFactor="0" distanceFactor="50" traveltimeFactor="50" noTunnel="false" noBridge="false" noFerry="false" maxTime="20" maxLength="2147483647" ignoreRestrictions="false" />
+        <itBicycle preferAsphaltTracks="false" preferGreenTracks="false" usePseudoRouting="false" useSignedRoute="false" cycleSpeed="20" prefHikePath="false" elevFac="50" bikeProf="UNKNOWN" computeMonomodalTrip="false" computationType="PT_AND_IT" itIncidentData="false" useElevation="false" speedFactor="100" costFactor="0" distanceFactor="50" traveltimeFactor="50" noTunnel="false" noBridge="false" noFerry="false" maxTime="15" maxLength="2147483647" ignoreRestrictions="false" />
+        <mitCar computeMonomodalTrip="false" computationType="PT_AND_IT" itIncidentData="false" useElevation="false" speedFactor="100" costFactor="0" distanceFactor="10" traveltimeFactor="90" noTunnel="false" noBridge="false" noFerry="false" maxTime="90" maxLength="2147483647" ignoreRestrictions="false" mitProfileData="false" mitIncidentData="false" mitOnlineData="false" noHighway="false" noTollRoad="false" />
+        <departureTransport>
+          <individualTransport meansCode="100" value="8" speed="normal" selected="1" />
+          <individualTransport meansCode="101" value="15" speed="normal" selected="0" />
+          <individualTransport meansCode="102" value="15" speed="normal" selected="0" />
+          <individualTransport meansCode="103" value="10" speed="normal" selected="0" />
+          <individualTransport meansCode="104" value="10" speed="normal" selected="0" />
+          <individualTransport meansCode="105" value="30" speed="normal" selected="0" />
+          <individualTransport meansCode="106" value="15" speed="normal" selected="0" />
+          <individualTransport meansCode="107" value="15" speed="normal" selected="0" />
+        </departureTransport>
+      </itdItOptions>
+    </itdTripOptions>
+  </itdDepartureMonitorRequest>
+</itdRequest>
+