File Manager

X7ROOT File Manager

Current Path: /usr/share/doc/perl-Test-Simple-0.98/t

usr / share / doc / perl-Test-Simple-0.98 / t /

📁 ..
📄 00compile.t(982 B)
📄 00test_harness_check.t(764 B)
📄 BEGIN_require_ok.t(463 B)
📄 BEGIN_use_ok.t(388 B)
📁 Builder
📄 More.t(5.1 KB)
📁 Simple
📁 Tester
📄 bad_plan.t(495 B)
📄 bail_out.t(660 B)
📄 buffer.t(424 B)
📄 c_flag.t(417 B)
📄 circular_data.t(1.17 KB)
📄 cmp_ok.t(1.54 KB)
📄 dependents.t(939 B)
📄 diag.t(1.4 KB)
📄 died.t(848 B)
📄 dont_overwrite_die_handler.t(353 B)
📄 eq_set.t(562 B)
📄 exit.t(2.98 KB)
📄 explain.t(582 B)
📄 extra.t(958 B)
📄 extra_one.t(869 B)
📄 fail-like.t(1.52 KB)
📄 fail-more.t(10.37 KB)
📄 fail.t(1.04 KB)
📄 fail_one.t(697 B)
📄 filehandles.t(290 B)
📄 fork.t(574 B)
📄 harness_active.t(1.35 KB)
📄 import.t(244 B)
📄 is_deeply_dne_bug.t(887 B)
📄 is_deeply_fail.t(11.25 KB)
📄 is_deeply_with_threads.t(1.4 KB)
📁 lib
📄 missing.t(1.03 KB)
📄 new_ok.t(705 B)
📄 no_plan.t(664 B)
📄 no_tests.t(782 B)
📄 note.t(416 B)
📄 overload.t(2.13 KB)
📄 overload_threads.t(1.04 KB)
📄 plan.t(474 B)
📄 plan_bad.t(1.05 KB)
📄 plan_is_noplan.t(404 B)
📄 plan_no_plan.t(794 B)
📄 plan_shouldnt_import.t(294 B)
📄 plan_skip_all.t(190 B)
📄 pod-coverage.t(793 B)
📄 pod.t(149 B)
📄 require_ok.t(786 B)
📄 simple.t(200 B)
📄 skip.t(1.9 KB)
📄 skipall.t(481 B)
📁 subtest
📄 tbm_doesnt_set_exported_to.t(457 B)
📄 thread_taint.t(122 B)
📄 threads.t(629 B)
📄 todo.t(3.28 KB)
📄 undef.t(1.84 KB)
📄 use_ok.t(1.42 KB)
📄 useing.t(365 B)
📄 utf8.t(1.25 KB)
📄 versions.t(482 B)

Editing: exit.t

#!/usr/bin/perl -w

# 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"};
}

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,
            );

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;

X7ROOT File Manager

Editing: exit.t

Upload File

Create Folder