Add all my extra tests, and fix some of them

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

#!perl
use strict;
use Test::More tests => 33;
use Test::Exception;

use Class::MOP;

#1
require_ok("MooseX::Adopt::Class::Accessor::Fast");

my $class = "Testing::Class::Accessor::Fast";

{
  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 ? @_ : ()));
      }
    }
  );

  $meta->make_immutable;
  $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;
  $class->mk_accessors(qw( best));
}

my %attrs = map{$_->name => $_} $class->meta->compute_all_applicable_attributes;

#2
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"), "Alias method (_${_}_accessor) for ${_} created")
  for qw( foo bar yar car mar static unchanged sekret double_sekret );

#22-24
is( $attrs{$_}->accessor, $_, "Accessor ${_} created" )
  for qw( foo bar yar);

#25,26
ok( !$attrs{$_}->has_accessor, "Accessor ${_} not created" )
  for qw( car mar);

#27,28
is( $attrs{$_}->reader, $_, "Reader ${_} created")
  for qw( static unchanged );

#29,30
is( $attrs{$_}->writer, $_, "Writer ${_} created")
  for qw(sekret double_sekret);

#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';