t/no_replace_existing_symbols.t

   1 {
   2   package SomeClass;
   3   #use base qw/Class::Accessor::Fast/;
   4   use Moose;
   5   with 'MooseX::Emulate::Class::Accessor::Fast';
   6
   7   sub anaccessor { 'wibble' }
   8
   9   #sub new { bless {}, 'SomeClass' }
  10 }
  11 {
  12   package SubClass;
  13   use base qw/SomeClass/;
  14
  15   sub anotherone { 'flibble' }
  16   __PACKAGE__->mk_accessors(qw/ anaccessor anotherone /);
  17 }
  18
  19 use Test::More tests => 6;
  20
  21 # 1, 2
  22 my $someclass = SomeClass->new;
  23 is $someclass->anaccessor, 'wibble';
  24 $someclass->anaccessor('fnord');
  25 is $someclass->anaccessor, 'wibble';
  26
  27 # 3-6
  28 my $subclass = SubClass->new;
  29 is $subclass->anaccessor, 'wibble';
  30 $subclass->anaccessor('fnord');
  31 is $subclass->anaccessor, 'wibble';
  32 is $subclass->anotherone, 'flibble';
  33 $subclass->anotherone('fnord');
  34 is $subclass->anotherone, 'flibble';