Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
env.t	627 B	-r--r--r--	2014-12-27 11:48
env_opts.t	1.49 KB	-r--r--r--	2014-12-27 11:48
failure.t	1.26 KB	-r--r--r--	2014-12-27 11:48
inc-propagation.t	1.38 KB	-r--r--r--	2014-12-27 11:48
inc_taint.t	626 B	-r--r--r--	2014-12-27 11:48
nonumbers.t	152 B	-r--r--r--	2014-12-27 11:48
regression.t	369 B	-r--r--r--	2014-12-27 11:48
subclass.t	676 B	-r--r--r--	2014-12-27 11:48
switches.t	357 B	-r--r--r--	2014-12-27 11:48
test-harness-compat.t	26.42 KB	-r--r--r--	2014-12-27 11:48
version.t	280 B	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl -w

use strict;
use warnings;
use lib 't/lib';

use Test::More tests => 5;

use File::Spec;
use Test::Harness;

{

#todo_skip 'Harness compatibility incomplete', 5;
    #local $TODO = 'Harness compatibility incomplete';
    my $died;

sub prepare_for_death {
        $died = 0;
        return sub { $died = 1 }
    }

my $curdir = File::Spec->curdir;
    my $sample_tests = File::Spec->catdir( $curdir, 't', 'sample-tests' );

{
        local $SIG{__DIE__} = prepare_for_death();
        eval { _runtests( File::Spec->catfile( $sample_tests, "simple" ) ); };
        ok( !$@, "simple lives" );
        is( $died, 0, "Death never happened" );
    }

{
        local $SIG{__DIE__} = prepare_for_death();
        eval {
            _runtests( File::Spec->catfile( $sample_tests, "too_many" ) );
        };
        ok( $@, "error OK" );
        ok( $@ =~ m[Failed 1/1], "too_many dies" );
        is( $died, 1, "Death happened" );
    }
}

sub _runtests {
    my (@tests) = @_;

local $ENV{PERL_TEST_HARNESS_DUMP_TAP} = 0;
    local $ENV{HARNESS_VERBOSE}            = 0;
    local $ENV{HARNESS_DEBUG}              = 0;
    local $ENV{HARNESS_TIMER}              = 0;

local $Test::Harness::Verbose = -9;

runtests(@tests);
}

# vim:ts=4:sw=4:et:sta