From b72395c5a3e2837865ebff62a8dc86f5622f960d Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Mon, 15 Jun 2009 23:46:19 +0200 Subject: [PATCH] Test that all arguments are passed to the constructor --- bindings/perl/Champlain/t/ChamplainMapSourceFactory.t | 7 ++----- 1 file 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, -- 2.39.5