FM / regression

/usr/share/doc/perl-Test-Simple/t/regression/

/usr/share/doc/perl-Test-Simple/t/regression

Name	Size	Mode	Actions
642_persistent_end.t	445	0644	edit dl rm
662-tbt-no-plan.t	564	0644	edit dl rm
684-nested_todo_diag.t	520	0644	edit dl rm
694_note_diag_return_values.t	401	0644	edit dl rm
696-intercept_skip_all.t	1005	0644	edit dl rm
721-nested-streamed-subtest.t	2956	0644	edit dl rm
757-reset_in_subtest.t	289	0644	edit dl rm
buffered_subtest_plan_buffered.t	624	0644	edit dl rm
builder_does_not_init.t	362	0644	edit dl rm
errors_facet.t	985	0644	edit dl rm
inherit_trace.t	548	0644	edit dl rm
no_name_in_subtest.t	135	0644	edit dl rm
todo_and_facets.t	906	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/regression/721-nested-streamed-subtest.t (2956B)

use strict;
use warnings;

use Test2::Tools::Tiny;

# This module's exports interfere with the ones in t/tools.pl
use Test::More ();
use Test::Builder::Formatter();
use Test2::API qw/run_subtest test2_stack/;

{
    test2_stack->top;
    my $temp_hub = test2_stack->new_hub();
    $temp_hub->format(Test::Builder::Formatter->new());

my $output = capture {
        run_subtest(
            'parent',
            sub {
                run_subtest(
                    'buffered',
                    sub {
                        ok(1, 'b1');
                        ok(1, 'b2');
                    },
                    {buffered => 1},
                );
                run_subtest(
                    'streamed',
                    sub {
                        ok(1, 's1');
                        ok(1, 's2');
                    },
                    {buffered => 0},
                );
            },
            {buffered => 1},
        );
    };

test2_stack->pop($temp_hub);

Test::More::subtest(
        'Test2::API::run_subtest',
        sub {
            is($output->{STDERR}, q{}, 'no output on stderr');
            like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest');
            like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest');
            like($output->{STDOUT}, qr/ +ok 1 - s1/, 'got ok output for tests in streamed subtest');
            like($output->{STDOUT}, qr/ +ok 2 - s2/, 'got ok output for tests in streamed subtest');
        }
    );
}

{
    test2_stack->top;
    my $temp_hub = test2_stack->new_hub();
    $temp_hub->format(Test::Builder::Formatter->new());

my $output = capture {
        run_subtest(
            'parent',
            sub {
                run_subtest(
                    'buffered',
                    sub {
                        ok(1, 'b1');
                        ok(1, 'b2');
                    },
                    {buffered => 1},
                );
                Test::More::subtest(
                    'streamed',
                    sub {
                        ok(1, 's1');
                        ok(1, 's2');
                    },
                    {buffered => 0},
                );
            },
            {buffered => 1},
        );
    };

test2_stack->pop($temp_hub);

Test::More::subtest(
        'Test::More::subtest and Test2::API::run_subtest',
        sub {
            is($output->{STDERR}, q{}, 'no output on stderr');
            like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest');
            like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest');
            like($output->{STDOUT}, qr/ +ok 1 - s1/, 'got ok output for tests in streamed subtest');
            like($output->{STDOUT}, qr/ +ok 2 - s2/, 'got ok output for tests in streamed subtest');
        }
    );
}

done_testing;

use strict; use warnings; use Test2::Tools::Tiny; # This module's exports interfere with the ones in t/tools.pl use Test::More (); use Test::Builder::Formatter(); use Test2::API qw/run_subtest test2_stack/; { test2_stack->top; my $temp_hub = test2_stack->new_hub(); $temp_hub->format(Test::Builder::Formatter->new()); my $output = capture { run_subtest( 'parent', sub { run_subtest( 'buffered', sub { ok(1, 'b1'); ok(1, 'b2'); }, {buffered => 1}, ); run_subtest( 'streamed', sub { ok(1, 's1'); ok(1, 's2'); }, {buffered => 0}, ); }, {buffered => 1}, ); }; test2_stack->pop($temp_hub); Test::More::subtest( 'Test2::API::run_subtest', sub { is($output->{STDERR}, q{}, 'no output on stderr'); like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest'); like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest'); like($output->{STDOUT}, qr/ +ok 1 - s1/, 'got ok output for tests in streamed subtest'); like($output->{STDOUT}, qr/ +ok 2 - s2/, 'got ok output for tests in streamed subtest'); } ); } { test2_stack->top; my $temp_hub = test2_stack->new_hub(); $temp_hub->format(Test::Builder::Formatter->new()); my $output = capture { run_subtest( 'parent', sub { run_subtest( 'buffered', sub { ok(1, 'b1'); ok(1, 'b2'); }, {buffered => 1}, ); Test::More::subtest( 'streamed', sub { ok(1, 's1'); ok(1, 's2'); }, {buffered => 0}, ); }, {buffered => 1}, ); }; test2_stack->pop($temp_hub); Test::More::subtest( 'Test::More::subtest and Test2::API::run_subtest', sub { is($output->{STDERR}, q{}, 'no output on stderr'); like($output->{STDOUT}, qr/ +ok 1 - b1/, 'got ok output for tests in buffered subtest'); like($output->{STDOUT}, qr/ +ok 2 - b2/, 'got ok output for tests in buffered subtest'); like($output->{STDOUT}, qr/ +ok 1 - s1/, 'got ok output for tests in streamed subtest'); like($output->{STDOUT}, qr/ +ok 2 - s2/, 'got ok output for tests in streamed subtest'); } ); } done_testing;