5 use Test::More tests => 2;
8 local $SIG{__WARN__} = sub { push @warnings,@_ };
13 has foo => ( is => 'rw' );
14 sub foo { 'omglolbbq' }
20 local $TODO = "Class-MOP does not warn about this yet";
21 is( scalar(@warnings), 1, 'got 1 warning' );
22 like( $warnings[0], qr/\bfoo\b.+redefine/, 'got a redefinition warning that mentions redefining or overriding or something');