0.00400

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

diff --git a/t/accessors.t b/t/accessors.t
index 5341d75..04efe4b 100644 (file)
--- a/t/accessors.t
+++ b/t/accessors.t
@@ -1,6 +1,9 @@
 #!perl
 use strict;
-use Test::More tests => 32;
+use Test::More tests => 33;
+use Test::Exception;
+
+use Class::MOP;
 
 #1
 require_ok("MooseX::Adopt::Class::Accessor::Fast");
@@ -8,12 +11,21 @@ require_ok("MooseX::Adopt::Class::Accessor::Fast");
 my $class = "Testing::Class::Accessor::Fast";
 
 {
-  no strict 'refs';
-  @{"${class}::ISA"} = ('Class::Accessor::Fast');
-  *{"${class}::car"} = sub { shift->_car_accessor(@_); };
-  *{"${class}::mar"} = sub { return "Overloaded"; };
+  my $infinite_loop_indicator = 0;
+  my $meta = Class::MOP::Class->create(
+    $class,
+    superclasses => ['Class::Accessor::Fast'],
+    methods => {
+      car => sub { shift->_car_accessor(@_); },
+      mar => sub { return "Overloaded"; },
+      test => sub {
+        die('Infinite loop detected') if $infinite_loop_indicator++;
+        $_[0]->_test_accessor((@_ > 1 ? @_ : ()));
+      }
+    }
+  );
 
-  $class->mk_accessors(qw( foo bar yar car mar ));
+  $class->mk_accessors(qw( foo bar yar car mar test));
   $class->mk_ro_accessors(qw(static unchanged));
   $class->mk_wo_accessors(qw(sekret double_sekret));
   $class->follow_best_practice;
@@ -23,14 +35,14 @@ my $class = "Testing::Class::Accessor::Fast";
 my %attrs = map{$_->name => $_} $class->meta->compute_all_applicable_attributes;
 
 #2
-is(keys %attrs, 10, 'Correct number of attributes');
+is(keys %attrs, 11, 'Correct number of attributes');
 
 #3-12
 ok(exists $attrs{$_}, "Attribute ${_} created")
   for qw( foo bar yar car mar static unchanged sekret double_sekret best );
 
 #13-21
-ok($class->can("_${_}_accessor"), "Attribute ${_} created")
+ok($class->can("_${_}_accessor"), "Alias method (_${_}_accessor) for ${_} created")
   for qw( foo bar yar car mar static unchanged sekret double_sekret );
 
 #22-24
@@ -52,3 +64,6 @@ is( $attrs{$_}->writer, $_, "Writer ${_} created")
 #31,32
 is( $attrs{'best'}->reader, 'get_best', "Reader get_best created");
 is( $attrs{'best'}->writer, 'set_best', "Writer set_best created");
+
+#33
+lives_ok{ $class->new->test(1) } 'no auto-reference to accessors from aliases';