trAvis - MANAGER
Edit File: 013_immutable_roundtrip.t
#!/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; use Test::Requires { 'Test::Output' => '0.01', # skip all if not installed }; { package Foo; use Mouse; __PACKAGE__->meta->make_immutable; } { package Bar; use Mouse; extends 'Foo'; __PACKAGE__->meta->make_immutable; __PACKAGE__->meta->make_mutable; # This actually is testing for a bug in Mouse::Meta that cause # Mouse::Meta::Method to spit out a warning when it # shouldn't have done so. The bug was fixed in CMOP 0.75. ::stderr_unlike( sub { Bar->meta->make_immutable }, qr/Not inlining a constructor/, 'no warning that Bar may not have an inlined constructor' ); } done_testing;