Test2::Tools::Exception(3) User Contributed Perl Documentation Test2::Tools::Exception(3)

Test2::Tools::Exception - Test2 based tools for checking exceptions

This is the Test2 implementation of code used to test exceptions. This is similar to Test::Fatal, but it intentionally does much less.

use Test2::Tools::Exception qw/dies lives/;

like(
    dies { die 'xxx' },
    qr/xxx/,
    "Got exception"
);

ok(lives { ... }, "did not die") or note($@);

All subs are exported by default.
$e = dies { ... }
This will trap any exception the codeblock throws. If no exception is thrown the sub will return undef. If an exception is thrown it will be returned. This function preserves $@, it will not be altered from its value before the sub is called.
$bool = lives { ... }
This will trap any exception thrown in the codeblock. It will return true when there is no exception, and false when there is. $@ is preserved from before the sub is called when there is no exception. When an exception is trapped $@ will have the exception so that you can look at it.
$bool = try_ok { ... }
$bool = try_ok { ... } "Test Description"
This will run the code block trapping any exception. If there is no exception a passing event will be issued. If the test fails a failing event will be issued, and the exception will be reported as diagnostics.

Note: This function does not preserve $@ on failure, it will be set to the exception the codeblock throws, this is by design so that you can obtain the exception if desired.

Test::Fatal sets $Test::Builder::Level such that failing tests inside the exception block will report to the line where "exception()" is called. I disagree with this, and think the actual line of the failing test is more important. Ultimately, though Test::Fatal cannot be changed, people probably already depend on that behavior.

The source code repository for Test2-Suite can be found at https://github.com/Test-More/Test2-Suite/.

Chad Granum <exodist@cpan.org>

Chad Granum <exodist@cpan.org>

Copyright 2018 Chad Granum <exodist@cpan.org>.

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

See http://dev.perl.org/licenses/

2021-07-27 perl v5.34.0