use strict;
use warnings;

use Test::More;
use Test::Fatal;
use Moose ();

use lib 't/lib';

{
    package t::bugs::Bar;
    use Moose;

    # empty class.

    no Moose;
    __PACKAGE__->meta->make_immutable();

    1;
}

my $meta;
use Data::Dumper;
isnt ( exception {
    $meta = Moose::Meta::Class->create_anon_class(
        superclasses => [ 't::bugs::Bar', ], # any old class will work
        roles        => [ 'Role::BreakOnLoad', ],
    )
}, undef, 'Class dies when attempting composition');

my $except;
isnt ( $except = exception {
    $meta = Moose::Meta::Class->create_anon_class(
        superclasses => [ 't::bugs::Bar', ],
        roles        => [ 'Role::BreakOnLoad', ],
    );
}, undef, 'Class continues to die when attempting composition');

done_testing;