From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Tue, 5 May 2009 19:42:31 +0000 (+0200)
Subject: Test the id and the name of the NetworkMapSource
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0ead7dcb062fb590dabfdf859c23e3d7ce0fc83d;p=libchamplain

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 33fb4ea..16de35e 100644
--- 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),