git.maemo.org Git - pkg-perl/blob - deb-src/libtest-exception-perl/libtest-exception-perl-0.27/t/isa.t

   1 #! /usr/bin/perl -Tw
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::Exception;
   8
   9 {
  10     package MockFooException;
  11
  12     sub new { bless {}, shift };
  13     sub isa {
  14         my ( $self, $class ) = @_;
  15         return 1 if $class eq 'Foo';
  16         return $self->SUPER::isa( $class );
  17     }
  18 }
  19
  20 throws_ok { die MockFooException->new } 'Foo',
  21     'Understand exception classes that override isa';