this is now tested by 020/027.t
Jesse Luehrs [Fri, 26 Jun 2009 01:03:01 +0000 (20:03 -0500)]
t/010_basics/021_attr_override_method_warning.t [deleted file]

diff --git a/t/010_basics/021_attr_override_method_warning.t b/t/010_basics/021_attr_override_method_warning.t
deleted file mode 100644 (file)
index e86ad30..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-
-use Test::More tests => 2;
-
-my @warnings;
-local $SIG{__WARN__} = sub { push @warnings,@_ };
-    eval <<EOP;
-package MyThingy;
-use Moose;
-
-has foo => ( is => 'rw' );
-sub foo { 'omglolbbq' }
-
-package main;
-EOP
-
-TODO: {
-    local $TODO = "Class-MOP does not warn about this yet";
-    is( scalar(@warnings), 1, 'got 1 warning' );
-    like( $warnings[0], qr/\bfoo\b.+redefine/, 'got a redefinition warning that mentions redefining or overriding or something');
-}