#!/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;
}
{
- package MooseX::SomeAwesomeDBFields;
+ package MouseX::SomeAwesomeDBFields;
# implementation of methods not called in the example deliberately
# omitted
use Mouse;
use Mouse::Util::MetaRole;
- use Test::More;
-$TODO = q{Mouse is not yet completed};
+ use Test::More tests => 3;
use Test::Exception;
- Mouse::Util::MetaRole::apply_metaroles(
- for => __PACKAGE__,
- class_metaroles => { instance => ['MooseX::SomeAwesomeDBFields'] },
+ Mouse::Util::MetaRole::apply_metaclass_roles(
+ for_class => __PACKAGE__,
+ instance_metaclass_roles => ['MouseX::SomeAwesomeDBFields']
);
lives_ok {
lives_ok { __PACKAGE__->meta->make_immutable; }
"Inling constructor does not use inline_slot_access";
-
- done_testing;
}