[perl-Gtk3] Fix some test failures with older versions

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

commit 287d75c86ff515bc969ba29d717620650f929710
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Wed Jan 30 17:28:22 2013 +0100

    Fix some test failures with older versions

 t/overrides.t     |    6 +++---
 t/zz-GtkInfoBar.t |   21 +++++++++++++--------
 2 files changed, 16 insertions(+), 11 deletions(-)
---
diff --git a/t/overrides.t b/t/overrides.t
index e9d018c..8c1d5bf 100644
--- a/t/overrides.t
+++ b/t/overrides.t
@@ -175,7 +175,7 @@ SKIP: {
 
 # Gtk3::ListStore::new, set and get, insert_with_values
 SKIP: {
-  skip 'tree model ctors not properly supported', 5
+  skip 'tree model ctors not properly supported', 10
     unless check_gi_version(1, 29, 17);
 
   my $model = Gtk3::ListStore->new ([qw/Glib::String Glib::Int/]);
@@ -271,7 +271,7 @@ SKIP: {
 
 # Gtk3::TreeStore::new, set and get, insert_with_values
 SKIP: {
-  skip 'tree model ctors not properly supported', 5
+  skip 'tree model ctors not properly supported', 10
     unless check_gi_version(1, 29, 17);
 
   my $model = Gtk3::TreeStore->new ([qw/Glib::String Glib::Int/]);
@@ -433,7 +433,7 @@ SKIP: {
 }
 
 # Gtk3::TreeViewColumn::new_with_attributes, set_attributes, cell_get_position
-{
+SKIP: {
   skip 'tree model ctors not properly supported', 2
     unless check_gi_version(1, 29, 17);
 
diff --git a/t/zz-GtkInfoBar.t b/t/zz-GtkInfoBar.t
index a739021..2f164b4 100644
--- a/t/zz-GtkInfoBar.t
+++ b/t/zz-GtkInfoBar.t
@@ -43,14 +43,19 @@ is ($infobar->get_message_type, 'error', '[gs]et_message_type');
 $infobar->set_default_response (4);
 ok (1, 'set_default_response');
 
-$infobar->signal_connect (response => sub {
-  my ($infobar,$response) = @_;
-  my $expected = $infobar->{expected_response};
-  ok ($response eq $expected, "response '$expected'");
-  1;
-});
-$infobar->response ($infobar->{expected_response} = 5);
-$infobar->response ($infobar->{expected_response} = 'ok');
+SKIP: {
+  skip 'Need generic signal marshaller', 2
+    unless check_gi_version (1, 33, 10);
+
+  $infobar->signal_connect (response => sub {
+    my ($infobar,$response) = @_;
+    my $expected = $infobar->{expected_response};
+    ok ($response eq $expected, "response '$expected'");
+    1;
+  });
+  $infobar->response ($infobar->{expected_response} = 5);
+  $infobar->response ($infobar->{expected_response} = 'ok');
+}
 
 sub button_count {
   my @b = $_[0]->get_action_area->get_children;