[gitmo/Moose.git] / t / 500_test_moose / 005_with_immutable.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::Builder::Tester tests => 2;
use Test::More;

BEGIN {
  use_ok('Test::Moose');
}

{
    package Foo;
    use Moose;
}

package main;

test_out("ok 1", "not ok 2");
test_fail(+2);
with_immutable {
    ok(Foo->meta->is_mutable);
} qw(Foo);

test_test('with_immutable');
Commit	Line	Data
f2ca7ada	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::Builder::Tester tests => 2;
	7	use Test::More;
	8
	9	BEGIN {
	10	use_ok('Test::Moose');
	11	}
	12
	13	{
	14	package Foo;
	15	use Moose;
	16	}
	17
	18	package main;
	19
	20	test_out("ok 1", "not ok 2");
	21	test_fail(+2);
	22	with_immutable {
	23	ok(Foo->meta->is_mutable);
	24	} qw(Foo);
	25
	26	test_test('with_immutable');