[gitmo/Class-MOP.git] / t / 314_class_is_pristine.t

use strict;
use warnings;

use Class::MOP;
use Test::More;

{
    package Foo;

    sub foo { }
    sub bar { }
}

my $meta = Class::MOP::Class->initialize('Foo');
ok( $meta->is_pristine, 'Foo is still pristine' );

$meta->add_method( baz => sub { } );
ok( $meta->is_pristine, 'Foo is still pristine after add_method' );

$meta->add_attribute( name => 'attr', reader => 'get_attr' );
ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' );

done_testing;
Commit	Line	Data
5327fc78	1	use strict;
	2	use warnings;
	3
	4	use Class::MOP;
86a4d873	5	use Test::More;
5327fc78	6
	7	{
	8	package Foo;
	9
	10	sub foo { }
	11	sub bar { }
	12	}
	13
	14	my $meta = Class::MOP::Class->initialize('Foo');
	15	ok( $meta->is_pristine, 'Foo is still pristine' );
	16
	17	$meta->add_method( baz => sub { } );
	18	ok( $meta->is_pristine, 'Foo is still pristine after add_method' );
	19
	20	$meta->add_attribute( name => 'attr', reader => 'get_attr' );
	21	ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' );
86a4d873	22
86a4d873	23	done_testing;