From 0ead7dcb062fb590dabfdf859c23e3d7ce0fc83d Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Tue, 5 May 2009 21:42:31 +0200 Subject: [PATCH] Test the id and the name of the NetworkMapSource --- bindings/perl/Champlain/t/ChamplainNetworkMapSource.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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), -- 2.39.5