Testing the new API for Gtk2::ChamplainEmbed

diff --git a/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t b/bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t
index a815ad5b4abf5527b54fb122aba6ba672722c2fd..ede94be324670873388c1e9cd4749489dc61275e 100644 (file)
--- 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');
 }