X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2F053_immutable_metaclass_compat_bug.t;fp=t%2F050_metaclasses%2F053_immutable_metaclass_compat_bug.t;h=0000000000000000000000000000000000000000;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=08d0c91ba8faedea0ccc3400284254813ba468da;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git diff --git a/t/050_metaclasses/053_immutable_metaclass_compat_bug.t b/t/050_metaclasses/053_immutable_metaclass_compat_bug.t deleted file mode 100644 index 08d0c91..0000000 --- a/t/050_metaclasses/053_immutable_metaclass_compat_bug.t +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/bin/env 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; - -{ - package Foo::Base::Meta::Trait; - use Mouse::Role; -} - -{ - package Foo::Base; - use Mouse; - Mouse::Util::MetaRole::apply_metaroles( - for => __PACKAGE__, - class_metaroles => { constructor => ['Foo::Base::Meta::Trait'] }, - ); - __PACKAGE__->meta->make_immutable; -} - -{ - package Foo::Meta::Trait; - use Mouse::Role; -} - -{ - package Foo; - use Mouse; - Mouse::Util::MetaRole::apply_metaroles( - for => __PACKAGE__, - class_metaroles => { constructor => ['Foo::Meta::Trait'] } - ); - ::ok(!Foo->meta->is_immutable); - extends 'Foo::Base'; - ::ok(!Foo->meta->is_immutable); -} - -done_testing;