[perl-Gtk3] Add overrides for Gtk3::CHECK_VERSION and check_version

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

commit b868aa6ca36d82e2d920f6c3144cba56788abe38
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Oct 14 20:34:04 2011 +0200

    Add overrides for Gtk3::CHECK_VERSION and check_version

 lib/Gtk3.pm   |    9 +++++++++
 t/overrides.t |   17 ++++++++++++++++-
 2 files changed, 25 insertions(+), 1 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 4ef3f8b..9bb8c8c 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -71,6 +71,15 @@ sub import {
 
 # - Overrides --------------------------------------------------------------- #
 
+sub Gtk3::CHECK_VERSION {
+  return not defined Gtk3::check_version(@_ == 4 ? @_[1..3] : @_);
+}
+
+sub Gtk3::check_version {
+  Glib::Object::Introspection->invoke ($_GTK_BASENAME, undef, 'check_version',
+                                       @_ == 4 ? @_[1..3] : @_);
+}
+
 sub Gtk3::init {
   my $rest = Glib::Object::Introspection->invoke (
                $_GTK_BASENAME, undef, 'init',
diff --git a/t/overrides.t b/t/overrides.t
index 386c7df..b716c71 100644
--- a/t/overrides.t
+++ b/t/overrides.t
@@ -5,7 +5,22 @@ BEGIN { require './t/inc/setup.pl' };
 use strict;
 use warnings;
 
-plan tests => 21;
+plan tests => 29;
+
+# Gtk3::CHECK_VERSION and check_version
+{
+  my ($x, $y, $z) = (Gtk3::MAJOR_VERSION, Gtk3::MINOR_VERSION, Gtk3::MICRO_VERSION);
+  ok (Gtk3::CHECK_VERSION ($x, $y, $z));
+  ok (Gtk3->CHECK_VERSION ($x, $y, $z));
+  ok (not defined Gtk3::check_version ($x, $y, $z));
+  ok (not defined Gtk3->check_version ($x, $y, $z));
+
+  $z++;
+  ok (!Gtk3::CHECK_VERSION ($x, $y, $z));
+  ok (!Gtk3->CHECK_VERSION ($x, $y, $z));
+  ok (defined Gtk3::check_version ($x, $y, $z));
+  ok (defined Gtk3->check_version ($x, $y, $z));
+}
 
 # Gtk3::CellLayout::get_cells
 {