One Hat Cyber Team

Your IP : 216.73.217.126

Server IP : 162.240.179.46

Server : Linux vps-14493116.nutrivittasaude.com.br 5.14.0-687.17.1.el9_8.x86_64 #1 SMP PREEMPT_DYNAMIC Mon Jun 22 07:21:26 EDT 2026 x86_64

Server Software : Apache

PHP Version : 8.3.31

Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Test-Simple/t/regression/

Edit File: 696-intercept_skip_all.t

use strict;
use warnings;

use Test2::Tools::Tiny;

use Test2::API qw/intercept/;

tests in_eval => sub {
    my $events = intercept {
        eval { skip_all "foo" };
        die "Should not see this: $@";
    };

is(@$events, 1, "got 1 event");
    ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event");
    is($events->[0]->directive, 'SKIP', "Plan is to skip");
};

tests no_eval => sub {
    my $events = intercept {
        skip_all "foo";
        die "Should not see this: $@";
    };

is(@$events, 1, "got 1 event");
    ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event");
    is($events->[0]->directive, 'SKIP', "Plan is to skip");
};

tests in_require => sub {
    my $events = intercept {
        require './t/lib/SkipAll.pm';
        die "Should not see this: $@";
    };

is(@$events, 1, "got 1 event");
    ok($events->[0]->isa('Test2::Event::Plan'), "Plan is only event");
    is($events->[0]->directive, 'SKIP', "Plan is to skip");
};

done_testing;