Test the registration of a custom map source

diff --git a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
index 62a3e1480210c79da1d967b51fb01cebead8b5c8..c6de5cab921a7fabec7cfde3d16d268532849f6a 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
+++ b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 22;
+use Clutter::TestHelper tests => 35;
 
-use Champlain ':coords';
+use Champlain ':maps';
 
 my $OSM_LICENSE = "(CC) BY 2.0 OpenStreetMap contributors";
 
@@ -14,6 +14,7 @@ exit tests();
 sub tests {
        test_map_source_names();
        test_map_factory();
+       test_map_register();
        return 0;
 }
 
@@ -28,7 +29,6 @@ sub test_map_source_names {
 }
 
 
-
 sub test_map_factory {
        my $factory = Champlain::MapSourceFactory->dup_default();
        isa_ok($factory, 'Champlain::MapSourceFactory');
@@ -65,6 +65,57 @@ sub test_map_factory {
 }
 
 
+sub test_map_register {
+       my $factory = Champlain::MapSourceFactory->get_default();
+       isa_ok($factory, 'Champlain::MapSourceFactory');
+       
+       # Get the maps available
+       my @maps = $factory->get_list();
+       ok(@maps >= 5, "Maps factory has the default maps");
+       
+       # Add a new map
+       my $description = {
+       id => 'perl',
+               name => 'Perl Fake Map',
+               license => 'Artistic License',
+               license_uri => 'http://dev.perl.org/licenses/artistic.html',
+               min_zoom_level => 0,
+               max_zoom_level => 11,
+               projection => 'mercator',
+       };
+       
+       $factory->register($description, sub {
+               return Champlain::NetworkMapSource->new_full(
+                       $description->{id},
+                       $description->{name},
+                       $description->{license},
+                       $description->{license_uri},
+                       $description->{min_zoom_level},
+                       $description->{max_zoom_level},
+                       256,
+                       $description->{projection},
+                       # This is a copy of OAM
+                       "http://tile.openaerialmap.org/tiles/1.0.0/openaerialmap-900913/#Z#/#X#/#Y#.jpg",
+               );
+       });
+
+       my @new_maps = $factory->get_list();
+       ok(@new_maps == @maps + 1, "Maps factory has an extra map");
+       
+       my $map = $factory->create('perl');
+       isa_ok($map, 'Champlain::MapSource');
+       is($map->get_id, $description->{id}, "Created map has the right id");
+       is($map->get_name, $description->{name}, "Created map has the right name");
+       is($map->get_license, $description->{license}, "Created map has the right license");
+       is($map->get_license_uri, $description->{license_uri}, "Created map has the right license_uri");
+       is($map->get_min_zoom_level, $description->{min_zoom_level}, "Created map has the right min_zoom_level");
+       is($map->get_max_zoom_level, $description->{max_zoom_level}, "Created map has the right max_zoom_level");
+       is($map->get_projection, $description->{projection}, "Created map has the right projection");
+       is($map->get_tile_size, 256, "Created map has the right tile_size");
+       is($map->get_tile_uri(1, 2, 3), "http://tile.openaerialmap.org/tiles/1.0.0/openaerialmap-900913/3/1/2.jpg", "Created map has the right tile_uri");
+}
+
+
 sub generic_create {
        my ($factory, $id, $name) = @_;
        my $map = $factory->create($id);