Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
Formatter.t	1.64 KB	-rw-r--r--
Subtest_buffer_formatter.t	2.62 KB	-rw-r--r--
Subtest_callback.t	906 B	-rw-r--r--
Subtest_events.t	441 B	-rw-r--r--
Subtest_plan.t	355 B	-rw-r--r--
Subtest_todo.t	932 B	-rw-r--r--
Taint.t	356 B	-rw-r--r--
disable_ipc_a.t	203 B	-rw-r--r--
disable_ipc_b.t	219 B	-rw-r--r--
disable_ipc_c.t	256 B	-rw-r--r--
disable_ipc_d.t	458 B	-rw-r--r--
err_var.t	177 B	-rw-r--r--
init_croak.t	589 B	-rw-r--r--
intercept.t	1.09 KB	-rw-r--r--
ipc_wait_timeout.t	2.3 KB	-rw-r--r--
nested_context_exception.t	2.09 KB	-rw-r--r--
no_load_api.t	1.52 KB	-rw-r--r--
run_subtest_inherit.t	2.21 KB	-rw-r--r--
special_names.t	1.28 KB	-rw-r--r--
subtest_bailout.t	1.15 KB	-rw-r--r--
trace_signature.t	1.47 KB	-rw-r--r--
uuid.t	3.33 KB	-rw-r--r--

Code Editor : run_subtest_inherit.t

use strict;
use warnings;

use Test2::Tools::Tiny;

use Test2::API qw/run_subtest intercept context/;

# Test a subtest that should inherit the trace from the tool that calls it
my ($file, $line) = (__FILE__, __LINE__ + 1);
my $events = intercept { my_tool_inherit() };

is(@$events, 1, "got 1 event");
my $e = shift @$events;
ok($e->isa('Test2::Event::Subtest'), "got a subtest event");
is($e->trace->file, $file, "subtest is at correct file");
is($e->trace->line, $line, "subtest is at correct line");
my $plan = pop @{$e->subevents};
ok($plan->isa('Test2::Event::Plan'), "Removed plan");
for my $se (@{$e->subevents}) {
    is($se->trace->file, $file, "subtest event is at correct file");
    is($se->trace->line, $line, "subtest event is at correct line");
    ok($se->facets->{assert}->pass, "subtest event passed");
}

# Test a subtest that should NOT inherit the trace from the tool that calls it
($file, $line) = (__FILE__, __LINE__ + 1);
$events = intercept { my_tool_no_inherit() };

is(@$events, 1, "got 1 event");
$e = shift @$events;
ok($e->isa('Test2::Event::Subtest'), "got a subtest event");
is($e->trace->file, $file, "subtest is at correct file");
is($e->trace->line, $line, "subtest is at correct line");
$plan = pop @{$e->subevents};
ok($plan->isa('Test2::Event::Plan'), "Removed plan");
for my $se (@{$e->subevents}) {
    ok($se->trace->file ne $file, "subtest event is not in our file");
    ok($se->trace->line ne $line, "subtest event is not on our line");
    ok($se->facets->{assert}->{pass}, "subtest event passed");
}

done_testing;

# Make these tools appear to be in a different file/line
#line 100 'fake.pm'

sub my_tool_inherit {
    my $ctx = context();

run_subtest(
        'foo',
        sub {
            ok(1, 'a');
            ok(2, 'b');
            is_deeply(\@_, [qw/arg1 arg2/], "got args");
        },
        {buffered => 1, inherit_trace => 1},
        'arg1', 'arg2'
    );

$ctx->release;
}

sub my_tool_no_inherit {
    my $ctx = context();

run_subtest(
        'foo',
        sub {
            ok(1, 'a');
            ok(2, 'b');
            is_deeply(\@_, [qw/arg1 arg2/], "got args");
        },
        {buffered => 1, inherit_trace => 0},
        'arg1', 'arg2'
    );

$ctx->release;
}

${this.title}

Code Editor : run_subtest_inherit.t