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 /
dist /
Math-BigInt /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
Math
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
_e_math.t
2.22
KB
-r--r--r--
2014-12-27 11:48
alias.inc
401
B
-r--r--r--
2014-12-27 11:48
bare_mbf.t
321
B
-r--r--r--
2014-12-27 11:48
bare_mbi.t
447
B
-r--r--r--
2014-12-27 11:48
bare_mif.t
502
B
-r--r--r--
2014-12-27 11:48
big_pi_e.t
689
B
-r--r--r--
2014-12-27 11:48
bigfltpm.inc
35.83
KB
-r--r--r--
2014-12-27 11:49
bigfltpm.t
846
B
-r--r--r--
2014-12-27 11:48
bigintc.t
14.24
KB
-r--r--r--
2014-12-27 11:48
bigintpm.inc
55.94
KB
-r--r--r--
2014-12-27 11:48
bigintpm.t
1.1
KB
-r--r--r--
2014-12-27 11:48
bigints.t
2.66
KB
-r--r--r--
2014-12-27 11:48
biglog.t
6.69
KB
-r--r--r--
2014-12-27 11:49
bigroot.t
1.41
KB
-r--r--r--
2014-12-27 11:48
calling.t
2.81
KB
-r--r--r--
2014-12-27 11:48
config.t
3.36
KB
-r--r--r--
2014-12-27 11:48
const_mbf.t
301
B
-r--r--r--
2014-12-27 11:48
constant.t
907
B
-r--r--r--
2014-12-27 11:48
downgrade.t
1.49
KB
-r--r--r--
2014-12-27 11:48
inf_nan.t
5.5
KB
-r--r--r--
2014-12-27 11:48
isa.t
886
B
-r--r--r--
2014-12-27 11:48
lib_load.t
881
B
-r--r--r--
2014-12-27 11:48
mbf_ali.t
189
B
-r--r--r--
2014-12-27 11:48
mbi_ali.t
185
B
-r--r--r--
2014-12-27 11:48
mbi_rand.t
2.81
KB
-r--r--r--
2014-12-27 11:48
mbimbf.inc
27.61
KB
-r--r--r--
2014-12-27 11:48
mbimbf.t
2.23
KB
-r--r--r--
2014-12-27 11:48
nan_cmp.t
805
B
-r--r--r--
2014-12-27 11:48
new_overloaded.t
739
B
-r--r--r--
2014-12-27 11:48
req_mbf0.t
228
B
-r--r--r--
2014-12-27 11:48
req_mbf1.t
208
B
-r--r--r--
2014-12-27 11:48
req_mbfa.t
213
B
-r--r--r--
2014-12-27 11:48
req_mbfi.t
212
B
-r--r--r--
2014-12-27 11:48
req_mbfn.t
213
B
-r--r--r--
2014-12-27 11:48
req_mbfw.t
632
B
-r--r--r--
2014-12-27 11:48
require.t
200
B
-r--r--r--
2014-12-27 11:48
round.t
2.7
KB
-r--r--r--
2014-12-27 11:48
rt-16221.t
1.52
KB
-r--r--r--
2014-12-27 11:48
sub_ali.t
234
B
-r--r--r--
2014-12-27 11:48
sub_mbf.t
1.03
KB
-r--r--r--
2014-12-27 11:48
sub_mbi.t
1
KB
-r--r--r--
2014-12-27 11:48
sub_mif.t
356
B
-r--r--r--
2014-12-27 11:48
trap.t
2.35
KB
-r--r--r--
2014-12-27 11:48
upgrade.inc
26.83
KB
-r--r--r--
2014-12-27 11:49
upgrade.t
475
B
-r--r--r--
2014-12-27 11:48
upgrade2.t
372
B
-r--r--r--
2014-12-27 11:48
upgradef.t
1.22
KB
-r--r--r--
2014-12-27 11:48
use.t
406
B
-r--r--r--
2014-12-27 11:48
use_lib1.t
346
B
-r--r--r--
2014-12-27 11:48
use_lib2.t
364
B
-r--r--r--
2014-12-27 11:48
use_lib3.t
364
B
-r--r--r--
2014-12-27 11:48
use_lib4.t
441
B
-r--r--r--
2014-12-27 11:48
use_mbfw.t
915
B
-r--r--r--
2014-12-27 11:48
with_sub.t
479
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -w # test inf/NaN handling all in one place # Thanx to Jarkko for the excellent explanations and the tables use strict; use Test::More tests => 7 * 6 * 5 * 4 * 2 + 7 * 6 * 2 * 4 * 1 # bmod ; # see bottom: + 4 * 10; # 4 classes * 10 NaN == NaN tests BEGIN { unshift @INC, 't'; } use Math::BigInt; use Math::BigFloat; use Math::BigInt::Subclass; use Math::BigFloat::Subclass; my @classes = qw/Math::BigInt Math::BigFloat Math::BigInt::Subclass Math::BigFloat::Subclass /; my (@args,$x,$y,$z); # + foreach (qw/ -inf:-inf:-inf -1:-inf:-inf -0:-inf:-inf 0:-inf:-inf 1:-inf:-inf inf:-inf:NaN NaN:-inf:NaN -inf:-1:-inf -1:-1:-2 -0:-1:-1 0:-1:-1 1:-1:0 inf:-1:inf NaN:-1:NaN -inf:0:-inf -1:0:-1 -0:0:0 0:0:0 1:0:1 inf:0:inf NaN:0:NaN -inf:1:-inf -1:1:0 -0:1:1 0:1:1 1:1:2 inf:1:inf NaN:1:NaN -inf:inf:NaN -1:inf:inf -0:inf:inf 0:inf:inf 1:inf:inf inf:inf:inf NaN:inf:NaN -inf:NaN:NaN -1:NaN:NaN -0:NaN:NaN 0:NaN:NaN 1:NaN:NaN inf:NaN:NaN NaN:NaN:NaN /) { @args = split /:/,$_; for my $class (@classes) { $x = $class->new($args[0]); $y = $class->new($args[1]); $args[2] = '0' if $args[2] eq '-0'; # BigInt/Float hasn't got -0 my $r = $x->badd($y); is($x->bstr(),$args[2],"x $class $args[0] + $args[1]"); is($x->bstr(),$args[2],"r $class $args[0] + $args[1]"); } } # - foreach (qw/ -inf:-inf:NaN -1:-inf:inf -0:-inf:inf 0:-inf:inf 1:-inf:inf inf:-inf:inf NaN:-inf:NaN -inf:-1:-inf -1:-1:0 -0:-1:1 0:-1:1 1:-1:2 inf:-1:inf NaN:-1:NaN -inf:0:-inf -1:0:-1 -0:0:-0 0:0:0 1:0:1 inf:0:inf NaN:0:NaN -inf:1:-inf -1:1:-2 -0:1:-1 0:1:-1 1:1:0 inf:1:inf NaN:1:NaN -inf:inf:-inf -1:inf:-inf -0:inf:-inf 0:inf:-inf 1:inf:-inf inf:inf:NaN NaN:inf:NaN -inf:NaN:NaN -1:NaN:NaN -0:NaN:NaN 0:NaN:NaN 1:NaN:NaN inf:NaN:NaN NaN:NaN:NaN /) { @args = split /:/,$_; for my $class (@classes) { $x = $class->new($args[0]); $y = $class->new($args[1]); $args[2] = '0' if $args[2] eq '-0'; # BigInt/Float hasn't got -0 my $r = $x->bsub($y); is($x->bstr(),$args[2],"x $class $args[0] - $args[1]"); is($r->bstr(),$args[2],"r $class $args[0] - $args[1]"); } } # * foreach (qw/ -inf:-inf:inf -1:-inf:inf -0:-inf:NaN 0:-inf:NaN 1:-inf:-inf inf:-inf:-inf NaN:-inf:NaN -inf:-1:inf -1:-1:1 -0:-1:0 0:-1:-0 1:-1:-1 inf:-1:-inf NaN:-1:NaN -inf:0:NaN -1:0:-0 -0:0:-0 0:0:0 1:0:0 inf:0:NaN NaN:0:NaN -inf:1:-inf -1:1:-1 -0:1:-0 0:1:0 1:1:1 inf:1:inf NaN:1:NaN -inf:inf:-inf -1:inf:-inf -0:inf:NaN 0:inf:NaN 1:inf:inf inf:inf:inf NaN:inf:NaN -inf:NaN:NaN -1:NaN:NaN -0:NaN:NaN 0:NaN:NaN 1:NaN:NaN inf:NaN:NaN NaN:NaN:NaN /) { @args = split /:/,$_; for my $class (@classes) { $x = $class->new($args[0]); $y = $class->new($args[1]); $args[2] = '0' if $args[2] eq '-0'; # BigInt/Float hasn't got -0 $args[2] = '0' if $args[2] eq '-0'; # BigInt hasn't got -0 my $r = $x->bmul($y); is($x->bstr(),$args[2],"x $class $args[0] * $args[1]"); is($r->bstr(),$args[2],"r $class $args[0] * $args[1]"); } } # / foreach (qw/ -inf:-inf:NaN -1:-inf:0 -0:-inf:0 0:-inf:-0 1:-inf:-0 inf:-inf:NaN NaN:-inf:NaN -inf:-1:inf -1:-1:1 -0:-1:0 0:-1:-0 1:-1:-1 inf:-1:-inf NaN:-1:NaN -inf:0:-inf -1:0:-inf -0:0:NaN 0:0:NaN 1:0:inf inf:0:inf NaN:0:NaN -inf:1:-inf -1:1:-1 -0:1:-0 0:1:0 1:1:1 inf:1:inf NaN:1:NaN -inf:inf:NaN -1:inf:-0 -0:inf:-0 0:inf:0 1:inf:0 inf:inf:NaN NaN:inf:NaN -inf:NaN:NaN -1:NaN:NaN -0:NaN:NaN 0:NaN:NaN 1:NaN:NaN inf:NaN:NaN NaN:NaN:NaN /) { @args = split /:/,$_; for my $class (@classes) { $x = $class->new($args[0]); $y = $class->new($args[1]); $args[2] = '0' if $args[2] eq '-0'; # BigInt/Float hasn't got -0 my $t = $x->copy(); my $tmod = $t->copy(); # bdiv in scalar context my $r = $x->bdiv($y); is($x->bstr(),$args[2],"x $class $args[0] / $args[1]"); is($r->bstr(),$args[2],"r $class $args[0] / $args[1]"); # bmod and bdiv in list context my ($d,$rem) = $t->bdiv($y); # bdiv in list context is($t->bstr(),$args[2],"t $class $args[0] / $args[1]"); is($d->bstr(),$args[2],"d $class $args[0] / $args[1]"); # bmod my $m = $tmod->bmod($y); # bmod() agrees with bdiv? is($m->bstr(),$rem->bstr(),"m $class $args[0] % $args[1]"); # bmod() return agrees with set value? is($tmod->bstr(),$m->bstr(),"o $class $args[0] % $args[1]"); } } ############################################################################# # overloaded comparisons # these are disabled for now, since Perl itself can't seem to make up it's # mind what NaN actually is, see [perl #33106]. # #foreach my $c (@classes) # { # my $x = $c->bnan(); # my $y = $c->bnan(); # test with two different objects, too # my $a = $c->bzero(); # # is ($x == $y, undef, 'NaN == NaN: undef'); # is ($x != $y, 1, 'NaN != NaN: 1'); # # is ($x == $x, undef, 'NaN == NaN: undef'); # is ($x != $x, 1, 'NaN != NaN: 1'); # # is ($a != $x, 1, '0 != NaN: 1'); # is ($a == $x, undef, '0 == NaN: undef'); # # is ($a < $x, undef, '0 < NaN: undef'); # is ($a <= $x, undef, '0 <= NaN: undef'); # is ($a >= $x, undef, '0 >= NaN: undef'); # is ($a > $x, undef, '0 > NaN: undef'); # } # All done.