1
2
3
4
5
6
7
8
9
10
11
12
|
use Test::More;
use FixMyStreet::Map::Bing;
my $tiles = FixMyStreet::Map::Bing->map_tiles(x_tile => 8105, y_tile => 5375, zoom_act => 14);
$tiles = [ map { m{ch/([^?]*)}; $1; } @$tiles ];
is_deeply $tiles, [ '03131132323220', '03131132323221', '03131132323222', '03131132323223' ];
$tiles = FixMyStreet::Map::Bing->map_tiles(x_tile => 8105, y_tile => 5375, zoom_act => 14, aerial => 1);
$tiles = [ map { m{ch/([^?]*)\?.*A,G,L}; $1; } @$tiles ];
is_deeply $tiles, [ '03131132323220', '03131132323221', '03131132323222', '03131132323223' ];
done_testing();
|
