#!perl
# Practically verbatim from Class::Accessor::Fast::XS!
use strict;
use warnings;

use constant HAS_NAME_FOR => eval "use Class::Accessor 0.25; 1;";

use Test::More;
unless ( HAS_NAME_FOR ) {
    plan skip_all =>
        'This test requires Class::Accessor'
        .' with support of accessor_name_for and mutator_name_for'
        .' (0.25 or newer)';
}
else {
    plan tests => 24;
}

for my $class (qw(Class::Accessor::Fast Class::XSAccessor::Compat)) {
    require_ok($class);
    my $silly = "Silly::$class";
    {
        no strict 'refs';
        @{"${silly}::ISA"} = ($class);
        *{"${silly}::accessor_name_for"} = sub { "read_$_[1]" };
        *{"${silly}::mutator_name_for"} = sub { "write_$_[1]" };
        $silly->mk_accessors(qw( foo ));
        $silly->mk_ro_accessors(qw(roro));
        $silly->mk_wo_accessors(qw(wowo));
    }

    for my $f (qw/foo roro /) {
        ok $silly->can("read_$f"), "'read_$f' method exists";
    }

    for my $f (qw/foo wowo/) {
        ok $silly->can("write_$f"), "'write_$f' method exists";
    }

    for my $f (qw/foo roro wowo write_roro read_wowo/) {
        ok !$silly->can($f), "no '$f' method";
    }

    my $test = $silly->new({
            foo => "bar",
            roro => "boat",
            wowo => "huh",
        });

    is($test->read_foo, "bar", "initial foo");
    $test->write_foo("stuff");
    is($test->read_foo, "stuff", "new foo");
}