From: gfx <gfuji@cpan.org>
Date: Fri, 5 Feb 2010 10:12:05 +0000 (+0900)
Subject: Remove some todos in tests
X-Git-Tag: 0.50~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3aa1e09a9e63a374c0057a91eed32d41287d2ee0;p=gitmo%2FMouse.git

Remove some todos in tests
---

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();