From a48c84e75bb3d492d1b53c9322963c629464cb64 Mon Sep 17 00:00:00 2001
From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 17 May 2009 22:45:09 +0200
Subject: [PATCH] Tests for Champlain::MapSourceDesc

---
 .../perl/Champlain/t/ChamplainMapSourceDesc.t | 76 +++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 bindings/perl/Champlain/t/ChamplainMapSourceDesc.t

diff --git a/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t b/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t
new file mode 100644
index 0000000..2c31295
--- /dev/null
+++ b/bindings/perl/Champlain/t/ChamplainMapSourceDesc.t
@@ -0,0 +1,76 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Clutter::TestHelper tests => 25;
+
+use Champlain ':maps';
+
+exit tests();
+
+sub tests {
+	test_get_set();
+	return 0;
+}
+
+
+sub test_get_set {
+	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");
+	
+	# Find the OAM map and check that the it's properly described
+	my @found = grep { $_->{id} eq Champlain::MapSourceFactory->OAM } @maps;
+	is(scalar(@found), 1);
+	if (! @found) {
+		fail("Can't test a Champlain::MapSourceDesc without a map description") for 1 .. 22;
+		return;
+	}
+
+	my ($oam) = @found;
+	isa_ok($oam, 'Champlain::MapSourceDesc');
+	is($oam->{id}, Champlain::MapSourceFactory->OAM);
+	is($oam->{name}, 'OpenAerialMap');
+	is($oam->{license}, "(CC) BY 3.0 OpenAerialMap contributor");
+	is($oam->{license_uri}, 'http://creativecommons.org/licenses/by/3.0/');
+	is($oam->{min_zoom_level}, 0);
+	is($oam->{max_zoom_level}, 17);
+	is($oam->{projection}, 'mercator');
+
+	# Getters
+	is($oam->get_id, $oam->{id}, "get_id()");
+	is($oam->get_name, $oam->{name}, "get_name()");
+	is($oam->get_license, $oam->{license}, "get_license()");
+	is($oam->get_license_uri, $oam->{license_uri}, "get_license_uri()");
+	is($oam->get_min_zoom_level, $oam->{min_zoom_level}, "get_min_zoom_level()");
+	is($oam->get_max_zoom_level, $oam->{max_zoom_level}, "get_max_zoom_level()");
+	is($oam->get_projection, $oam->{projection}, "get_projection()");
+	
+	
+	# Setters
+	$oam->set_id('test');
+	is($oam->get_id, 'test', "set_id()");
+	
+	$oam->set_name("new name");
+	is($oam->get_name, "new name", "set_name()");
+	
+	$oam->set_license("free for all");
+	is($oam->get_license, "free for all", "set_license()");
+	
+	$oam->set_license_uri('file:///tmp/free.txt');
+	is($oam->get_license_uri, 'file:///tmp/free.txt', "set_license_uri()");
+	
+	$oam->set_min_zoom_level(2);
+	is($oam->get_min_zoom_level, 2, "set_min_zoom_level()");
+	
+	$oam->set_max_zoom_level(4);
+	is($oam->get_max_zoom_level, 4, "set_max_zoom_level()");
+	
+	# There are no other projections now
+	$oam->set_projection('mercator');
+	is($oam->get_projection, 'mercator', "set_projection()");
+}
-- 
2.39.5