[perl-Glib-Object-Introspection] Fix passing TODO tests

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

commit dcb63697f337f48a23132a1bd159bc663d9d9ffb
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Oct 14 19:13:22 2011 +0200

    Fix passing TODO tests
    
    They represented doubts about the current implementation.  I'm OK with settling
    on the current behavior now.

 t/00-basic-types.t |    7 ++-----
 t/closures.t       |    7 ++-----
 2 files changed, 4 insertions(+), 10 deletions(-)
---
diff --git a/t/00-basic-types.t b/t/00-basic-types.t
index 6f056eb..00816c2 100644
--- a/t/00-basic-types.t
+++ b/t/00-basic-types.t
@@ -31,11 +31,8 @@ my $time = time ();
 is (Regress::test_timet ($time), $time);
 
 is (Regress::test_gtype ('Glib::Object'), 'Glib::Object');
-TODO: {
-  local $TODO = 'Is that how we want to handle unregistered GTypes?';
-  is (Regress::test_gtype ('GIRepository'),
-      'Glib::Object::_Unregistered::GIRepository');
-}
+is (Regress::test_gtype ('GIRepository'),
+    'Glib::Object::_Unregistered::GIRepository');
 is (Regress::test_gtype ('Inexistant'), undef);
 
 my $expected_const_string = 'const â utf8';
diff --git a/t/closures.t b/t/closures.t
index 75957fd..84d3857 100644
--- a/t/closures.t
+++ b/t/closures.t
@@ -7,8 +7,5 @@ use warnings;
 
 plan tests => 3;
 
-TODO: {
-  local $TODO = 'User cannot supply user data';
-  is (Regress::test_closure (sub { return 23; }), 23);
-  is (Regress::test_closure_one_arg (sub { is (shift, 42); return 23; }, 42), 23);
-}
+is (Regress::test_closure (sub { return 23; }), 23);
+is (Regress::test_closure_one_arg (sub { is (shift, 42); return 23; }, 42), 23);