/ 
Error-Hierarchy-0.02
River stage one • 6 direct dependents • 6 total dependents
/ Error::Hierarchy::Test

NAME

Error::Hierarchy::Test - tools to test hierarchical exceptions

SYNOPSIS

use Error::Hierarchy::Test 'throws2_ok';
throws2_ok {
    ...
}, 'Some::Exception',
   qr/text that \s* appears in the exception message/,
   "this test's name";

DESCRIPTION

This module provides some tools that help in testing hierarchical exceptions.

FUNCTIONS

exception_ok

Takes as arguments in the given order: an exception object, a class name, the expected content and optionally a test name.

First we check whether the exception object is of the given class type. If it is, we also check whether the stringified exception matches the expected content. If the content is a string, the content has to be equal to the stringified exception. If the content is a regex, the content has to match the stringified exception.

The first argument can also be a Error::Hierarchy::Container, in which case the first exception stored in the container will be tested.

If the test name is not given, the stringified exception is used.

Otherwise it behaves like Test::More's ok(). If the test was not ok, a diagnostic is printed.

throws2_ok

Takes as arguments in the given order: A code reference, a class name, the expected content and optionally a test name.

The code reference is executed in a try/catch block. The test is ok if the code threw the given exception, with semantics per exception_ok().

Diagnostics are printed if the exception did not match the expectations, or if no exception was thrown.

TAGS

If you talk about this module in blogs, on del.icio.us or anywhere else, please use the errorhierarchy tag.

BUGS AND LIMITATIONS

No bugs have been reported.

Please report any bugs or feature requests to bug-error-hierarchy@rt.cpan.org, or through the web interface at http://rt.cpan.org.

INSTALLATION

See perlmodinstall for information and options on installing Perl modules.

AVAILABILITY

The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit <http://www.perl.com/CPAN/> to find a CPAN site near you. Or see <http://www.perl.com/CPAN/authors/id/M/MA/MARCEL/>.

AUTHOR

Marcel Grünauer, <marcel@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2007 by Marcel Grünauer

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.