#!perl

use Test::More tests => 1;

use Map::Tube;

my $map   = Map::Tube->new();
my @route = $map->get_shortest_route('Baker Street', 'Neasden');
my @expected = ('Baker Street',
				'St. John\'s Wood',
				'Swiss Cottage',
				'Finchley Road',
				'West Hampstead',
				'Kilburn',
				'Willesden Green',
				'Dollis Hill',
				'Neasden');
ok(eq_array(\@route, \@expected));