FM / behavior

/usr/share/doc/perl-Test-Simple/t/Test2/behavior/

/usr/share/doc/perl-Test-Simple/t/Test2/behavior

Name	Size	Mode	Actions
disable_ipc_a.t	203	0644	edit dl rm
disable_ipc_b.t	219	0644	edit dl rm
disable_ipc_c.t	256	0644	edit dl rm
disable_ipc_d.t	458	0644	edit dl rm
err_var.t	177	0644	edit dl rm
Formatter.t	1677	0644	edit dl rm
init_croak.t	589	0644	edit dl rm
intercept.t	1117	0644	edit dl rm
ipc_wait_timeout.t	2351	0644	edit dl rm
nested_context_exception.t	2139	0644	edit dl rm
no_load_api.t	1561	0644	edit dl rm
run_subtest_inherit.t	2264	0644	edit dl rm
special_names.t	1314	0644	edit dl rm
subtest_bailout.t	1182	0644	edit dl rm
Subtest_buffer_formatter.t	2680	0644	edit dl rm
Subtest_callback.t	906	0644	edit dl rm
Subtest_events.t	441	0644	edit dl rm
Subtest_plan.t	355	0644	edit dl rm
Subtest_todo.t	932	0644	edit dl rm
Taint.t	356	0644	edit dl rm
trace_signature.t	1507	0644	edit dl rm
uuid.t	3414	0644	edit dl rm

Edit: /usr/share/doc/perl-Test-Simple/t/Test2/behavior/intercept.t (1117B)

use strict;
use warnings;

use Test2::Tools::Tiny;

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

sub streamed {
    my $name = shift;
    my $code = shift;

my $ctx = context();
    my $pass = run_subtest("Subtest: $name", $code, {buffered => 0}, @_);
    $ctx->release;
    return $pass;
}

sub buffered {
    my $name = shift;
    my $code = shift;

my $ctx = context();
    my $pass = run_subtest($name, $code, {buffered => 1}, @_);
    $ctx->release;
    return $pass;
}

my $subtest = sub { ok(1, "pass") };

my $buffered_shallow = intercept { buffered 'buffered shallow' => $subtest };
my $streamed_shallow = intercept { streamed 'streamed shallow' => $subtest };
my $buffered_deep = intercept_deep { buffered 'buffered shallow' => $subtest };
my $streamed_deep = intercept_deep { streamed 'streamed shallow' => $subtest };

is(@$buffered_shallow, 1, "Just got the subtest event");
is(@$streamed_shallow, 2, "Got note, and subtest events");
is(@$buffered_deep, 3, "Got ok, plan, and subtest events");
is(@$streamed_deep, 4, "Got note, ok, plan, and subtest events");

done_testing;

use strict; use warnings; use Test2::Tools::Tiny; use Test2::API qw/intercept intercept_deep context run_subtest/; sub streamed { my $name = shift; my $code = shift; my $ctx = context(); my $pass = run_subtest("Subtest: $name", $code, {buffered => 0}, @_); $ctx->release; return $pass; } sub buffered { my $name = shift; my $code = shift; my $ctx = context(); my $pass = run_subtest($name, $code, {buffered => 1}, @_); $ctx->release; return $pass; } my $subtest = sub { ok(1, "pass") }; my $buffered_shallow = intercept { buffered 'buffered shallow' => $subtest }; my $streamed_shallow = intercept { streamed 'streamed shallow' => $subtest }; my $buffered_deep = intercept_deep { buffered 'buffered shallow' => $subtest }; my $streamed_deep = intercept_deep { streamed 'streamed shallow' => $subtest }; is(@$buffered_shallow, 1, "Just got the subtest event"); is(@$streamed_shallow, 2, "Got note, and subtest events"); is(@$buffered_deep, 3, "Got ok, plan, and subtest events"); is(@$streamed_deep, 4, "Got note, ok, plan, and subtest events"); done_testing;