From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 29 Mar 2009 11:08:35 +0000 (+0200)
Subject: Unit tests for Champlain::ZoomLevel
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f8ed2c927dc5f69fc3b1f0d31c14f40627b2fdcf;p=libchamplain

Unit tests for Champlain::ZoomLevel
---

diff --git a/bindings/perl/Champlain/t/ChamplainZoomLevel.t b/bindings/perl/Champlain/t/ChamplainZoomLevel.t
new file mode 100644
index 0000000..eca1636
--- /dev/null
+++ b/bindings/perl/Champlain/t/ChamplainZoomLevel.t
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Clutter::TestHelper tests => 15;
+
+use Champlain ':coords';
+
+
+exit tests();
+
+
+sub tests {
+	test_get_set();
+	test_add_remove();
+	return 0;
+}
+
+
+sub test_get_set {
+	my $zoom = Champlain::ZoomLevel->new();
+	isa_ok($zoom, 'Champlain::ZoomLevel');
+	
+	is($zoom->get_width, 0, "Initial width is 0");
+	$zoom->set_width(10);
+	is($zoom->get_width, 10, "set_width()");
+	
+	is($zoom->get_height, 0, "Initial height is 0");
+	$zoom->set_height(10);
+	is($zoom->get_height, 10, "set_height()");
+	
+	is($zoom->get_zoom_level, 0, "Initial zoom-level is 0");
+	$zoom->set_zoom_level(10);
+	is($zoom->get_zoom_level, 10, "set_zoom_level()");
+	
+	isa_ok($zoom->get_actor, "Clutter::Actor", "Initial actor is undef");
+}
+
+
+sub test_add_remove {
+	my $zoom = Champlain::ZoomLevel->new();
+	isa_ok($zoom, 'Champlain::ZoomLevel');
+	
+	is($zoom->tile_count, 0, "No tiles by default");
+	
+	
+	# Add some tiles
+	my @tiles =  map { Champlain::Tile->new() } (1 .. 3);
+	foreach my $tile (@tiles) {
+		$zoom->add_tile($tile);
+	}
+	is($zoom->tile_count, scalar(@tiles), "Tiles count works after adding tiles");
+	
+	
+	# Assert that the tiles are the same
+	for (my $i = 0; $i < @tiles; ++$i) {
+		my $tile = $tiles[$i];
+		is($zoom->get_nth_tile($i), $tile, "Tile $i is valid");
+	}
+	
+	
+	# Remove a tile
+	$zoom->remove_tile(pop @tiles);
+	is($zoom->tile_count, scalar(@tiles), "Tiles count works after removing a tile");
+}