more tests

diff --git a/t/bugs/sub-and-handles.t b/t/bugs/sub-and-handles.t
index f183bd8..f39001f 100644 (file)
--- a/t/bugs/sub-and-handles.t
+++ b/t/bugs/sub-and-handles.t
@@ -52,10 +52,36 @@ use Test::More;
    sub _bar { 'extended' }
 
    has '+_barrer' => ( is => 'rw' );
+
+   package D;
+
+   use Moose;
+   extends 'ConsumesDelegateToBar';
+
+   sub _bar { 'extended' }
+
+   has '+_barrer' => (
+      is => 'rw',
+      handles => { _baz => 'bar' },
+   );
+   package C;
+
+   use Moose;
+   extends 'ConsumesDelegateToBar';
+   with 'Does::OverrideDelegate';
+
+   has '+_barrer' => (
+      is => 'rw',
+      handles => { _baz => 'bar' },
+   );
 }
 
 is(A->new->_bar, 'extended', 'overriding delegate method with role works');
+is(D->new->_bar, 'extended', '... even when you specify other delegates in subclass');
+is(D->new->_baz, 'unextended!', '... and said other delegate still works');
 is(B->new->_bar, 'extended', 'overriding delegate method directly works');
+is(C->new->_bar, 'extended', '... even when you specify other delegates in subclass');
+is(C->new->_baz, 'unextended!', '... and said other delegate still works');
 
 done_testing;