croak.t   [plain text]

use strict;
use Test::More tests => 2;
require Class::Accessor::Fast;

@Frog::ISA = ('Class::Accessor::Fast');
my $croaked = 0;
sub Frog::_croak { ++$croaked }
Frog->mk_ro_accessors('test_ro');
Frog->mk_wo_accessors('test_wo');

my $frog = Frog->new;

eval {
    $croaked = 0;
    $frog->test_ro("foo");
    is $croaked, 1, "we croaked for ro";

    $croaked = 0;
    $frog->test_wo;
    is $croaked, 1, "we croaked for wo";
};

fail "We really croaked: $@" if $@;