From: Jesse Luehrs Date: Fri, 26 Jun 2009 01:03:01 +0000 (-0500) Subject: this is now tested by 020/027.t X-Git-Tag: 0.84~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31fca3513ae3e65f93f2a4ce443efe278be16872;p=gitmo%2FMoose.git this is now tested by 020/027.t --- 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 index e86ad30..0000000 --- a/t/010_basics/021_attr_override_method_warning.t +++ /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 < ( 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'); -}