Add more words to the spelling whitelist
[gitmo/Moose.git] / t / immutable / immutable_roundtrip.t
CommitLineData
43d2935a 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
3d659f7f 6use Test::More;
4d438a84 7
8use Test::Requires {
9 'Test::Output' => '0.01', # skip all if not installed
10};
43d2935a 11
12{
13 package Foo;
14 use Moose;
15 __PACKAGE__->meta->make_immutable;
16}
c4022d38 17
18{
43d2935a 19 package Bar;
20 use Moose;
21
22 extends 'Foo';
23
24 __PACKAGE__->meta->make_immutable;
25 __PACKAGE__->meta->make_mutable;
26
679b294c 27
28 # This actually is testing for a bug in Class::MOP that cause
29 # Moose::Meta::Method::Constructor to spit out a warning when it
30 # shouldn't have done so. The bug was fixed in CMOP 0.75.
43d2935a 31 ::stderr_unlike(
32 sub { Bar->meta->make_immutable },
33 qr/Not inlining a constructor/,
34 'no warning that Bar may not have an inlined constructor'
35 );
36}
37
a28e50e4 38done_testing;