22

✏️ Editing: 00-report.t

use strict;
use warnings;

my $exit = 0;
END{ $? = $exit }

use File::Spec;

my ($stderr, $stdout);
BEGIN {
    $exit = 0;
    END{ $? = $exit }
    print STDOUT "ok 1\n";
    print STDOUT "1..1\n";

open($stdout, '>&STDOUT') or die "Could not clone STDOUT: $!";
    open($stderr, '>&STDERR') or die "Could not clone STDERR: $!";

close(STDOUT) or die "Could not close STDOUT";
    unless(close(STDERR)) {
        print $stderr "Could not close STDERR\n";
        $exit = 255;
        exit $exit;
    }

open(STDOUT, '>', File::Spec->devnull);
    open(STDERR, '>', File::Spec->devnull);
}

use Test2::Util qw/CAN_FORK CAN_REALLY_FORK CAN_THREAD/;
use Test2::API;

sub diag {
    print $stderr "\n" unless @_;
    print $stderr "# $_\n" for @_;
}

diag;
diag "DIAGNOSTICS INFO IN CASE OF FAILURE:";
diag;
diag "Perl: $]";

diag;
diag "CAPABILITIES:";
diag 'CAN_FORK         ' . (CAN_FORK        ? 'Yes' : 'No');
diag 'CAN_REALLY_FORK  ' . (CAN_REALLY_FORK ? 'Yes' : 'No');
diag 'CAN_THREAD       ' . (CAN_THREAD      ? 'Yes' : 'No');

diag;
diag "DEPENDENCIES:";

my @depends = sort qw{
    Carp
    File::Spec
    File::Temp
    PerlIO
    Scalar::Util
    Storable
    Test2
    overload
    threads
    utf8
};

my %deps;
my $len = 0;
for my $dep (@depends) {
    my $l = length($dep);
    $len = $l if $l > $len;
    $deps{$dep} = eval "require $dep" ? ($dep->VERSION || '0') : 'N/A';
}

diag sprintf("%-${len}s  %s", $_, $deps{$_}) for @depends;

END{ $? = $exit }

MR SKB