diff options
Diffstat (limited to 't/cobrand/bromley.t')
| -rw-r--r-- | t/cobrand/bromley.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/cobrand/bromley.t b/t/cobrand/bromley.t index d62a0ad0f..6ee4be282 100644 --- a/t/cobrand/bromley.t +++ b/t/cobrand/bromley.t @@ -194,4 +194,21 @@ subtest 'check display of TfL reports' => sub { $mech->content_like(qr{<a title="Test Test[^>]*bromley.example.org[^>]*><img[^>]*yellow}); }; +subtest 'check geolocation overrides' => sub { + my $cobrand = FixMyStreet::Cobrand::Bromley->new; + foreach my $test ( + { query => 'Main Rd, BR1', town => 'Bromley', string => 'Main Rd' }, + { query => 'Main Rd, BR3', town => 'Beckenham', string => 'Main Rd' }, + { query => 'Main Rd, BR4', town => 'West Wickham', string => 'Main Rd' }, + { query => 'Main Rd, BR5', town => 'Orpington', string => 'Main Rd' }, + { query => 'Main Rd, BR7', town => 'Chislehurst', string => 'Main Rd' }, + { query => 'Main Rd, BR8', town => 'Swanley', string => 'Main Rd' }, + { query => 'Old Priory Avenue', town => 'BR6 0PL', string => 'Old Priory Avenue' }, + ) { + my $res = $cobrand->disambiguate_location($test->{query}); + is $res->{town}, $test->{town}, "Town matches $test->{town}"; + is $res->{string}, $test->{string}, "String matches $test->{string}"; + } +}; + done_testing(); |