Unit tests for Champlain::MapSource

diff --git a/bindings/perl/Champlain/t/ChamplainMapSource.t b/bindings/perl/Champlain/t/ChamplainMapSource.t
new file mode 100644 (file)
index 0000000..69081ce
--- /dev/null
+++ b/bindings/perl/Champlain/t/ChamplainMapSource.t
@@ -0,0 +1,161 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Clutter::TestHelper tests => 57;
+
+use Champlain ':coords';
+
+exit tests();
+
+sub tests {
+       test_osm();
+       test_oam();
+       test_mff();
+       return 0;
+}
+
+
+# OpenStreetMap
+sub test_osm {
+       my $label = "OpenStreetMap";
+       my $map = Champlain::MapSource->new_osm_mapnik();
+       isa_ok($map, 'Champlain::MapSource');
+       
+       # Map identification
+       is($map->get_name, 'OpenStreetMap Mapnik', "$label name");
+       is($map->get_min_zoom_level, 0, "$label min zoom");
+       is($map->get_max_zoom_level, 18, "$label max zoom");
+       is($map->get_tile_size, 256, "$label tile size");
+       
+       # Generic map operations
+       generic_map_operations($label, $map);
+}
+
+
+# OpenArialMap
+sub test_oam {
+       my $label = "OpenArialMap";
+       my $map = Champlain::MapSource->new_oam();
+       isa_ok($map, 'Champlain::MapSource');
+       
+       # Map identification
+       is($map->get_name, 'OpenArialMap', "$label name");
+       is($map->get_min_zoom_level, 0, "$label min zoom");
+       is($map->get_max_zoom_level, 17, "$label max zoom");
+       is($map->get_tile_size, 256, "$label tile size");
+       
+       # Generic map operations
+       generic_map_operations($label, $map);
+}
+
+
+# Maps for Free
+sub test_mff {
+       my $label = "Maps for Free";
+       my $map = Champlain::MapSource->new_mff_relief();
+       isa_ok($map, 'Champlain::MapSource');
+       
+       # Map identification
+       is($map->get_name, 'MapsForFree Relief', "$label name");
+       is($map->get_min_zoom_level, 0, "$label min zoom");
+       is($map->get_max_zoom_level, 11, "$label max zoom");
+       is($map->get_tile_size, 256, "$label tile size");
+       
+       # Generic map operations
+       generic_map_operations($label, $map);
+}
+
+
+
+# Genereic checks that should work on all map sources
+sub generic_map_operations {
+       my ($label, $map) = @_;
+
+       # Ask for the X position of the middle point
+       is(
+               $map->get_x($map->get_min_zoom_level, 0.0),
+               $map->get_tile_size/2,
+               "$label middle map x"
+       );
+       is(
+               $map->get_longitude($map->get_min_zoom_level, $map->get_tile_size/2),
+               0.0,
+               "$label middle map longitude"
+       );
+       
+       # Ask for the X position of the point the most to the right
+       is(
+               $map->get_x($map->get_min_zoom_level, MAX_LONG),
+               $map->get_tile_size,
+               "$label max map x"
+       );
+       is(
+               $map->get_longitude($map->get_min_zoom_level, $map->get_tile_size),
+               MAX_LONG,
+               "$label max map longitude"
+       );
+       
+       # Ask for the X position of the point the most to the left
+       is(
+               $map->get_x($map->get_min_zoom_level, MIN_LONG),
+               0,
+               "$label min map x"
+       );
+       is(
+               $map->get_longitude($map->get_min_zoom_level, 0),
+               MIN_LONG,
+               "$label min map longitude"
+       );
+       
+       
+       # Ask for the Y position of the point in the middle
+       is(
+               $map->get_y($map->get_min_zoom_level, 0.0),
+               $map->get_tile_size/2,
+               "$label middle map y"
+       );
+       is(
+               $map->get_latitude($map->get_min_zoom_level, $map->get_tile_size/2),
+               0.0,
+               "$label middle map latitude"
+       );
+       
+       # Ask for the Y position of the point the most to the right.
+       # Libchamplain is using a "Mercator projection" which has troubles with high
+       # latidudes. Values above 85 are not handled properly.
+       my $mercator_limit = 85;
+       ok(
+               $map->get_y($map->get_min_zoom_level, MAX_LAT) > 0,
+               "$label max map y"
+       );
+       ok(
+               $map->get_latitude($map->get_min_zoom_level, $map->get_tile_size) < -$mercator_limit,
+               "$label max map latitude"
+       );
+       
+       # Ask for the Y position of the point the most to the left
+       is(
+               $map->get_y($map->get_min_zoom_level, MIN_LAT),
+               0,
+               "$label min map y"
+       );
+       ok(
+               $map->get_latitude($map->get_min_zoom_level, 0) > $mercator_limit,
+               "$label min map latitude"
+       );
+       
+       
+       # The map at the first level should have a single tile (1x1)
+       is(
+               $map->get_row_count($map->get_min_zoom_level),
+               1,
+               "$label row count at min zoom"
+       );
+       is(
+               $map->get_column_count($map->get_min_zoom_level),
+               1,
+               "$label column count at min zoom"
+       );
+}