X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F019-handles.t;h=d9bb7c39fdc65086b4a8184d9968d290e83beaed;hb=96cd240d413bdc2db7079b75bb98188f91cd7393;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..d9bb7c3 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 => 27; use Test::Exception; do { @@ -61,16 +61,6 @@ do { 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" }, );