X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F020_attributes%2Ffailing%2F023_attribute_names.t;fp=t%2F020_attributes%2Ffailing%2F023_attribute_names.t;h=0000000000000000000000000000000000000000;hp=f98d556a991704b760dd15c5f75b980d566299c2;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27

diff --git a/t/020_attributes/failing/023_attribute_names.t b/t/020_attributes/failing/023_attribute_names.t
deleted file mode 100644
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';
-}
-