Cleanup failing tests

[gitmo/Mouse.git] / t / 020_attributes / failing / 023_attribute_names.t

diff --git a/t/020_attributes/failing/023_attribute_names.t b/t/020_attributes/failing/023_attribute_names.t
deleted file mode 100644 (file)
index f98d556..0000000
--- a/t/020_attributes/failing/023_attribute_names.t
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More tests => 8;
-use Test::Exception;
-
-my $exception_regex = qr/You must provide a name for the attribute/;
-{
-    package My::Role;
-    use Mouse::Role;
-
-    ::throws_ok {
-        has;
-    } $exception_regex, 'has; fails';
-
-    ::throws_ok {
-        has undef;
-    } $exception_regex, 'has undef; fails';
-
-    ::lives_ok {
-        has "" => (
-            is => 'bare',
-        );
-    } 'has ""; works now';
-
-    ::lives_ok {
-        has 0 => (
-            is => 'bare',
-        );
-    } 'has 0; works now';
-}
-
-{
-    package My::Class;
-    use Mouse;
-
-    ::throws_ok {
-        has;
-    } $exception_regex, 'has; fails';
-
-    ::throws_ok {
-        has undef;
-    } $exception_regex, 'has undef; fails';
-
-    ::lives_ok {
-        has "" => (
-            is => 'bare',
-        );
-    } 'has ""; works now';
-
-    ::lives_ok {
-        has 0 => (
-            is => 'bare',
-        );
-    } 'has 0; works now';
-}
-