X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F019-handles.t;h=32f865bf87010fc11cc7247d22c585fc6843ffbe;hb=6475f69defb20a02b6559bddf870a0821f28ac20;hp=9208a3c8fc6475922b293cc68fabf8ddca921c3d;hpb=920139b3efca66d2caeeef306c97fa0da62c6b73;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/019-handles.t b/t/001_mouse/019-handles.t
index 9208a3c..32f865b 100644
--- a/t/001_mouse/019-handles.t
+++ b/t/001_mouse/019-handles.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 28;
+use Test::More tests => 24;
 use Test::Exception;
 
 do {
@@ -37,46 +37,6 @@ do {
         predicate => 'quid',
         handles => [qw/name age/],
     );
-
-    TODO: {
-        local our $TODO = "Mouse lacks this";
-        eval {
-            has error => (
-                handles => "string",
-            );
-        };
-        ::ok(!$@, "handles => role");
-    }
-
-    TODO: {
-        local our $TODO = "Mouse lacks this";
-        eval {
-            has error2 => (
-                handles => \"ref_to_string",
-            );
-        };
-        ::ok(!$@, "handles => \\str");
-    }
-
-    TODO: {
-        local our $TODO = "Mouse lacks this";
-        eval {
-            has error3 => (
-                handles => qr/regex/,
-            );
-        };
-        ::ok(!$@, "handles => qr/re/");
-    }
-
-    TODO: {
-        local our $TODO = "Mouse lacks this";
-        eval {
-            has error4 => (
-                handles => sub { "code" },
-            );
-        };
-        ::ok(!$@, "handles => sub { code }");
-    }
 };
 
 can_ok(Class => qw(person has_person person_name person_age name age quid));
@@ -120,7 +80,6 @@ is_deeply(
 
 
 {
-    local $TODO = "failed on some environment, but I don't know why it happens (gfx)";
     throws_ok{
         $object->person(undef);
         $object->person_name();