t/cmop/class_is_pristine.t

   1 use strict;
   2 use warnings;
   3
   4 use Class::MOP;
   5 use Test::More;
   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' );
  22
  23 done_testing;