Test the id and the name of the NetworkMapSource

diff --git a/bindings/perl/Champlain/t/ChamplainNetworkMapSource.t b/bindings/perl/Champlain/t/ChamplainNetworkMapSource.t
index 33fb4ea7522cf239ac223a3444ced3e2d1306cf5..16de35eb8dfbec39157ba2d2d14fbcc41306a20c 100644 (file)
--- a/bindings/perl/Champlain/t/ChamplainNetworkMapSource.t
+++ b/bindings/perl/Champlain/t/ChamplainNetworkMapSource.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 4;
+use Clutter::TestHelper tests => 6;
 
 use Champlain ':coords';
 
@@ -19,7 +19,8 @@ sub tests {
 
 sub test_all {
        my $map_source = Champlain::NetworkMapSource->new_full(
-               'fake-map',
+               'test::fake-map',
+               'Fake map',
                'free',
                'http://www.it-is-free.org/license.txt',
                0,
@@ -30,6 +31,8 @@ sub test_all {
        );
        isa_ok($map_source, 'Champlain::NetworkMapSource');
        
+       is($map_source->get_id, 'test::fake-map');
+       is($map_source->get_name, 'Fake map');
        
        is(
                $map_source->get_tile_uri(100, 200, 3),