1use strict;
2use Test::More tests => 2;
3require Class::Accessor::Fast::Contained;
4
5@Frog::ISA = ('Class::Accessor::Fast::Contained');
6my $croaked = 0;
7sub Frog::_croak { ++$croaked }
8Frog->mk_ro_accessors('test_ro');
9Frog->mk_wo_accessors('test_wo');
10
11my $frog = Frog->new;
12
13eval {
14    $croaked = 0;
15    $frog->test_ro("foo");
16    is $croaked, 1, "we croaked for ro";
17
18    $croaked = 0;
19    $frog->test_wo;
20    is $croaked, 1, "we croaked for wo";
21};
22
23fail "We really croaked: $@" if $@;
24
25