[Peterborough] Add OS MasterMap map tiles

This adds a new "MasterMap" map type which uses tiles from Tilma to
display MasterMap data.

1 files changed, 22 insertions, 0 deletions

diff --git a/t/map/mastermap.t b/t/map/mastermap.t
new file mode 100644
index 000000000..109142379
--- /dev/null
+++ b/t/map/mastermap.t
@@ -0,0 +1,22 @@
+use FixMyStreet::TestMech;
+
+use FixMyStreet::Map::MasterMap;
+
+subtest 'correct map tiles used' => sub {
+    my %test = (
+        16 => [ '-', 'oml' ],
+        20 => [ '.', 'mastermap' ]
+    );
+    foreach my $zoom (qw(16 20)) {
+        my $tiles = FixMyStreet::Map::MasterMap->map_tiles(x_tile => 123, y_tile => 456, zoom_act => $zoom);
+        my ($sep, $lyr) = @{$test{$zoom}};
+        is_deeply $tiles, [
+            "//a${sep}tilma.mysociety.org/$lyr/$zoom/122/455.png",
+            "//b${sep}tilma.mysociety.org/$lyr/$zoom/123/455.png",
+            "//c${sep}tilma.mysociety.org/$lyr/$zoom/122/456.png",
+            "//tilma.mysociety.org/$lyr/$zoom/123/456.png",
+        ];
+    }
+};
+
+done_testing();