File Coverage

blib/lib/Test/Unit/Assertion/Exception.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	7	10	70.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	2	3	66.6
total	57	62	91.9

package Test::Unit::Assertion::Exception;
BEGIN {
  $Test::Unit::Assertion::Exception::VERSION = '0.25_1325'; # added by dist-tools/SetVersion.pl
}

use strict;
use base qw/Test::Unit::Assertion/;

use Carp;
use Error qw/:try/;
use Test::Unit::Debug qw(debug);

my $deparser;

sub new {
    my $class = shift;
    my $exception_class = shift;

    my $prob;
    $prob = "none given" unless defined $exception_class;
    $prob = "$exception_class has no catch method"
      unless UNIVERSAL::can($exception_class, "catch");
    croak "$class\::new needs an exception class - $prob" if $prob;

    bless \$exception_class => $class;
}

sub do_assertion {
    my $self = shift;
    my $coderef = shift;
    my $exception_class = $$self;

    my $exception;
    try {
        &$coderef();
    }
    catch $exception_class with {
        $exception = shift;
    };

    if (! $exception || ! $exception->isa($$self)) {
        $self->fail(@_ ? $_[0] : "No $exception_class was raised");
    }
    return $exception; # so that it can be stored in the test for the
                       # user to get at.
}

sub to_string {
    my $self = shift;
    return "$$self exception assertion";
}

1;
__END__