vcs.maemo.org Git - pkg-perl/blob - deb-src/libclass-accessor-perl/libclass-accessor-perl-0.31/t/croak.t

   1 use strict;
   2 use Test::More tests => 2;
   3 require Class::Accessor::Fast;
   4
   5 @Frog::ISA = ('Class::Accessor::Fast');
   6 my $croaked = 0;
   7 sub Frog::_croak { ++$croaked }
   8 Frog->mk_ro_accessors('test_ro');
   9 Frog->mk_wo_accessors('test_wo');
  10
  11 my $frog = Frog->new;
  12
  13 eval {
  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
  23 fail "We really croaked: $@" if $@;
  24