X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F019-handles.t;fp=t%2F001_mouse%2F019-handles.t;h=32f865bf87010fc11cc7247d22c585fc6843ffbe;hp=d9bb7c39fdc65086b4a8184d9968d290e83beaed;hb=3aa1e09a9e63a374c0057a91eed32d41287d2ee0;hpb=da1d264b1de0a4762f6e77f61b4d577144b07889

diff --git a/t/001_mouse/019-handles.t b/t/001_mouse/019-handles.t
index d9bb7c3..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 => 27;
+use Test::More tests => 24;
 use Test::Exception;
 
 do {
@@ -37,36 +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 error4 => (
-                handles => sub { "code" },
-            );
-        };
-        ::ok(!$@, "handles => sub { code }");
-    }
 };
 
 can_ok(Class => qw(person has_person person_name person_age name age quid));
@@ -110,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();