#!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
use strict;
use warnings;
-use Test::More tests => 9;
+use Test::More;
use Test::Exception;
-
{
package Foo::Role;
use Mouse::Role;
does => role_type('Bar::Role')
);
+ package Foo::Class;
+ use Mouse;
+
+ with 'Foo::Role';
+
package Bar::Role;
use Mouse::Role;
# since the isa() check will imply the does() check
has 'foo' => (is => 'rw', isa => 'Foo::Class', does => 'Foo::Role');
- package Foo::Class;
- use Mouse;
-
- with 'Foo::Role';
-
package Bar::Class;
use Mouse;
with 'Bar::Role';
-
}
my $foo = Foo::Class->new;
{
package Baz::Class;
- use Test::More;
use Mouse;
- local $TODO = 'setting both isa and does';
-
# if isa and does appear together, then see if Class->does(Role)
# if it does not,.. we have a conflict... so we die loudly
::dies_ok {
sub bling { 'Bling::bling' }
package Bling::Bling;
- use Test::More;
use Mouse;
- local $TODO = 'setting both isa and does';
-
# if isa and does appear together, then see if Class->does(Role)
# if it does not,.. we have a conflict... so we die loudly
::dies_ok {
} '... cannot have a isa() which is cannot does()';
}
-
-
+done_testing;