From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 12 Jul 2009 12:50:50 +0000 (+0200)
Subject: Test Champlain::MapSource->fill_tile()
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b23fb0351bf4c8bb06770f8500e231b23856f7ae;p=libchamplain

Test Champlain::MapSource->fill_tile()
---

diff --git a/bindings/perl/Champlain/t/ChamplainMapSource.t b/bindings/perl/Champlain/t/ChamplainMapSource.t
index 13dc8f8..ddc00b7 100644
--- a/bindings/perl/Champlain/t/ChamplainMapSource.t
+++ b/bindings/perl/Champlain/t/ChamplainMapSource.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 125;
+use Clutter::TestHelper tests => 165;
 
 use Champlain qw(:coords :maps);
 
@@ -228,6 +228,17 @@ sub generic_map_operations {
 		1,
 		"$label column count at min zoom"
 	);
+
+	my $tile = Champlain::Tile->new();
+	is($tile->get_size(), 0, "get_size() default tile");
+	is($tile->get_state(), 'init', "get_state() default tile");
+	is($tile->get_uri(), '', "get_uri() default tile");
+	is($tile->get_filename(), '', "get_filename() default tile");
+	$map->fill_tile($tile);
+	is($tile->get_size(), $map->get_tile_size, "size is filled");
+	is($tile->get_state(), 'loading', "state changed");
+	ok($tile->get_uri(), "uri is filled");
+	ok($tile->get_filename(),  "filename is filled");
 }