[perl-Gtk2] Test Gtk2::TreeView->get_path_at_pos in scalar context

[Torsten Schönfeld <tsch src gnome org>]

commit 49b27398d590230e23ed3aba3d1c72e34bae74a6
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sat Mar 20 16:37:47 2010 +0100

    Test Gtk2::TreeView->get_path_at_pos in scalar context

 t/GtkTreeView.t |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/t/GtkTreeView.t b/t/GtkTreeView.t
index 74fb070..8bf18fe 100644
--- a/t/GtkTreeView.t
+++ b/t/GtkTreeView.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 123;
+use Gtk2::TestHelper tests => 124;
 
 # $Id$
 
@@ -642,6 +642,9 @@ $view->signal_connect (button_press_event => sub {
 		isa_ok ($res[1], 'Gtk2::TreeViewColumn', 'get_path_at_pos, col');
 		ok (defined $res[2] && defined $res[3], 'get_path_at_pos, pos');
 
+		my $path = $view->get_path_at_pos ($e->x, $e->y);
+		isa_ok ($path, 'Gtk2::TreePath', 'get_path_at_pos in scalar context, path');
+
 		@res = $view->tree_to_widget_coords (10, 10);
 		is (scalar (@res), 2, 'tree_to_widget_coords, num returns');
 		@res = $view->widget_to_tree_coords (@res);