Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
Bugs	[ DIR ]	drwxr-xr-x
Builder	[ DIR ]	drwxr-xr-x
Regression	[ DIR ]	drwxr-xr-x
Simple	[ DIR ]	drwxr-xr-x
Test2	[ DIR ]	drwxr-xr-x
Tester	[ DIR ]	drwxr-xr-x
subtest	[ DIR ]	drwxr-xr-x
00test_harness_check.t	764 B	-rw-r--r--
01-basic.t	90 B	-rw-r--r--
478-cmp_ok_hash.t	923 B	-rw-r--r--
BEGIN_require_ok.t	463 B	-rw-r--r--
BEGIN_use_ok.t	388 B	-rw-r--r--
More.t	5.1 KB	-rw-r--r--
auto.t	598 B	-rw-r--r--
bad_plan.t	495 B	-rw-r--r--
bail_out.t	851 B	-rw-r--r--
buffer.t	444 B	-rw-r--r--
c_flag.t	458 B	-rw-r--r--
capture.t	488 B	-rw-r--r--
check_tests.t	2.38 KB	-rw-r--r--
circular_data.t	1.17 KB	-rw-r--r--
cmp_ok.t	1.75 KB	-rw-r--r--
depth.t	383 B	-rw-r--r--
diag.t	1.39 KB	-rw-r--r--
died.t	889 B	-rw-r--r--
dont_overwrite_die_handler.t	515 B	-rw-r--r--
eq_set.t	562 B	-rw-r--r--
exit.t	3.17 KB	-rw-r--r--
explain.t	582 B	-rw-r--r--
explain_err_vars.t	122 B	-rw-r--r--
extra.t	1.11 KB	-rw-r--r--
extra_one.t	910 B	-rw-r--r--
fail-like.t	1.56 KB	-rw-r--r--
fail-more.t	10.55 KB	-rw-r--r--
fail.t	1.22 KB	-rw-r--r--
fail_one.t	873 B	-rw-r--r--
filehandles.t	290 B	-rw-r--r--
fork.t	456 B	-rw-r--r--
harness_active.t	1.43 KB	-rw-r--r--
import.t	244 B	-rw-r--r--
is_deeply_dne_bug.t	887 B	-rw-r--r--
is_deeply_fail.t	11.52 KB	-rw-r--r--
is_deeply_with_threads.t	1.37 KB	-rw-r--r--
missing.t	1.08 KB	-rw-r--r--
new_ok.t	705 B	-rw-r--r--
no_log_results.t	260 B	-rw-r--r--
no_plan.t	840 B	-rw-r--r--
no_tests.t	823 B	-rw-r--r--
note.t	416 B	-rw-r--r--
overload.t	2.13 KB	-rw-r--r--
overload_threads.t	1.15 KB	-rw-r--r--
plan.t	474 B	-rw-r--r--
plan_bad.t	1.05 KB	-rw-r--r--
plan_is_noplan.t	404 B	-rw-r--r--
plan_no_plan.t	794 B	-rw-r--r--
plan_shouldnt_import.t	294 B	-rw-r--r--
plan_skip_all.t	190 B	-rw-r--r--
require_ok.t	786 B	-rw-r--r--
run_test.t	4.13 KB	-rw-r--r--
simple.t	200 B	-rw-r--r--
skip.t	1.92 KB	-rw-r--r--
skipall.t	481 B	-rw-r--r--
strays.t	480 B	-rw-r--r--
tbm_doesnt_set_exported_to.t	457 B	-rw-r--r--
thread_taint.t	122 B	-rw-r--r--
threads.t	616 B	-rw-r--r--
todo.t	3.28 KB	-rw-r--r--
undef.t	1.95 KB	-rw-r--r--
use_ok.t	2.29 KB	-rw-r--r--
useing.t	365 B	-rw-r--r--
utf8.t	1.49 KB	-rw-r--r--
versions.t	503 B	-rw-r--r--

Name

Size

Permission

Action

Bugs

[ DIR ]

drwxr-xr-x

Builder

[ DIR ]

drwxr-xr-x

Regression

[ DIR ]

drwxr-xr-x

Simple

[ DIR ]

drwxr-xr-x

Test2

[ DIR ]

drwxr-xr-x

Tester

[ DIR ]

drwxr-xr-x

subtest

[ DIR ]

drwxr-xr-x

00test_harness_check.t

764 B

-rw-r--r--

01-basic.t

90 B

-rw-r--r--

478-cmp_ok_hash.t

923 B

-rw-r--r--

BEGIN_require_ok.t

463 B

-rw-r--r--

BEGIN_use_ok.t

388 B

-rw-r--r--

More.t

5.1 KB

-rw-r--r--

auto.t

598 B

-rw-r--r--

bad_plan.t

495 B

-rw-r--r--

bail_out.t

851 B

-rw-r--r--

buffer.t

444 B

-rw-r--r--

c_flag.t

458 B

-rw-r--r--

capture.t

488 B

-rw-r--r--

check_tests.t

2.38 KB

-rw-r--r--

circular_data.t

1.17 KB

-rw-r--r--

cmp_ok.t

1.75 KB

-rw-r--r--

depth.t

383 B

-rw-r--r--

diag.t

1.39 KB

-rw-r--r--

died.t

889 B

-rw-r--r--

dont_overwrite_die_handler.t

515 B

-rw-r--r--

eq_set.t

562 B

-rw-r--r--

exit.t

3.17 KB

-rw-r--r--

explain.t

582 B

-rw-r--r--

explain_err_vars.t

122 B

-rw-r--r--

extra.t

1.11 KB

-rw-r--r--

extra_one.t

910 B

-rw-r--r--

fail-like.t

1.56 KB

-rw-r--r--

fail-more.t

10.55 KB

-rw-r--r--

fail.t

1.22 KB

-rw-r--r--

fail_one.t

873 B

-rw-r--r--

filehandles.t

290 B

-rw-r--r--

fork.t

456 B

-rw-r--r--

harness_active.t

1.43 KB

-rw-r--r--

import.t

244 B

-rw-r--r--

is_deeply_dne_bug.t

887 B

-rw-r--r--

is_deeply_fail.t

11.52 KB

-rw-r--r--

is_deeply_with_threads.t

1.37 KB

-rw-r--r--

missing.t

1.08 KB

-rw-r--r--

new_ok.t

705 B

-rw-r--r--

no_log_results.t

260 B

-rw-r--r--

no_plan.t

840 B

-rw-r--r--

no_tests.t

823 B

-rw-r--r--

note.t

416 B

-rw-r--r--

overload.t

2.13 KB

-rw-r--r--

overload_threads.t

1.15 KB

-rw-r--r--

plan.t

474 B

-rw-r--r--

plan_bad.t

1.05 KB

-rw-r--r--

plan_is_noplan.t

404 B

-rw-r--r--

plan_no_plan.t

794 B

-rw-r--r--

plan_shouldnt_import.t

294 B

-rw-r--r--

plan_skip_all.t

190 B

-rw-r--r--

require_ok.t

786 B

-rw-r--r--

run_test.t

4.13 KB

-rw-r--r--

simple.t

200 B

-rw-r--r--

skip.t

1.92 KB

-rw-r--r--

skipall.t

481 B

-rw-r--r--

strays.t

480 B

-rw-r--r--

tbm_doesnt_set_exported_to.t

457 B

-rw-r--r--

thread_taint.t

122 B

-rw-r--r--

threads.t

616 B

-rw-r--r--

todo.t

3.28 KB

-rw-r--r--

undef.t

1.95 KB

-rw-r--r--

use_ok.t

2.29 KB

-rw-r--r--

useing.t

365 B

-rw-r--r--

utf8.t

1.49 KB

-rw-r--r--

versions.t

503 B

-rw-r--r--

Code Editor : 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;

${this.title}

Code Editor : exit.t