[libchamplain] Test that all arguments are passed to the constructor

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit b72395c5a3e2837865ebff62a8dc86f5622f960d
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Mon Jun 15 23:46:19 2009 +0200

    Test that all arguments are passed to the constructor

 .../perl/Champlain/t/ChamplainMapSourceFactory.t   |    7 ++-----
 1 files changed, 2 insertions(+), 5 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
index d56634c..5a38e39 100644
--- a/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
+++ b/bindings/perl/Champlain/t/ChamplainMapSourceFactory.t
@@ -89,11 +89,7 @@ sub test_map_register {
 	my $constructor = sub {
 		my ($desc, $data) = @_;
 
-		TODO: {
-			local $TODO = "Can't pass the data parameter";
-			isa_ok($data, 'Champlain::MapSourceFactory');
-		}
-
+		# Check that the arguments are passed properly
 		isa_ok($desc, 'Champlain::MapSourceDesc');
 		is($desc->id, $description->{id}, "MapSourceDesc has the right id");
 		is($desc->name, $description->{name}, "MapSourceDesc has the right name");
@@ -103,6 +99,7 @@ sub test_map_register {
 		is($desc->max_zoom_level, $description->{max_zoom_level}, "MapSourceDesc has the right max_zoom_level");
 		is($desc->projection, $description->{projection}, "MapSourceDesc has the right projection");
 		is($desc->uri_format, $description->{uri_format}, "MapSourceDesc has the right uri_format");
+		isa_ok($data, 'Champlain::MapSourceFactory');
 
 		return Champlain::NetworkMapSource->new_full(
 			$desc->id,