use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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)' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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)' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{
use Moose;
use Test::More;
use Test::Fatal;
- ok ! exception {
+ 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' );
}
{