[libchamplain] Testing the new API for Gtk2::ChamplainEmbed

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit b8dd170e06bc40ff7e31f02b093b5c835855f23c
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sun Jun 14 15:15:08 2009 +0200

    Testing the new API for Gtk2::ChamplainEmbed

 bindings/perl/Champlain/t/Gtk2ChamplainEmbed.t |   12 +++++-------
 1 files 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');
 }