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 /
bignum /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
big_e_pi.t
395
B
-r--r--r--
2014-12-27 11:48
bigexp.t
527
B
-r--r--r--
2014-12-27 11:48
bigint.t
2.08
KB
-r--r--r--
2014-12-27 11:48
bignum.t
1.89
KB
-r--r--r--
2014-12-27 11:48
bigrat.t
1.71
KB
-r--r--r--
2014-12-27 11:48
bii_e_pi.t
323
B
-r--r--r--
2014-12-27 11:48
biinfnan.t
180
B
-r--r--r--
2014-12-27 11:48
bir_e_pi.t
483
B
-r--r--r--
2014-12-27 11:48
bn_lite.t
458
B
-r--r--r--
2014-12-27 11:49
bninfnan.t
180
B
-r--r--r--
2014-12-27 11:48
br_lite.t
461
B
-r--r--r--
2014-12-27 11:49
brinfnan.t
180
B
-r--r--r--
2014-12-27 11:48
in_effect.t
749
B
-r--r--r--
2014-12-27 11:48
infnan.inc
1.34
KB
-r--r--r--
2014-12-27 11:48
option_a.t
391
B
-r--r--r--
2014-12-27 11:48
option_l.t
1.18
KB
-r--r--r--
2014-12-27 11:49
option_p.t
307
B
-r--r--r--
2014-12-27 11:48
overrides.t
3.57
KB
-r--r--r--
2014-12-27 11:48
ratopt_a.t
462
B
-r--r--r--
2014-12-27 11:48
scope_f.t
859
B
-r--r--r--
2014-12-27 11:48
scope_i.t
891
B
-r--r--r--
2014-12-27 11:48
scope_r.t
859
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -w ############################################################################### use strict; use Test::More tests => 40; use bigrat qw/oct hex/; ############################################################################### # general tests my $x = 5; like (ref($x), qr/^Math::BigInt/); # :constant # todo: is (2 + 2.5,4.5); # should still work # todo: $x = 2 + 3.5; is (ref($x),'Math::BigFloat'); $x = 2 ** 255; like (ref($x), qr/^Math::BigInt/); # see if Math::BigRat constant works is (1/3, '1/3'); is (1/4+1/3,'7/12'); is (5/7+3/7,'8/7'); is (3/7+1,'10/7'); is (3/7+1.1,'107/70'); is (3/7+3/7,'6/7'); is (3/7-1,'-4/7'); is (3/7-1.1,'-47/70'); is (3/7-2/7,'1/7'); # fails ? # is (1+3/7,'10/7'); is (1.1+3/7,'107/70'); is (3/7*5/7,'15/49'); is (3/7 / (5/7),'3/5'); is (3/7 / 1,'3/7'); is (3/7 / 1.5,'2/7'); ############################################################################### # accuracy and precision is (bigrat->accuracy(), undef); is (bigrat->accuracy(12),12); is (bigrat->accuracy(),12); is (bigrat->precision(), undef); is (bigrat->precision(12),12); is (bigrat->precision(),12); is (bigrat->round_mode(),'even'); is (bigrat->round_mode('odd'),'odd'); is (bigrat->round_mode(),'odd'); ############################################################################### # hex() and oct() my $c = 'Math::BigInt'; is (ref(hex(1)), $c); is (ref(hex(0x1)), $c); is (ref(hex("af")), $c); is (hex("af"), Math::BigInt->new(0xaf)); is (ref(hex("0x1")), $c); is (ref(oct("0x1")), $c); is (ref(oct("01")), $c); is (ref(oct("0b01")), $c); is (ref(oct("1")), $c); is (ref(oct(" 1")), $c); is (ref(oct(" 0x1")), $c); is (ref(oct(0x1)), $c); is (ref(oct(01)), $c); is (ref(oct(0b01)), $c); is (ref(oct(1)), $c);