From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sun, 14 Jun 2009 13:15:08 +0000 (+0200)
Subject: Testing the new API for Gtk2::ChamplainEmbed
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8dd170e06bc40ff7e31f02b093b5c835855f23c;p=libchamplain

Testing the new API for Gtk2::ChamplainEmbed
---

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');
 }