/usr/share/perl5/Test2/Plugin/DieOnFail.pm is in libtest2-suite-perl 0.000102-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | package Test2::Plugin::DieOnFail;
use strict;
use warnings;
our $VERSION = '0.000102';
use Test2::API qw/test2_add_callback_context_release/;
my $LOADED = 0;
sub import {
return if $LOADED++;
test2_add_callback_context_release(sub {
my $ctx = shift;
return if $ctx->hub->is_passing;
$ctx->throw("(Die On Fail)");
});
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Test2::Plugin::DieOnFail - Automatically die on the first test failure.
=head1 DESCRIPTION
This module will die after the first test failure. This will prevent your tests
from continuing. The exception is thrown when the context is released, that is
it will run when the test function you are using, such as C<ok()>, returns.
This gives the tools the ability to output any extra diagnostics they may need.
=head1 SYNOPSIS
use Test2::V0;
use Test2::Plugin::DieOnFail;
ok(1, "pass");
ok(0, "fail");
ok(1, "Will not run");
=head1 SOURCE
The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.
=head1 MAINTAINERS
=over 4
=item Chad Granum E<lt>exodist@cpan.orgE<gt>
=back
=head1 AUTHORS
=over 4
=item Chad Granum E<lt>exodist@cpan.orgE<gt>
=back
=head1 COPYRIGHT
Copyright 2017 Chad Granum E<lt>exodist@cpan.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
See F<http://dev.perl.org/licenses/>
=cut
|