6 use Test::More tests => 3;
15 my $meta = Class::MOP::Class->initialize('Foo');
16 ok( $meta->is_pristine, 'Foo is still pristine' );
18 $meta->add_method( baz => sub { } );
19 ok( $meta->is_pristine, 'Foo is still pristine after add_method' );
21 $meta->add_attribute( name => 'attr', reader => 'get_attr' );
22 ok( ! $meta->is_pristine, 'Foo is not pristine after add_attribute' );