1#@!#!123s

: / usr / share / doc / perl-Try-Tiny / t /

Filename : global_destruction_forked.t

back

use strict;
use warnings;

use Test::More tests => 3;
use Try::Tiny;

{
  package WithCatch;
  use Try::Tiny;

  sub DESTROY {
    try {}
    catch {};
    return;
  }
}

{
  package WithFinally;
  use Try::Tiny;

  our $_in_destroy;
  sub DESTROY {
    local $_in_destroy = 1;
    try {}
    finally {};
    return;
  }
}

try {
  my $pid = fork;
  unless ($pid) {
    my $o = bless {}, 'WithCatch';
    $SIG{__DIE__} = sub {
      exit 1
        if $_[0] =~ /A try\(\) may not be followed by multiple catch\(\) blocks/;
      exit 2;
    };
    exit 0;
  }
  waitpid $pid, 0;
  is $?, 0, 'nested try in cleanup after fork does not maintain outer catch block';
}
catch {};

try {
  my $pid = fork;
  unless ($pid) {
    my $o = bless {}, 'WithFinally';
    exit 0;
  }
  waitpid $pid, 0;
  is $?, 0, 'nested try in cleanup after fork does not maintain outer finally block';
}
finally { exit 1 if $WithFinally::_in_destroy };

pass("Didn't just exit");

Name	Size	Last Modified	Owner	Permissions
lib	Dir	July 28 2023 2:57:25	root	0755
00-report-prereqs.dd	10.072 KB	December 21 2017 7:23:09	root	0644
00-report-prereqs.t	5.825 KB	December 21 2017 7:23:09	root	0644
basic.t	2.995 KB	December 21 2017 7:23:09	root	0644
context.t	1.167 KB	December 21 2017 7:23:09	root	0644
erroneous_usage.t	1.503 KB	December 21 2017 7:23:09	root	0644
finally.t	2.502 KB	December 21 2017 7:23:09	root	0644
given_when.t	0.678 KB	December 21 2017 7:23:09	root	0644
global_destruction_forked.t	0.931 KB	December 21 2017 7:23:09	root	0644
global_destruction_load.t	0.537 KB	December 21 2017 7:23:09	root	0644
named.t	0.669 KB	December 21 2017 7:23:09	root	0644
when.t	0.653 KB	December 21 2017 7:23:09	root	0644
zzz-check-breaks.t	1.064 KB	December 21 2017 7:23:09	root	0644

2017 © D7net \| D704T team