FM / subtest

/usr/share/doc/perl-Test-Simple/t/Legacy/subtest/

/usr/share/doc/perl-Test-Simple/t/Legacy/subtest

Name	Size	Mode	Actions
args.t	620	0644	edit dl rm
bail_out.t	1280	0644	edit dl rm
basic.t	4812	0644	edit dl rm
callback.t	1016	0644	edit dl rm
die.t	535	0644	edit dl rm
do.t	283	0644	edit dl rm
events.t	376	0644	edit dl rm
fork.t	1228	0644	edit dl rm
for_do_t.test	112	0644	edit dl rm
implicit_done.t	479	0644	edit dl rm
line_numbers.t	3858	0644	edit dl rm
plan.t	1377	0644	edit dl rm
predicate.t	4844	0644	edit dl rm
singleton.t	712	0644	edit dl rm
threads.t	430	0644	edit dl rm
todo.t	5462	0644	edit dl rm
wstat.t	369	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/Legacy/subtest/callback.t (1016B)

#!/usr/bin/perl -w

# What happens when a subtest dies?

use lib 't/lib';

use strict;
use Test::More;
use Test::Builder;
use Test2::API;

my $Test = Test::Builder->new;

my $step = 0;
my @callback_calls = ();
Test2::API::test2_add_callback_pre_subtest(
    sub {
        $Test->is_num(
            $step,
            0,
            'pre-subtest callbacks should be invoked before the subtest',
        );
        ++$step;
        push @callback_calls, [@_];
    },
);

$Test->subtest(
    (my $subtest_name='some subtest'),
    (my $subtest_code=sub {
         $Test->is_num(
             $step,
             1,
             'subtest should be run after the pre-subtest callbacks',
         );
         ++$step;
     }),
    (my @subtest_args = (1,2,3)),
);

is_deeply(
    \@callback_calls,
    [[$subtest_name,$subtest_code,@subtest_args]],
    'pre-subtest callbacks should be invoked with the expected arguments',
);

$Test->is_num(
    $step,
    2,
    'the subtest should be run',
);

$Test->done_testing();

#!/usr/bin/perl -w # What happens when a subtest dies? use lib 't/lib'; use strict; use Test::More; use Test::Builder; use Test2::API; my $Test = Test::Builder->new; my $step = 0; my @callback_calls = (); Test2::API::test2_add_callback_pre_subtest( sub { $Test->is_num( $step, 0, 'pre-subtest callbacks should be invoked before the subtest', ); ++$step; push @callback_calls, [@_]; }, ); $Test->subtest( (my $subtest_name='some subtest'), (my $subtest_code=sub { $Test->is_num( $step, 1, 'subtest should be run after the pre-subtest callbacks', ); ++$step; }), (my @subtest_args = (1,2,3)), ); is_deeply( \@callback_calls, [[$subtest_name,$subtest_code,@subtest_args]], 'pre-subtest callbacks should be invoked with the expected arguments', ); $Test->is_num( $step, 2, 'the subtest should be run', ); $Test->done_testing();