t/attr_named_meta.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Class::MOP ();
   6 use Test::More skip_all => 'TODO'; #
   7 use MooseX::Adopt::Class::Accessor::Fast;
   8
   9 {
  10   package TestPackage;
  11   use base 'Class::Accessor::Fast';
  12   __PACKAGE__->mk_accessors(qw/ meta /);
  13 }
  14
  15 my $i = TestPackage->new( meta => 66 );
  16
  17 is $i->meta, 66, 'meta accessor read value from constructor';
  18 $i->meta(9);
  19 is $i->meta, 9, 'meta accessor read set value';
  20
  21 my $meta = Class::MOP::get_metaclass_for('TestPackage');
  22 $meta->make_immutable;
  23
  24 is $i->meta, 9, 'meta accessor read value from constructor';
  25 $i->meta(66);
  26 is $i->meta, 66, 'meta accessor read set value';
  27
  28
  29 __END__;
  30