From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 14 Jul 2006 01:52:26 +0000 (+0000)
Subject: delete 046
X-Git-Tag: 0_12~19^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b3765128e471c52de572addf838e65fca9bb097;p=gitmo%2FMoose.git

delete 046
---

diff --git a/t/046_roles_and_required_method_edge_cases.t b/t/046_roles_and_required_method_edge_cases.t
deleted file mode 100644
index b38c0e2..0000000
--- a/t/046_roles_and_required_method_edge_cases.t
+++ /dev/null
@@ -1,197 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 15;
-use Test::Exception;
-
-BEGIN {
-    use_ok('Moose');
-    use_ok('Moose::Role');    
-}
-
-=pod
-
-Role which requires a method implemented 
-in another role as an override (it does 
-not remove the requirement)
-
-=cut
-
-{
-    package Role::RequireFoo;
-    use strict;
-    use warnings;
-    use Moose::Role;
-    
-    requires 'foo';
- 
-}
-
-=begin nonsense
-    package Role::ProvideFoo;
-    use strict;
-    use warnings;
-    use Moose::Role;
-    
-    ::lives_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method will not exist yet (but we will live)';
-    
-    override 'foo' => sub { 'Role::ProvideFoo::foo' };    
-}
-
-is_deeply(
-    [ Role::ProvideFoo->meta->get_required_method_list ], 
-    [ 'foo' ], 
-    '... foo method is still required for Role::ProvideFoo');
-
-=cut
-
-=pod
-
-Role which requires a method implemented 
-in the consuming class as an override. 
-It will fail since method modifiers are 
-second class citizens.
-
-=cut
-
-{
-    package Class::ProvideFoo::Base;
-    use Moose;
-
-    sub foo { 'Class::ProvideFoo::Base::foo' }
-        
-    package Class::ProvideFoo::Override1;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method will not exist yet (and we will die)';
-    
-    override 'foo' => sub { 'Class::ProvideFoo::foo' };    
-    
-    package Class::ProvideFoo::Override2;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    override 'foo' => sub { 'Class::ProvideFoo::foo' };     
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method exists, but it is an override (and we will die)';
-
-}
-
-=pod
-
-Now same thing, but with a before 
-method modifier.
-
-=cut
-
-{
-    package Class::ProvideFoo::Before1;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method will not exist yet (and we will die)';
-    
-    before 'foo' => sub { 'Class::ProvideFoo::foo:before' };    
-    
-    package Class::ProvideFoo::Before2;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    before 'foo' => sub { 'Class::ProvideFoo::foo:before' };     
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method exists, but it is a before (and we will die)';    
-    
-    package Class::ProvideFoo::Before3;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    ::lives_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method will not exist yet (and we will die)';
-    
-    sub foo { 'Class::ProvideFoo::foo' }
-    before 'foo' => sub { 'Class::ProvideFoo::foo:before' };    
-    
-    package Class::ProvideFoo::Before4;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    sub foo { 'Class::ProvideFoo::foo' }    
-    before 'foo' => sub { 'Class::ProvideFoo::foo:before' };     
-
-    ::isa_ok(__PACKAGE__->meta->get_method('foo'), 'Class::MOP::Method::Wrapped');
-    ::is(__PACKAGE__->meta->get_method('foo')->get_original_method->package_name, __PACKAGE__, 
-    '... but the original method is from our package');
-    
-    ::lives_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method exists in the symbol table (and we will live)'; 
-    
-    package Class::ProvideFoo::Before5;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-       
-    before 'foo' => sub { 'Class::ProvideFoo::foo:before' };   
-    
-    ::isa_ok(__PACKAGE__->meta->get_method('foo'), 'Class::MOP::Method::Wrapped');
-    ::isnt(__PACKAGE__->meta->get_method('foo')->get_original_method->package_name, __PACKAGE__, 
-    '... but the original method is not from our package');      
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method exists, but it is a before wrapping the super (and we will die)';       
-}    
-
-=pod
-
-Now same thing, but with a method from an attribute
-method modifier.
-
-=cut
-
-{
-    
-    package Class::ProvideFoo::Attr1;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method will not exist yet (and we will die)';
-    
-    has 'foo' => (is => 'ro');
-    
-    package Class::ProvideFoo::Attr2;
-    use Moose;
-    
-    extends 'Class::ProvideFoo::Base';
-    
-    has 'foo' => (is => 'ro');     
-    
-    ::dies_ok {
-        with 'Role::RequireFoo';
-    } '... the required "foo" method exists, but it is a before (and we will die)';    
-}    
-    
-