diff options
Diffstat (limited to 't/20-db.t')
-rw-r--r-- | t/20-db.t | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -4,7 +4,7 @@ use warnings; use 5.010; use File::Slurp qw(slurp); -use Test::More tests => 90; +use Test::More tests => 93; BEGIN { use_ok('Travel::Status::DE::DeutscheBahn'); @@ -44,3 +44,15 @@ is_deeply([$departures[8]->route], ['Essen-Borbeck', 'Bottrop Hbf', 'Gladbeck West', 'Gladbeck-Zweckel', 'Feldhausen', 'Dorsten', 'Hervest-Dorsten', 'Deuten', 'Rhade', 'Marbeck-Heiden', 'Borken(Westf)'], '9th result: route ok'); + +is_deeply([$departures[5]->route_interesting(3)], + ['Essen-Steele', 'Essen-Steele Ost', 'Bochum'], + '6th result: route_interesting(3) ok'); + +is_deeply([$departures[7]->route_interesting(3)], + ['Wattenscheid', 'Bochum', 'Dortmund'], + '8th result: route_interesting(3) ok'); + +is_deeply([$departures[10]->route_interesting(5)], + [qw[Wattenscheid Bochum Witten Hagen]], + '11th result: route_interesting(5) ok'); |