| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
| downgrade.t | 16 use Math::BigInt upgrade => 'Math::BigFloat';
17 use Math::BigFloat downgrade => 'Math::BigInt', upgrade => 'Math::BigInt';
21 $class = "Math::BigInt";
22 $CL = "Math::BigInt::Calc";
23 $ECL = "Math::BigFloat";
26 ok (Math::BigFloat->downgrade(),'Math::BigInt')
[all...] |
| constant.t | 37 use Math::BigInt ':constant';
45 Math::BigInt->new('0x123456789012345678901234567890'));
48 Math::BigInt->new(
52 use Math::BigFloat ':constant';
55 # stress-test Math::BigFloat->import()
57 Math::BigFloat->import( qw/:constant/ );
60 Math::BigFloat->import( qw/:constant upgrade Math::BigRat/ );
63 Math::BigFloat->import( qw/upgrade Math::BigRat :constant/ )
[all...] |
| isa.t | 32 use Math::BigInt::Subclass;
33 use Math::BigFloat::Subclass;
34 use Math::BigInt;
35 use Math::BigFloat;
38 $class = "Math::BigInt::Subclass";
39 $CL = "Math::BigInt::Calc";
42 ok ($class->new(123)->isa('Math::BigInt'),1);
44 # ditto for plain Math::BigInt
45 ok (Math::BigInt->new(123)->isa('Math::BigInt'),1)
[all...] |
| mbimbf.t | 38 use Math::BigInt 1.70;
39 use Math::BigFloat 1.43;
43 $mbi = 'Math::BigInt';
44 $mbf = 'Math::BigFloat';
49 # garantied in the Math::BigInt/BigFloat (unless subclass chooses to support
52 Math::BigInt->round_mode('even'); # reset for tests
53 Math::BigFloat->round_mode('even'); # reset for tests
55 ok ($Math::BigInt::rnd_mode,'even');
56 ok ($Math::BigFloat::rnd_mode,'even');
67 $x = eval '$Math::BigInt::rnd_mode = "huhmbi";'
[all...] |
| req_mbfw.t | 35 require Math::BigFloat; my $x = Math::BigFloat->new(1); ++$x; ok ($x,2);
37 ok (Math::BigFloat->config()->{with}, 'Math::BigInt::Calc' );
40 Math::BigFloat->import ( with => 'Math::BigInt::Subclass' );
43 ok (Math::BigFloat->config()->{with}, 'Math::BigInt::Calc' );
|
| calling.t | 42 package Math::BigInt::Test;
44 use Math::BigInt;
46 @ISA = qw/Math::BigInt/; # child of MBI
49 package Math::BigFloat::Test;
51 use Math::BigFloat;
53 @ISA = qw/Math::BigFloat/; # child of MBI
58 use Math::BigInt;
59 use Math::BigFloat;
83 Math::BigInt Math::BigFloat Math::BigInt::Test Math::BigFloat::Test/
[all...] |
| bare_mif.t | 35 print "# ",Math::BigInt->config()->{lib},"\n";
37 use Math::BigInt lib => 'BareCalc';
38 use Math::BigFloat lib => 'BareCalc';
42 $mbi = 'Math::BigInt';
43 $mbf = 'Math::BigFloat';
45 ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
|
| use_lib2.t | 3 # see if using Math::BigInt and Math::BigFloat works together nicely.
35 use Math::BigInt;
36 use Math::BigFloat lib => 'BareCalc';
38 ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
40 ok (Math::BigFloat->new(123)->badd(123),246);
|
| use_lib3.t | 3 # see if using Math::BigInt and Math::BigFloat works together nicely.
35 use Math::BigInt lib => 'BareCalc';
36 use Math::BigFloat;
38 ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
40 ok (Math::BigFloat->new(123)->badd(123),246);
|
| use_lib4.t | 3 # see if using Math::BigInt and Math::BigFloat works together nicely.
36 use Math::BigInt lib => 'BareCalc';
37 use Math::BigFloat lib => 'Calc';
39 ok (Math::BigInt->config()->{lib},'Math::BigInt::Calc');
41 ok (Math::BigFloat->new(123)->badd(123),246);
|
| _e_math.t | 3 # test the helper math routines in Math::BigFloat
34 use Math::BigFloat;
39 my $a = Math::BigInt::Calc->_new("123");
40 my $b = Math::BigInt::Calc->_new("321");
42 my ($x, $xs) = Math::BigFloat::_e_add($a,$b,'+','+');
71 $a = Math::BigInt::Calc->_new("123");
72 $b = Math::BigInt::Calc->_new("321");
73 ($x, $xs) = Math::BigFloat::_e_sub($b,$a,'+','+');
86 my $aa = Math::BigInt::Calc->_new($a)
[all...] |
| fallback.t | 39 use Math::BigInt;
40 use Math::BigFloat;
42 my $bi = Math::BigInt->new(1);
49 my $bf = Math::BigInt->new(1);
|
| upgrade.t | 33 use Math::BigInt upgrade => 'Math::BigFloat';
34 use Math::BigFloat;
38 $class = "Math::BigInt";
39 $CL = "Math::BigInt::Calc";
40 $ECL = "Math::BigFloat";
42 ok (Math::BigInt->upgrade(),'Math::BigFloat');
43 ok (Math::BigInt->downgrade()||'','');
|
| use_lib1.t | 3 # see if using Math::BigInt and Math::BigFloat works together nicely.
35 use Math::BigFloat lib => 'BareCalc';
37 ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc');
39 ok (Math::BigFloat->new(123)->badd(123),246);
|
| use_mbfw.t | 42 use Math::BigFloat with => 'Math::BigInt::Subclass', lib => 'BareCalc';
44 ok (Math::BigFloat->config()->{with}, 'Math::BigInt::BareCalc' );
46 # ok ($Math::BigInt::Subclass::lib, 'BareCalc' );
49 ok (Math::BigInt->config->{lib}, 'Math::BigInt::BareCalc' );
|
| upgradef.t | 34 package Math::BigFloat::Test;
36 use Math::BigFloat;
39 @ISA = qw/Exporter Math::BigFloat/;
46 return if $class =~ /^Math::Big(Int|Float)/; # we aren't one of these
63 # use Math::BigInt upgrade => 'Math::BigFloat';
64 use Math::BigFloat upgrade => 'Math::BigFloat::Test';
68 $class = "Math::BigFloat";
69 $CL = "Math::BigInt::Calc"
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/bignum/t/ |
| option_a.t | 18 ok (Math::BigInt->accuracy(),12);
19 ok (Math::BigFloat->accuracy(),12);
23 ok (Math::BigInt->accuracy(),23);
24 ok (Math::BigFloat->accuracy(),23);
|
| option_p.t | 18 ok (Math::BigInt->precision(),12);
19 ok (Math::BigFloat->precision(),12);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigRat/ |
| Test.pm | 1 package Math::BigRat::Test;
7 use Math::BigRat;
8 use Math::BigFloat;
12 @ISA = qw(Math::BigRat Exporter);
22 my $class = 'Math::BigRat::Test';
33 # my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
43 *objectify = \&Math::BigInt::objectify;
44 *AUTOLOAD = \&Math::BigRat::AUTOLOAD;
48 *{'b' . $method} = \&{'Math::BigRat::b' . $method};
57 Math::BigFloat->round_mode($round_mode)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigInt/ |
| Subclass.pm | 3 package Math::BigInt::Subclass;
9 use Math::BigInt (1.64);
15 @ISA = qw(Exporter Math::BigInt);
36 my $self = Math::BigInt->new($value,$a,$p,$round_mode);
44 Math::BigInt::bgcd(@_);
49 Math::BigInt::blcm(@_);
54 *objectify = \&Math::BigInt::objectify;
58 *bneg = \&Math::BigInt::bneg;
59 *babs = \&Math::BigInt::babs;
60 *bnan = \&Math::BigInt::bnan
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/ |
| Trace.pm | 3 package Math::BigInt::Trace;
9 use Math::BigInt;
13 @ISA = qw(Exporter Math::BigInt);
32 my $self = Math::BigInt->new($value,$a,$p,$round_mode);
42 Math::BigInt::import($self,@_); # need it for subclasses
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigFloat/ |
| Subclass.pm | 3 package Math::BigFloat::Subclass;
9 use Math::BigFloat(1.38);
13 @ISA = qw(Exporter Math::BigFloat);
33 my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
41 *objectify = \&Math::BigInt::objectify;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
| big_ap.t | 14 use Math::BigInt;
15 use Math::BigFloat;
16 use Math::BigRat;
18 my $r = 'Math::BigRat';
22 my $proper_int = Math::BigInt->new('12345678901234567890');
23 my $proper_float = Math::BigFloat->new('12345678901234567890');
28 Math::BigInt->accuracy(3);
29 Math::BigFloat->accuracy(5);
58 $x = $r->new('12345678901234567890'); $y = Math::BigRat->new('2');
65 $x = $r->new("$proper"); $y = Math::BigRat->new('1')
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| bigrat.pm | 35 Math::BigInt->$name($_[0]);
36 Math::BigFloat->$name($_[0]);
37 return Math::BigRat->$name($_[0]);
39 return Math::BigInt->$name();
56 # $Math::BigInt::upgrade = $_[0];
57 # $Math::BigFloat::upgrade = $_[0];
59 return $Math::BigInt::upgrade;
69 my $lib = 'Calc'; my $upgrade = 'Math::BigFloat';
110 require Math::BigInt::Trace; $class = 'Math::BigInt::Trace'
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigFloat/ |
| Trace.pm | 3 package Math::BigFloat::Trace;
9 use Math::BigFloat;
13 @ISA = qw(Exporter Math::BigFloat);
32 my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
54 Math::BigFloat->import(@a); # need it for subclasses
|
