From 48a14373db07a1b1556b2a8d176eb851cd2bd44a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 14 Oct 2015 23:54:04 +0200 Subject: more tests --- t/24-results-route.t | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) (limited to 't/24-results-route.t') diff --git a/t/24-results-route.t b/t/24-results-route.t index 9d430c9..f72ffa6 100644 --- a/t/24-results-route.t +++ b/t/24-results-route.t @@ -4,9 +4,8 @@ use warnings; use 5.010; use utf8; -use Data::Dumper; use List::Util qw(first); -use Test::More tests => 17; +use Test::More tests => 32; BEGIN { use_ok('Travel::Status::DE::URA'); @@ -54,3 +53,24 @@ is(($results[0]->route_post)[2]->name, 'Gesundheitsamt', '->route_post[2]->name' is(($results[0]->route_post)[0]->TO_JSON->{datetime}, ($results[0]->route_post)[0]->datetime, 'TO_JSON.datetime'); is(($results[0]->route_post)[0]->TO_JSON->{name}, ($results[0]->route_post)[0]->name, 'TO_JSON.name'); + +isa_ok(($results[1]->route_interesting)[0], 'Travel::Status::DE::URA::Stop', + '->route_interesting isa ::Stop'); +is(scalar $results[1]->route_interesting(1), 1, '->route_interesting(1) returns one element'); +is(scalar $results[1]->route_interesting(2), 2, '->route_interesting(2) returns two elements'); + is(scalar $results[1]->route_interesting, 3, '->route_interesting() returns hree elements'); +is(scalar $results[1]->route_interesting(4), 4, '->route_interesting(4) returns four elements'); + +is(($results[1]->route_interesting(1))[0]->name, 'Weststraße', '->route_interesting[0] is next'); +is(($results[1]->route_interesting(2))[0]->name, 'Weststraße', '->route_interesting[0] is next'); +is(($results[1]->route_interesting)[0]->name, 'Weststraße', '->route_interesting[0] is next'); +is(($results[1]->route_interesting(4))[0]->name, 'Weststraße', '->route_interesting[0] is next'); + +is(($results[1]->route_interesting(2))[1]->name, 'Aachen Bushof', '->route_interesting[1]'); +is(($results[1]->route_interesting)[1]->name, 'Aachen Bushof', '->route_interesting[1]'); +is(($results[1]->route_interesting(4))[1]->name, 'Technologiepark', '->route_interesting[1] (no more important stops)'); + +is(($results[1]->route_interesting)[2]->name, 'Bahnhof Rothe Erde', '->route_interesting[2]'); +is(($results[1]->route_interesting(4))[2]->name, 'Aachen Bushof', '->route_interesting[2]'); + +is(($results[1]->route_interesting(4))[3]->name, 'Bahnhof Rothe Erde', '->route_interesting[3]'); -- cgit v1.2.3