package SubSubClassUseBase;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends 'SubClassUseBase';
- }
- 'Can extend non-Moose class with parent class that is a Moose class with a meta role';
+ }, undef, 'Can extend non-Moose class with parent class that is a Moose class with a meta role' );
}
{
package MultiParent1;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends qw( SubClassUseBase OtherSubClassUseBase );
- }
- 'Can extend two non-Moose classes with parents that are different Moose metaclasses';
+ }, undef, 'Can extend two non-Moose classes with parents that are different Moose metaclasses' );
}
{
package MultiParent2;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends qw( OtherSubClassUseBase SubClassUseBase );
- }
- 'Can extend two non-Moose classes with parents that are different Moose metaclasses (reverse order)';
+ }, undef, 'Can extend two non-Moose classes with parents that are different Moose metaclasses (reverse order)' );
}
{
package MultiParent3;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends qw( OtherClass SubClassUseBase );
- }
- 'Can extend one Moose class and one non-Moose class';
+ }, undef, 'Can extend one Moose class and one non-Moose class' );
}
{
package MultiParent4;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends qw( SubClassUseBase OtherClass );
- }
- 'Can extend one non-Moose class and one Moose class';
+ }, undef, 'Can extend one non-Moose class and one Moose class' );
}
{
package MultiChild1;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends 'MultiParent1';
- }
- 'Can extend class that itself extends two non-Moose classes with Moose parents';
+ }, undef, 'Can extend class that itself extends two non-Moose classes with Moose parents' );
}
{
package MultiChild2;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends 'MultiParent2';
- }
- 'Can extend class that itself extends two non-Moose classes with Moose parents (reverse order)';
+ }, undef, 'Can extend class that itself extends two non-Moose classes with Moose parents (reverse order)' );
}
{
package MultiChild3;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends 'MultiParent3';
- }
- 'Can extend class that itself extends one Moose and one non-Moose parent';
+ }, undef, 'Can extend class that itself extends one Moose and one non-Moose parent' );
}
{
package MultiChild4;
use Moose;
use Test::More;
- use Test::Exception;
- lives_ok {
+ use Test::Fatal;
+ is( exception {
extends 'MultiParent4';
- }
- 'Can extend class that itself extends one non-Moose and one Moose parent';
+ }, undef, 'Can extend class that itself extends one non-Moose and one Moose parent' );
}
{