From: Shawn M Moore <sartak@gmail.com>
Date: Wed, 1 Apr 2009 03:21:52 +0000 (-0400)
Subject: Need to actually be tests to be usefully todo'd
X-Git-Tag: 0.20~51
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ea948d15121718612bb301c9a4f8040c5fd0e9f;p=gitmo%2FMouse.git

Need to actually be tests to be usefully todo'd
---

diff --git a/t/019-handles.t b/t/019-handles.t
index 5f4e51f..03797d6 100644
--- a/t/019-handles.t
+++ b/t/019-handles.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 20;
+use Test::More tests => 24;
 
 do {
     package Person;
@@ -38,39 +38,43 @@ do {
     );
 
     TODO: {
-        local $::TODO = "handles => role";
+        local our $TODO = "Mouse lacks this";
         eval {
             has error => (
                 handles => "string",
             );
         };
+        ::ok(!$@, "handles => role");
     }
 
     TODO: {
-        local $::TODO = "handles => \\str";
+        local our $TODO = "Mouse lacks this";
         eval {
             has error2 => (
                 handles => \"ref_to_string",
             );
         };
+        ::ok(!$@, "handles => \\str");
     }
 
     TODO: {
-        local $::TODO = "handles => qr/re/";
+        local our $TODO = "Mouse lacks this";
         eval {
             has error3 => (
                 handles => qr/regex/,
             );
         };
+        ::ok(!$@, "handles => qr/re/");
     }
 
     TODO: {
-        local $::TODO = "handles => sub { code }";
+        local our $TODO = "Mouse lacks this";
         eval {
             has error4 => (
                 handles => sub { "code" },
             );
         };
+        ::ok(!$@, "handles => sub { code }");
     }
 };