1#@!#!123s

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

Filename : gh_16.t

back

use strict;
use warnings;

# This test checks for a pretty rare condition, one that was mainly a problem
# on 5.20+ (though a 5.8 also had the problem). I am not too worried about this
# breaking again. That said I still want it run on newer perls (where it is
# less likely to fail for an unrelated reason) and when I have AUTHOR_TESTING
# set.
BEGIN {
    unless($ENV{AUTHOR_TESTING} || eval "no warnings 'portable'; require 5.20; 1") {
        print "1..0 # Skip Crazy test, only run on 5.20+, or when AUTHOR_TESTING is set\n";
        exit 0;
    }
}

# This test is for gh #16
# Also see https://rt.perl.org/Public/Bug/Display.html?id=127774

# Ceate this END before anything else so that $? gets set to 0
END { $? = 0 }

BEGIN {
    print "\n1..1\n";
    close(STDERR);
    open(STDERR, '>&STDOUT');
}

use Test2::API;

eval(' sub { die "xxx" } ')->();
END {
    sub { my $ctx = Test2::API::context(); $ctx->release; }->();
    print "ok 1 - Did not segv\n";
    $? = 0;
}

Name	Size	Last Modified	Owner	Permissions
693_ipc_ordering.t	0.596 KB	March 30 2018 5:53:02	root	0644
746-forking-subtest.t	1.039 KB	March 30 2018 5:53:02	root	0644
gh_16.t	0.956 KB	March 30 2018 5:53:02	root	0644
ipc_files_abort_exit.t	1.9 KB	March 30 2018 5:53:02	root	0644

2017 © D7net \| D704T team