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 Test::More tests => 12;

use Test::Harness;

sub _has_module {
    my $module = shift;
    eval "use $module";
    return $@ ? 0 : 1;
}

{

# Should add a fake home dir? to test the rc stuff..
    local $ENV{HARNESS_OPTIONS} = 'j4:c';

ok my $harness = Test::Harness::_new_harness, 'made harness';
    is( $harness->color, 1, "set color correctly" );
    is( $harness->jobs,  4, "set jobs correctly" );
}
SKIP: {
    skip 'Can\'t locate object method "color" via package "TAP::Formatter::HTML" (RT 82738)',4;
    skip "requires TAP::Formatter::HTML", 4
      unless _has_module('TAP::Formatter::HTML');

local $ENV{HARNESS_OPTIONS} = 'j4:c:fTAP-Formatter-HTML';

ok my $harness = Test::Harness::_new_harness, 'made harness';
    is( $harness->color, 1, "set color correctly" );
    is( $harness->jobs,  4, "set jobs correctly" );
    is( $harness->formatter_class, "TAP::Formatter::HTML",
        "correct formatter" );

}
SKIP: {
    skip "requires TAP::Harness::Archive", 5
      unless _has_module('TAP::Harness::Archive');

# Test archive
    local $ENV{HARNESS_OPTIONS} = 'j4:c:a/archive.tgz';

ok my $harness = Test::Harness::_new_harness, 'made harness';
    is( $harness->color, 1, "set color correctly" );
    is( $harness->jobs,  4, "set jobs correctly" );
    isa_ok( $harness, "TAP::Harness::Archive", "correct harness subclass" );

# XXX: this is nasty :(
    is( $harness->{__archive_file}, "/archive.tgz", "correct archive found" );

}