[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
doc
/
perl-Test-Simple
/
t
/
Test2
/
behavior
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 Formatter.t
1,677 B
SET
[ EDIT ]
|
[ DEL ]
📄 Subtest_buffer_formatter.t
2,680 B
SET
[ EDIT ]
|
[ DEL ]
📄 Subtest_callback.t
906 B
SET
[ EDIT ]
|
[ DEL ]
📄 Subtest_events.t
441 B
SET
[ EDIT ]
|
[ DEL ]
📄 Subtest_plan.t
355 B
SET
[ EDIT ]
|
[ DEL ]
📄 Subtest_todo.t
932 B
SET
[ EDIT ]
|
[ DEL ]
📄 Taint.t
356 B
SET
[ EDIT ]
|
[ DEL ]
📄 disable_ipc_a.t
203 B
SET
[ EDIT ]
|
[ DEL ]
📄 disable_ipc_b.t
219 B
SET
[ EDIT ]
|
[ DEL ]
📄 disable_ipc_c.t
256 B
SET
[ EDIT ]
|
[ DEL ]
📄 disable_ipc_d.t
458 B
SET
[ EDIT ]
|
[ DEL ]
📄 err_var.t
177 B
SET
[ EDIT ]
|
[ DEL ]
📄 init_croak.t
589 B
SET
[ EDIT ]
|
[ DEL ]
📄 intercept.t
1,117 B
SET
[ EDIT ]
|
[ DEL ]
📄 ipc_wait_timeout.t
2,351 B
SET
[ EDIT ]
|
[ DEL ]
📄 nested_context_exception.t
2,139 B
SET
[ EDIT ]
|
[ DEL ]
📄 no_load_api.t
1,561 B
SET
[ EDIT ]
|
[ DEL ]
📄 run_subtest_inherit.t
2,264 B
SET
[ EDIT ]
|
[ DEL ]
📄 special_names.t
1,314 B
SET
[ EDIT ]
|
[ DEL ]
📄 subtest_bailout.t
1,182 B
SET
[ EDIT ]
|
[ DEL ]
📄 trace_signature.t
1,507 B
SET
[ EDIT ]
|
[ DEL ]
📄 uuid.t
3,414 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: Formatter.t
use strict; use warnings; use Test2::Tools::Tiny; use Test2::API qw/intercept run_subtest test2_stack/; use Test2::Event::Bail; { package Formatter::Subclass; use base 'Test2::Formatter'; use Test2::Util::HashBase qw{f t}; sub init { my $self = shift; $self->{+F} = []; $self->{+T} = []; } sub write { } sub hide_buffered { 1 } sub terminate { my $s = shift; push @{$s->{+T}}, [@_]; } sub finalize { my $s = shift; push @{$s->{+F}}, [@_]; } } { my $f = Formatter::Subclass->new; intercept { my $hub = test2_stack->top; $hub->format($f); is(1, 1, 'test event 1'); is(2, 2, 'test event 2'); is(3, 2, 'test event 3'); done_testing; }; is(scalar @{$f->f}, 1, 'finalize method was called on formatter'); is_deeply( $f->f->[0], [3, 3, 1, 0, 0], 'finalize method received expected arguments' ); ok(!@{$f->t}, 'terminate method was not called on formatter'); } { my $f = Formatter::Subclass->new; intercept { my $hub = test2_stack->top; $hub->format($f); $hub->send(Test2::Event::Bail->new(reason => 'everything is terrible')); done_testing; }; is(scalar @{$f->t}, 1, 'terminate method was called because of bail event'); ok(!@{$f->f}, 'finalize method was not called on formatter'); } { my $f = Formatter::Subclass->new; intercept { my $hub = test2_stack->top; $hub->format($f); $hub->send(Test2::Event::Plan->new(directive => 'skip_all', reason => 'Skipping all the tests')); done_testing; }; is(scalar @{$f->t}, 1, 'terminate method was called because of plan skip_all event'); ok(!@{$f->f}, 'finalize method was not called on formatter'); } done_testing;