From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Mon, 15 Jun 2009 21:46:19 +0000 (+0200)
Subject: Test that all arguments are passed to the constructor
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b72395c5a3e2837865ebff62a8dc86f5622f960d;p=libchamplain

Test that all arguments are passed to the constructor
---

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,