Graybyt3 Was Here

Linux vps-4656817-x.dattaweb.com 5.14.0-570.33.2.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Aug 14 07:37:35 EDT 2025 x86_64
Apache
200.58.107.103

File Name : exit.t

#!/usr/bin/perl -w
# HARNESS-NO-STREAM

# Can't use Test.pm, that's a 5.005 thing.
package My::Test;

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = '../lib';
    }
}

require Test::Builder;
my $TB = Test::Builder->create();
$TB->level(0);

package main;

use Cwd;
use File::Spec;

my $Orig_Dir = cwd;

my $Perl = File::Spec->rel2abs($^X);
if( $^O eq 'VMS' ) {
    # VMS can't use its own $^X in a system call until almost 5.8
    $Perl = "MCR $^X" if $] < 5.007003;

# Quiet noisy 'SYS$ABORT'
    $Perl .= q{ -"I../lib"} if $ENV{PERL_CORE};
    $Perl .= q{ -"Mvmsish=hushed"};
} else {
    $Perl = qq("$Perl"); # protect from shell if spaces
}

eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *exitstatus = sub { $_[0] >> 8 };
}
else {
    *exitstatus = sub { POSIX::WEXITSTATUS($_[0]) }
}

# Some OS' will alter the exit code to their own native sense...
# sometimes.  Rather than deal with the exception we'll just
# build up the mapping.
print "# Building up a map of exit codes.  May take a while.\n";
my %Exit_Map;

open my $fh, ">", "exit_map_test" or die $!;
print $fh <<'DONE';
if ($^O eq 'VMS') {
    require vmsish;
    import vmsish qw(hushed);
}
my $exit = shift;
print "exit $exit\n";
END { $? = $exit };
DONE

close $fh;
END { 1 while unlink "exit_map_test" }

for my $exit (0..255) {
    # This correctly emulates Test::Builder's behavior.
    my $out = qx[$Perl exit_map_test $exit];
    $TB->like( $out, qr/^exit $exit\n/, "exit map test for $exit" );
    $Exit_Map{$exit} = exitstatus($?);
}
print "# Done.\n";

my %Tests = (
             # File                        Exit Code
             'success.plx'              => 0,
             'one_fail.plx'             => 1,
             'two_fail.plx'             => 2,
             'five_fail.plx'            => 5,
             'extras.plx'               => 2,
             'too_few.plx'              => 255,
             'too_few_fail.plx'         => 2,
             'death.plx'                => 255,
             'last_minute_death.plx'    => 255,
             'pre_plan_death.plx'       => 'not zero',
             'death_in_eval.plx'        => 0,
             'require.plx'              => 0,
             'death_with_handler.plx'   => 255,
             'exit.plx'                 => 1,
             'one_fail_without_plan.plx'    => 1,
             'missing_done_testing.plx'     => 254,
            );

chdir 't';
my $lib = File::Spec->catdir(qw(lib Test Simple sample_tests));
while( my($test_name, $exit_code) = each %Tests ) {
    my $file = File::Spec->catfile($lib, $test_name);
    my $wait_stat = system(qq{$Perl -"I../blib/lib" -"I../lib" -"I../t/lib" $file});
    my $actual_exit = exitstatus($wait_stat);

if( $exit_code eq 'not zero' ) {
        $TB->isnt_num( $actual_exit, $Exit_Map{0},
                      "$test_name exited with $actual_exit ".
                      "(expected non-zero)");
    }
    else {
        $TB->is_num( $actual_exit, $Exit_Map{$exit_code}, 
                      "$test_name exited with $actual_exit ".
                      "(expected $Exit_Map{$exit_code})");
    }
}

$TB->done_testing( scalar keys(%Tests) + 256 );

# So any END block file cleanup works.
chdir $Orig_Dir;

System Information
*ReClick For Close
File : BlackDragon /acciones/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-11-11 09:25:19
..	dir	-	root/root	0755	2024-11-11 09:25:19
Bugs	dir	-	root/root	0755	2024-11-11 09:25:19
Builder	dir	-	root/root	0755	2024-11-11 09:25:19
Regression	dir	-	root/root	0755	2024-11-11 09:25:19
Simple	dir	-	root/root	0755	2024-11-11 09:25:19
Test2	dir	-	root/root	0755	2024-11-11 09:25:19
Tester	dir	-	root/root	0755	2024-11-11 09:25:19
subtest	dir	-	root/root	0755	2024-11-11 09:25:19
00test_harness_check.t	file	764 B	root/root	0644	2020-10-22 03:10:37
01-basic.t	file	90 B	root/root	0644	2020-10-22 03:10:37
478-cmp_ok_hash.t	file	923 B	root/root	0644	2020-10-22 03:10:37
BEGIN_require_ok.t	file	463 B	root/root	0644	2020-10-22 03:10:37
BEGIN_use_ok.t	file	388 B	root/root	0644	2020-10-22 03:10:37
More.t	file	5.1 KB	root/root	0644	2020-10-22 03:10:37
auto.t	file	598 B	root/root	0644	2020-10-22 03:10:37
bad_plan.t	file	495 B	root/root	0644	2020-10-22 03:10:37
bail_out.t	file	851 B	root/root	0644	2020-10-22 03:10:37
buffer.t	file	474 B	root/root	0644	2020-10-22 03:10:37
c_flag.t	file	458 B	root/root	0644	2020-10-22 03:10:37
capture.t	file	488 B	root/root	0644	2020-10-22 03:10:37
check_tests.t	file	2.38 KB	root/root	0644	2020-10-22 03:10:37
circular_data.t	file	1.17 KB	root/root	0644	2020-10-22 03:10:37
cmp_ok.t	file	1.75 KB	root/root	0644	2020-10-22 03:10:37
depth.t	file	383 B	root/root	0644	2020-10-22 03:10:37
diag.t	file	1.39 KB	root/root	0644	2020-10-22 03:10:37
died.t	file	889 B	root/root	0644	2020-10-22 03:10:37
dont_overwrite_die_handler.t	file	515 B	root/root	0644	2020-10-22 03:10:37
eq_set.t	file	562 B	root/root	0644	2020-10-22 03:10:37
exit.t	file	3.17 KB	root/root	0644	2020-10-22 03:10:37
explain.t	file	582 B	root/root	0644	2020-10-22 03:10:37
explain_err_vars.t	file	122 B	root/root	0644	2020-10-22 03:10:37
extra.t	file	1.11 KB	root/root	0644	2020-10-22 03:10:37
extra_one.t	file	910 B	root/root	0644	2020-10-22 03:10:37
fail-like.t	file	1.57 KB	root/root	0644	2020-10-22 03:10:37
fail-more.t	file	10.55 KB	root/root	0644	2020-10-22 03:10:37
fail.t	file	1.22 KB	root/root	0644	2020-10-22 03:10:37
fail_one.t	file	873 B	root/root	0644	2020-10-22 03:10:37
filehandles.t	file	290 B	root/root	0644	2020-10-22 03:10:37
fork.t	file	456 B	root/root	0644	2020-10-22 03:10:37
harness_active.t	file	1.43 KB	root/root	0644	2020-10-22 03:10:37
import.t	file	244 B	root/root	0644	2020-10-22 03:10:37
is_deeply_dne_bug.t	file	887 B	root/root	0644	2020-10-22 03:10:37
is_deeply_fail.t	file	11.53 KB	root/root	0644	2020-10-22 03:10:37
is_deeply_with_threads.t	file	1.37 KB	root/root	0644	2020-10-22 03:10:37
missing.t	file	1.08 KB	root/root	0644	2020-10-22 03:10:37
new_ok.t	file	705 B	root/root	0644	2020-10-22 03:10:37
no_log_results.t	file	260 B	root/root	0644	2020-10-22 03:10:37
no_plan.t	file	840 B	root/root	0644	2020-10-22 03:10:37
no_tests.t	file	823 B	root/root	0644	2020-10-22 03:10:37
note.t	file	416 B	root/root	0644	2020-10-22 03:10:37
overload.t	file	2.13 KB	root/root	0644	2020-10-22 03:10:37
overload_threads.t	file	1.15 KB	root/root	0644	2020-10-22 03:10:37
plan.t	file	474 B	root/root	0644	2020-10-22 03:10:37
plan_bad.t	file	1.05 KB	root/root	0644	2020-10-22 03:10:37
plan_is_noplan.t	file	404 B	root/root	0644	2020-10-22 03:10:37
plan_no_plan.t	file	794 B	root/root	0644	2020-10-22 03:10:37
plan_shouldnt_import.t	file	294 B	root/root	0644	2020-10-22 03:10:37
plan_skip_all.t	file	190 B	root/root	0644	2020-10-22 03:10:37
require_ok.t	file	786 B	root/root	0644	2020-10-22 03:10:37
run_test.t	file	4.13 KB	root/root	0644	2020-10-22 03:10:37
simple.t	file	200 B	root/root	0644	2020-10-22 03:10:37
skip.t	file	1.92 KB	root/root	0644	2020-10-22 03:10:37
skipall.t	file	481 B	root/root	0644	2020-10-22 03:10:37
strays.t	file	480 B	root/root	0644	2020-10-22 03:10:37
tbm_doesnt_set_exported_to.t	file	457 B	root/root	0644	2020-10-22 03:10:37
thread_taint.t	file	122 B	root/root	0644	2020-10-22 03:10:37
threads.t	file	616 B	root/root	0644	2020-10-22 03:10:37
todo.t	file	3.31 KB	root/root	0644	2020-10-22 03:10:37
undef.t	file	1.95 KB	root/root	0644	2020-10-22 03:10:37
use_ok.t	file	2.29 KB	root/root	0644	2020-10-22 03:10:37
useing.t	file	365 B	root/root	0644	2020-10-22 03:10:37
utf8.t	file	1.49 KB	root/root	0644	2020-10-22 03:10:37
versions.t	file	503 B	root/root	0644	2020-10-22 03:10:37