[libchamplain] Test Champlain::MapSource->fill_tile()
- From: Pierre-Luc Beaudoin <plbeaudoin src gnome org>
- To: svn-commits-list gnome org
- Subject: [libchamplain] Test Champlain::MapSource->fill_tile()
- Date: Sat, 25 Jul 2009 00:32:10 +0000 (UTC)
commit b23fb0351bf4c8bb06770f8500e231b23856f7ae
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date: Sun Jul 12 14:50:50 2009 +0200
Test Champlain::MapSource->fill_tile()
bindings/perl/Champlain/t/ChamplainMapSource.t | 13 ++++++++++++-
1 files changed, 12 insertions(+), 1 deletions(-)
---
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");
}
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]