summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-11-29 15:42:54 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-11-29 15:42:54 +0100
commitc4cc115ec6434b7245a710ecba99dc11d16ae1d1 (patch)
treef2e244b7d7f1f9b5cf7f739a5221470f071617d5
parent9aa1eab9c3fca4713ae67acab23d9b65e96ace9b (diff)
add tests for XML parsing
-rwxr-xr-xbin/efa2
-rw-r--r--lib/Travel/Routing/DE/VRR.pm12
-rw-r--r--lib/Travel/Routing/DE/VRR/Route/Part.pm6
-rw-r--r--t/21-vrr.t106
4 files changed, 125 insertions, 1 deletions
diff --git a/bin/efa b/bin/efa
index 24026a3..5201c68 100755
--- a/bin/efa
+++ b/bin/efa
@@ -127,7 +127,7 @@ sub display_connection {
);
if ( $opt->{'extended-info'} and $opt->{'extended-info'} == 2 ) {
- for my $via ( @{ $c->{via} } ) {
+ for my $via ( $c->via ) {
printf( "%-5s %-22s %s\n", @{$via}[ 1 .. 3 ] );
}
}
diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm
index 56aa28e..afa2ffe 100644
--- a/lib/Travel/Routing/DE/VRR.pm
+++ b/lib/Travel/Routing/DE/VRR.pm
@@ -395,6 +395,18 @@ sub new {
return $ref;
}
+sub new_from_xml {
+ my ( $class, %opt ) = @_;
+
+ my $self = { xml_reply => $opt{xml} };
+
+ bless( $self, $class );
+
+ $self->parse();
+
+ return $self;
+}
+
sub submit {
my ( $self, %conf ) = @_;
diff --git a/lib/Travel/Routing/DE/VRR/Route/Part.pm b/lib/Travel/Routing/DE/VRR/Route/Part.pm
index 5122868..9c35196 100644
--- a/lib/Travel/Routing/DE/VRR/Route/Part.pm
+++ b/lib/Travel/Routing/DE/VRR/Route/Part.pm
@@ -44,6 +44,12 @@ sub extra {
return @{ $self->{extra} // [] };
}
+sub via {
+ my ($self) = @_;
+
+ return ${ $self->{via} // [] };
+}
+
1;
__END__
diff --git a/t/21-vrr.t b/t/21-vrr.t
new file mode 100644
index 0000000..355f464
--- /dev/null
+++ b/t/21-vrr.t
@@ -0,0 +1,106 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.010;
+
+use utf8;
+
+use Encode qw(decode);
+use File::Slurp qw(slurp);
+use Test::More tests => 73;
+
+BEGIN {
+ use_ok('Travel::Routing::DE::VRR');
+}
+require_ok('Travel::Routing::DE::VRR');
+
+my $xml = slurp('t/in/e_alf_d_hbf.xml');
+
+my $routing = Travel::Routing::DE::VRR->new_from_xml( xml => $xml );
+
+isa_ok( $routing, 'Travel::Routing::DE::VRR' );
+can_ok( $routing, 'routes' );
+
+for my $r ( $routing->routes ) {
+ isa_ok( $r, 'Travel::Routing::DE::VRR::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' );
+ can_ok(
+ $c, qw(
+ arrival_stop arrival_platform arrival_stop_and_platform
+ arrival_date arrival_sdate arrival_time arrival_stime
+ departure_stop departure_platform departure_stop_and_platform
+ departure_date departure_sdate departure_time departure_stime
+ delay extra train_line train_destination
+ )
+ );
+ }
+}
+
+my $r0 = ( $routing->routes )[0];
+
+is( $r0->duration, '00:45', 'r0: duration' );
+is( $r0->vehicle_time, 35, 'r0: vehicle_time' );
+is( $r0->ticket_type, 'B', 'r0: ticket_type' );
+is( $r0->fare_adult, '4.70', 'r0: fare_adult' );
+is( $r0->fare_child, '1.40', 'r0: fare_child' );
+
+my ( $c0, $c1 ) = $r0->parts;
+
+is( $c0->delay, 0, 'r0,0: delay' );
+is_deeply( [ $c0->extra ], [], 'r0,0: extra' );
+is( $c0->train_line, decode( 'UTF-8', 'Straßenbahn 107' ), 'r0,0: line' );
+is( $c0->train_destination, 'Essen Hanielstr. Schleife', 'r0,0: dest' );
+is( $c0->departure_stop, 'Essen Alfredusbad', 'r0,0: dstop' );
+is( $c0->departure_platform, 'Bstg. 1', 'r0,0: dplatf' );
+is(
+ $c0->departure_stop_and_platform,
+ 'Essen Alfredusbad: Bstg. 1',
+ 'r0,0: dsp'
+);
+is( $c0->departure_date, '27.11.2011', 'r0,0: drdate' );
+is( $c0->departure_sdate, '27.11.2011', 'r0,0: dsdate' );
+is( $c0->departure_time, '13:55', 'r0,0: drtime' );
+is( $c0->departure_stime, '13:55', 'r0,0: dstime' );
+is( $c0->arrival_stop, 'Essen Hauptbahnhof', 'r0,0: astop' );
+is( $c0->arrival_platform, 'Bstg. 1', 'r0,0: aplatf' );
+is( $c0->arrival_stop_and_platform, 'Essen Hauptbahnhof: Bstg. 1',
+ 'r0,0: asp' );
+is( $c0->arrival_date, '27.11.2011', 'r0,0: ardate' );
+is( $c0->arrival_sdate, '27.11.2011', 'r0,0: asdate' );
+is( $c0->arrival_time, '14:02', 'r0,0: artime' );
+is( $c0->arrival_stime, '14:02', 'r0,0: astime' );
+
+is( $c1->delay, 3, 'r0,1: delay' );
+is_deeply(
+ [ $c1->extra ],
+ [ decode( 'UTF-8', 'Fahrradmitnahme begrenzt möglich' ) ],
+ 'r0,1: extra'
+);
+is( $c1->train_line, 'R-Bahn RE1', 'r0,1: line' );
+is( $c1->train_destination, 'Aachen, Hbf', 'r0,1: dest' );
+is( $c1->departure_stop, 'Essen Hauptbahnhof', 'r0,1: dstop' );
+is( $c1->departure_platform, 'Gleis 2', 'r0,1: dplatf' );
+is(
+ $c1->departure_stop_and_platform,
+ 'Essen Hauptbahnhof: Gleis 2',
+ 'r0,1: dsp'
+);
+is( $c1->departure_date, '27.11.2011', 'r0,1: drdate' );
+is( $c1->departure_sdate, '27.11.2011', 'r0,1: dsdate' );
+is( $c1->departure_time, '14:12', 'r0,1: drtime' );
+is( $c1->departure_stime, '14:09', 'r0,1: dstime' );
+is( $c1->arrival_stop, decode( 'UTF-8', 'Düsseldorf Hbf' ), 'r0,1: astop' );
+is( $c1->arrival_platform, 'Gleis 16', 'r0,1: aplatf' );
+is(
+ $c1->arrival_stop_and_platform,
+ decode( 'UTF-8', 'Düsseldorf Hbf: Gleis 16' ),
+ 'r0,1: asp'
+);
+is( $c1->arrival_date, '27.11.2011', 'r0,1: ardate' );
+is( $c1->arrival_sdate, '27.11.2011', 'r0,1: asdate' );
+is( $c1->arrival_time, '14:40', 'r0,1: artime' );
+is( $c1->arrival_stime, '14:37', 'r0,1: astime' );