(no commit message)

[gitmo/MooseX-Emulate-Class-Accessor-Fast.git] / t / attr_named_meta.t

diff --git a/t/attr_named_meta.t b/t/attr_named_meta.t
new file mode 100644 (file)
index 0000000..f12c9be
--- /dev/null
+++ b/t/attr_named_meta.t
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use Class::MOP ();
+use Test::More skip_all => 'TODO'; #
+use MooseX::Adopt::Class::Accessor::Fast;
+
+{
+  package TestPackage;
+  use base 'Class::Accessor::Fast';
+  __PACKAGE__->mk_accessors(qw/ meta /);
+}
+
+my $i = TestPackage->new( meta => 66 );
+
+is $i->meta, 66, 'meta accessor read value from constructor';
+$i->meta(9);
+is $i->meta, 9, 'meta accessor read set value';
+
+my $meta = Class::MOP::get_metaclass_for('TestPackage');
+$meta->make_immutable;
+
+is $i->meta, 9, 'meta accessor read value from constructor';
+$i->meta(66);
+is $i->meta, 66, 'meta accessor read set value';
+
+
+__END__;
+