From eccf8ca2b1d6625a2d17d12ab2f0dbc5d49fac75 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 16 Jan 2014 14:57:00 +0100 Subject: Move EFA logic to ::EFA, just set URL in ::VRR --- t/21-vrr.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 't/21-vrr.t') diff --git a/t/21-vrr.t b/t/21-vrr.t index 139790e..1478cf2 100644 --- a/t/21-vrr.t +++ b/t/21-vrr.t @@ -10,24 +10,24 @@ use File::Slurp qw(slurp); use Test::More tests => 74; BEGIN { - use_ok('Travel::Routing::DE::VRR'); + use_ok('Travel::Routing::DE::EFA'); } -require_ok('Travel::Routing::DE::VRR'); +require_ok('Travel::Routing::DE::EFA'); my $xml = slurp('t/in/e_alf_d_hbf.xml'); -my $routing = Travel::Routing::DE::VRR->new_from_xml( xml => $xml ); +my $routing = Travel::Routing::DE::EFA->new_from_xml( xml => $xml ); -isa_ok( $routing, 'Travel::Routing::DE::VRR' ); +isa_ok( $routing, 'Travel::Routing::DE::EFA' ); can_ok( $routing, 'routes' ); for my $r ( $routing->routes ) { - isa_ok( $r, 'Travel::Routing::DE::VRR::Route' ); + isa_ok( $r, 'Travel::Routing::DE::EFA::Route' ); can_ok( $r, qw(duration parts ticket_type fare_adult fare_child vehicle_time) ); for my $c ( $r->parts ) { - isa_ok( $c, 'Travel::Routing::DE::VRR::Route::Part' ); + isa_ok( $c, 'Travel::Routing::DE::EFA::Route::Part' ); can_ok( $c, qw( arrival_stop arrival_platform arrival_stop_and_platform -- cgit v1.2.3