From b8dd170e06bc40ff7e31f02b093b5c835855f23c Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Sun, 14 Jun 2009 15:15:08 +0200 Subject: [PATCH] Testing the new API for Gtk2::ChamplainEmbed --- bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t b/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t index a815ad5..ede94be 100644 --- a/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t +++ b/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Clutter::TestHelper tests => 3, sub_module => 'gtk'; +use Clutter::TestHelper tests => 2, sub_module => 'gtk'; use Gtk2 '-init'; use Champlain ':coords'; @@ -19,11 +19,9 @@ sub tests { sub test_all { - my $view = Champlain::View->new(); - isa_ok($view, 'Champlain::View'); - - my $embed = Gtk2::Champlain::ViewEmbed->new($view); - isa_ok($embed, 'Gtk2::Champlain::ViewEmbed'); + my $embed = Gtk2::ChamplainEmbed->new(); + isa_ok($embed, 'Gtk2::ChamplainEmbed'); - is($embed->get_view, $view, "get_view()"); + my $view = $embed->get_view; + isa_ok($view, 'Champlain::View'); } -- 2.39.5