use strict;
use warnings;
-use Test::More tests => 44;
+use Test::More tests => 39;
use Test::Exception;
-use Test::Output;
use Moose;
::lives_ok {
- ::stderr_like {
- with qw(Role::C);
- } qr/The Class::A class has implicitly overridden the method \(zot\) from role Role::C\./;
+ with qw(Role::C);
} "define class A";
sub zot { 'Class::A::zot' }
use Moose;
::lives_ok {
- ::stderr_like {
- with 'Role::A::Conflict';
- } qr/The Class::A::Resolved class has implicitly overridden the method \(bar\) from role Role::A::Conflict\./;
+ with 'Role::A::Conflict';
} '... did fufill the requirement of &bar method';
sub bar { 'Class::A::Resolved::bar' }
use Moose;
::lives_ok {
- ::stderr_like {
- with qw(Role::F);
- } qr/The Class::B class has implicitly overridden the method \(zot\) from role Role::F\./;
+ with qw(Role::F);
} "define class Class::B";
sub zot { 'Class::B::zot' }
use Moose;
::lives_ok {
- ::stderr_like {
- with qw(Role::I);
- } qr/The Class::E class has implicitly overridden the method \(zot\) from role Role::I\./;
+ with qw(Role::I);
} "resolved with method";
sub foo { 'Class::E::foo' }
sub zot { 'Class::D::zot' }
- ::stderr_like {
- with qw(Role::I);
- } qr/The Class::D class has implicitly overridden the method \(zot\) from role Role::I\./;
+ with qw(Role::I);
} "resolved with attr";