[perl-Glib-Object-Introspection] Mark a few tests as known to fail

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

commit e9852bda78480e4e46da083ce2a3bae1a69d1342
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Dec 17 20:00:33 2013 +0100

    Mark a few tests as known to fail
    
    Some ref counting tests fail due to a recent change in perl-Glib:
    <https://git.gnome.org/browse/perl-Glib/commit/?id=fa876ff132035f1b5cc96428bd0a75ea939aa295>.

 NEWS                   |    1 +
 t/vfunc-ref-counting.t |   14 ++++++++------
 2 files changed, 9 insertions(+), 6 deletions(-)
---
diff --git a/NEWS b/NEWS
index cb1fae5..6a1e969 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,7 @@ Overview of changes in Glib::Object::Introspection <next>
 ========================================================
 
 * Fix registering unregistered enums.
+* Mark a few tests as known to fail so that they do not abort installation.
 
 Overview of changes in Glib::Object::Introspection 0.017
 ========================================================
diff --git a/t/vfunc-ref-counting.t b/t/vfunc-ref-counting.t
index f3c26a5..d894297 100644
--- a/t/vfunc-ref-counting.t
+++ b/t/vfunc-ref-counting.t
@@ -86,9 +86,10 @@ foreach my $package (@packages) {
     my $nf = $package->new;
     my ($ref_count, $is_floating) =
       $nf->get_ref_info_for_vfunc_in_object_transfer_none ($package_to_subclass{$package});
-    SKIP: {
-      skip 'ref count test; need newer Glib', 1
-        unless $Glib::VERSION > 1.290;
+    TODO: {
+      local $TODO = $package =~ /^Weak/
+        ? 'ref count test unreliable due to unpredictable behavior of perl-Glib'
+        : undef;
       is ($ref_count, 1 + $package_to_ref_count_offset{$package},
           "transfer-none&in: ref count for $package");
     }
@@ -105,9 +106,10 @@ foreach my $package (@packages) {
     my $nf = $package->new;
     my ($ref_count, $is_floating) =
       $nf->get_ref_info_for_vfunc_in_object_transfer_full ($package_to_subclass{$package});
-    SKIP: {
-      skip 'ref count test; need newer Glib', 1
-        unless $Glib::VERSION > 1.290;
+    TODO: {
+      local $TODO = $package =~ /^Weak/
+        ? 'ref count test unreliable due to unpredictable behavior of perl-Glib'
+        : undef;
       is ($ref_count, 0 + $package_to_ref_count_offset{$package},
           "transfer-full&in: ref count for $package");
     }