[perl5.git] / cpan / Math-BigRat / t / bigrat.t

#!/usr/bin/perl -w

use strict;
use Test::More tests => 200;

# basic testing of Math::BigRat

use Math::BigRat;
use Math::BigInt;
use Math::BigFloat;

# shortcuts
my $cr = 'Math::BigRat';		
my $mbi = 'Math::BigInt';
my $mbf = 'Math::BigFloat';

my ($x,$y,$z);

$x = Math::BigRat->new(1234); 		is ($x,1234);
isa_ok ($x, 'Math::BigRat');
is ($x->isa('Math::BigFloat'), 0);
is ($x->isa('Math::BigInt'), 0);

##############################################################################
# new and bnorm()

foreach my $func (qw/new bnorm/)
  {
  $x = $cr->$func(1234); 	is ($x,1234);

  $x = $cr->$func('1234/1'); 	is ($x,1234);
  $x = $cr->$func('1234/2'); 	is ($x,617);

  $x = $cr->$func('100/1.0');	is ($x,100);
  $x = $cr->$func('10.0/1.0');	is ($x,10);
  $x = $cr->$func('0.1/10');	is ($x,'1/100');
  $x = $cr->$func('0.1/0.1');	is ($x,'1');
  $x = $cr->$func('1e2/10');	is ($x,10);
  $x = $cr->$func('5/1e2');	is ($x,'1/20');
  $x = $cr->$func('1e2/1e1');	is ($x,10);
  $x = $cr->$func('1 / 3');	is ($x,'1/3');
  $x = $cr->$func('-1 / 3');	is ($x,'-1/3');
  $x = $cr->$func('NaN');	is ($x,'NaN');
  $x = $cr->$func('inf');	is ($x,'inf');
  $x = $cr->$func('-inf');	is ($x,'-inf');
  $x = $cr->$func('1/');	is ($x,'NaN');

  $x = $cr->$func("0x7e");	is ($x,126);

  # input ala '1+1/3' isn't parsed ok yet
  $x = $cr->$func('1+1/3');	is ($x,'NaN');
  
  $x = $cr->$func('1/1.2');	is ($x,'5/6');
  $x = $cr->$func('1.3/1.2');	is ($x,'13/12');
  $x = $cr->$func('1.2/1');	is ($x,'6/5');

  ############################################################################
  # other classes as input

  $x = $cr->$func($mbi->new(1231));	is ($x,'1231');
  $x = $cr->$func($mbf->new(1232));	is ($x,'1232');
  $x = $cr->$func($mbf->new(1232.3));	is ($x,'12323/10');
  }

my $n = 'numerator';
my $d = 'denominator';

$x =  $cr->new('-0'); is ($x,'0'); 	is ($x->$n(), '0'); is ($x->$d(),'1');
$x =  $cr->new('NaN'); is ($x,'NaN');	is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
$x =  $cr->new('-NaN'); is ($x,'NaN');	is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
$x =  $cr->new('-1r4'); is ($x,'NaN');	is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');

$x =  $cr->new('+inf'); is ($x,'inf');	is ($x->$n(), 'inf'); is ($x->$d(),'1');
$x =  $cr->new('-inf'); is ($x,'-inf'); is ($x->$n(), '-inf'); is ($x->$d(),'1');
$x =  $cr->new('123a4'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');

# wrong inputs
$x =  $cr->new('1e2e2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
$x =  $cr->new('1+2+2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
# failed due to BigFloat bug
$x =  $cr->new('1.2.2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');

is ($cr->new('123a4'),'NaN');
is ($cr->new('123e4'),'1230000');
is ($cr->new('-NaN'),'NaN');
is ($cr->new('NaN'),'NaN');
is ($cr->new('+inf'),'inf');
is ($cr->new('-inf'),'-inf');

##############################################################################
# two Bigints

is ($cr->new($mbi->new(3),$mbi->new(7))->badd(1),'10/7');
is ($cr->new($mbi->new(-13),$mbi->new(7)),'-13/7');
is ($cr->new($mbi->new(13),$mbi->new(-7)),'-13/7');
is ($cr->new($mbi->new(-13),$mbi->new(-7)),'13/7');

##############################################################################
# mixed arguments

is ($cr->new('3/7')->badd(1),'10/7');
is ($cr->new('3/10')->badd(1.1),'7/5');
is ($cr->new('3/7')->badd($mbi->new(1)),'10/7');
is ($cr->new('3/10')->badd($mbf->new('1.1')),'7/5');

is ($cr->new('3/7')->bsub(1),'-4/7');
is ($cr->new('3/10')->bsub(1.1),'-4/5');
is ($cr->new('3/7')->bsub($mbi->new(1)),'-4/7');
is ($cr->new('3/10')->bsub($mbf->new('1.1')),'-4/5');

is ($cr->new('3/7')->bmul(1),'3/7');
is ($cr->new('3/10')->bmul(1.1),'33/100');
is ($cr->new('3/7')->bmul($mbi->new(1)),'3/7');
is ($cr->new('3/10')->bmul($mbf->new('1.1')),'33/100');

is ($cr->new('3/7')->bdiv(1),'3/7');
is ($cr->new('3/10')->bdiv(1.1),'3/11');
is ($cr->new('3/7')->bdiv($mbi->new(1)),'3/7');
is ($cr->new('3/10')->bdiv($mbf->new('1.1')),'3/11');

##############################################################################
$x = $cr->new('1/4'); $y = $cr->new('1/3');

is ($x + $y, '7/12');
is ($x * $y, '1/12');
is ($x / $y, '3/4');

$x = $cr->new('7/5'); $x *= '3/2'; 
is ($x,'21/10');
$x -= '0.1';
is ($x,'2');	# not 21/10

$x = $cr->new('2/3');		$y = $cr->new('3/2');
is ($x > $y,'');
is ($x < $y,1);
is ($x == $y,'');

$x = $cr->new('-2/3');		$y = $cr->new('3/2');
is ($x > $y,'');
is ($x < $y,'1');
is ($x == $y,'');

$x = $cr->new('-2/3');		$y = $cr->new('-2/3');
is ($x > $y,'');
is ($x < $y,'');
is ($x == $y,'1');

$x = $cr->new('-2/3');		$y = $cr->new('-1/3');
is ($x > $y,'');
is ($x < $y,'1');
is ($x == $y,'');

$x = $cr->new('-124');		$y = $cr->new('-122');
is ($x->bacmp($y),1);

$x = $cr->new('-124');		$y = $cr->new('-122');
is ($x->bcmp($y),-1);

$x = $cr->new('3/7');		$y = $cr->new('5/7');
is ($x+$y,'8/7');

$x = $cr->new('3/7');		$y = $cr->new('5/7');
is ($x*$y,'15/49');

$x = $cr->new('3/5');		$y = $cr->new('5/7');
is ($x*$y,'3/7');

$x = $cr->new('3/5');		$y = $cr->new('5/7');
is ($x/$y,'21/25');

$x = $cr->new('7/4');		$y = $cr->new('1');
is ($x % $y,'3/4');

$x = $cr->new('7/4');		$y = $cr->new('5/13');
is ($x % $y,'11/52');

$x = $cr->new('7/4');		$y = $cr->new('5/9');
is ($x % $y,'1/12');

$x = $cr->new('-144/9')->bsqrt();	is ($x,'NaN');
$x = $cr->new('144/9')->bsqrt();	is ($x,'4');
$x = $cr->new('3/4')->bsqrt();		is ($x,
  '1732050807568877293527446341505872366943/'
 .'2000000000000000000000000000000000000000');

##############################################################################
# bpow

$x = $cr->new('2/1');  $z = $x->bpow('3/1'); is ($x,'8');
$x = $cr->new('1/2');  $z = $x->bpow('3/1'); is ($x,'1/8');
$x = $cr->new('1/3');  $z = $x->bpow('4/1'); is ($x,'1/81');
$x = $cr->new('2/3');  $z = $x->bpow('4/1'); is ($x,'16/81');

$x = $cr->new('2/3');  $z = $x->bpow('5/3'); 
is ($x, '31797617848703662994667839220546583581/62500000000000000000000000000000000000');

##############################################################################
# bfac

$x = $cr->new('1');  $x->bfac(); is ($x,'1');
for (my $i = 0; $i < 8; $i++)
  {
  $x = $cr->new("$i/1")->bfac(); is ($x,$mbi->new($i)->bfac());
  }

# test for $self->bnan() vs. $x->bnan();
$x = $cr->new('-1'); $x->bfac(); is ($x,'NaN');

##############################################################################
# binc/bdec

$x =  $cr->new('3/2'); is ($x->binc(),'5/2');
$x =  $cr->new('15/6'); is ($x->bdec(),'3/2');

##############################################################################
# bfloor/bceil

$x = $cr->new('-7/7'); is ($x->$n(), '-1'); is ($x->$d(), '1');
$x = $cr->new('-7/7')->bfloor(); is ($x->$n(), '-1'); is ($x->$d(), '1');

##############################################################################
# bsstr

$x = $cr->new('7/5')->bsstr(); is ($x,'7/5');
$x = $cr->new('-7/5')->bsstr(); is ($x,'-7/5');

##############################################################################
# numify()

my @array = qw/1 2 3 4 5 6 7 8 9/;
$x = $cr->new('8/8'); is ($array[$x],2);
$x = $cr->new('16/8'); is ($array[$x],3);
$x = $cr->new('17/8'); is ($array[$x],3);
$x = $cr->new('33/8'); is ($array[$x],5);
$x = $cr->new('-33/8'); is ($array[$x],6);
$x = $cr->new('-8/1'); is ($array[$x],2);	# -8 => 2

$x = $cr->new('33/8'); is ($x->numify() * 1000, 4125);
$x = $cr->new('-33/8'); is ($x->numify() * 1000, -4125);
$x = $cr->new('inf'); is ($x->numify(), 'inf');
$x = $cr->new('-inf'); is ($x->numify(), '-inf');
$x = $cr->new('NaN'); is ($x->numify(), 'NaN');

$x = $cr->new('4/3'); is ($x->numify(), 4/3);

##############################################################################
# as_hex(), as_bin(), as_oct()

$x = $cr->new('8/8');
is ($x->as_hex(), '0x1'); is ($x->as_bin(), '0b1'); is ($x->as_oct(), '01');
$x = $cr->new('80/8');
is ($x->as_hex(), '0xa'); is ($x->as_bin(), '0b1010'); is ($x->as_oct(), '012');

##############################################################################
# broot(), blog(), bmodpow() and bmodinv()

$x = $cr->new(2) ** 32;
$y = $cr->new(4);
$z = $cr->new(3);

is ($x->copy()->broot($y), 2 ** 8);
is (ref($x->copy()->broot($y)), $cr);

is ($x->copy()->bmodpow($y,$z), 1);
is (ref($x->copy()->bmodpow($y,$z)), $cr);

$x = $cr->new(8);
$y = $cr->new(5033);
$z = $cr->new(4404);

is ($x->copy()->bmodinv($y), $z);
is (ref($x->copy()->bmodinv($y)), $cr);

# square root with exact result
$x = $cr->new('1.44');
is ($x->copy()->broot(2), '6/5');
is (ref($x->copy()->broot(2)), $cr);

# log with exact result
$x = $cr->new('256.1');
is ($x->copy()->blog(2), '8000563442710106079310294693803606983661/1000000000000000000000000000000000000000');
is (ref($x->copy()->blog(2)), $cr);

$x = $cr->new(144);
is ($x->copy()->broot('2'), 12, 'v/144 = 12');

$x = $cr->new(12*12*12);
is ($x->copy()->broot('3'), 12, '(12*12*12) ** 1/3 = 12');

##############################################################################
# from_hex(), from_bin(), from_oct()

$x = Math::BigRat->from_hex('0x100');
is ($x, '256', 'from_hex');
$x = $cr->from_hex('0x100');
is ($x, '256', 'from_hex');

$x = Math::BigRat->from_bin('0b100');
is ($x, '4', 'from_bin');
$x = $cr->from_bin('0b100');
is ($x, '4', 'from_bin');

$x = Math::BigRat->from_oct('0100');
is ($x, '64', 'from_oct');
$x = $cr->from_oct('0100');
is ($x, '64', 'from_oct');

##############################################################################
# as_float()

$x = Math::BigRat->new('1/2'); my $f = $x->as_float();

is ($x, '1/2', '$x unmodified');
is ($f, '0.5', 'as_float(0.5)');

$x = Math::BigRat->new('2/3'); $f = $x->as_float(5);

is ($x, '2/3', '$x unmodified');
is ($f, '0.66667', 'as_float(2/3,5)');

##############################################################################
# done

1;
Commit	Line	Data
184f15d5 JH	1	#!/usr/bin/perl -w
	2
	3	use strict;
c32198f6	4	use Test::More tests => 200;
184f15d5	5
12fc2493	6	# basic testing of Math::BigRat
184f15d5 JH	7
184f15d5 JH	8	use Math::BigRat;
6de7f0cc JH	9	use Math::BigInt;
	10	use Math::BigFloat;
	11
	12	# shortcuts
	13	my $cr = 'Math::BigRat';
	14	my $mbi = 'Math::BigInt';
	15	my $mbf = 'Math::BigFloat';
184f15d5 JH	16
	17	my ($x,$y,$z);
	18
c32198f6 FR	19	$x = Math::BigRat->new(1234); is ($x,1234);
	20	isa_ok ($x, 'Math::BigRat');
	21	is ($x->isa('Math::BigFloat'), 0);
	22	is ($x->isa('Math::BigInt'), 0);
8f675a64 JH	23
8f675a64 JH	24	##############################################################################
6de7f0cc	25	# new and bnorm()
8f675a64	26
6de7f0cc JH	27	foreach my $func (qw/new bnorm/)
6de7f0cc JH	28	{
c32198f6 FR	29	$x = $cr->$func(1234); is ($x,1234);
	30
	31	$x = $cr->$func('1234/1'); is ($x,1234);
	32	$x = $cr->$func('1234/2'); is ($x,617);
	33
	34	$x = $cr->$func('100/1.0'); is ($x,100);
	35	$x = $cr->$func('10.0/1.0'); is ($x,10);
	36	$x = $cr->$func('0.1/10'); is ($x,'1/100');
	37	$x = $cr->$func('0.1/0.1'); is ($x,'1');
	38	$x = $cr->$func('1e2/10'); is ($x,10);
	39	$x = $cr->$func('5/1e2'); is ($x,'1/20');
	40	$x = $cr->$func('1e2/1e1'); is ($x,10);
	41	$x = $cr->$func('1 / 3'); is ($x,'1/3');
	42	$x = $cr->$func('-1 / 3'); is ($x,'-1/3');
	43	$x = $cr->$func('NaN'); is ($x,'NaN');
	44	$x = $cr->$func('inf'); is ($x,'inf');
	45	$x = $cr->$func('-inf'); is ($x,'-inf');
	46	$x = $cr->$func('1/'); is ($x,'NaN');
	47
	48	$x = $cr->$func("0x7e"); is ($x,126);
c6c613ed	49
6de7f0cc	50	# input ala '1+1/3' isn't parsed ok yet
c32198f6	51	$x = $cr->$func('1+1/3'); is ($x,'NaN');
990fb837	52
c32198f6 FR	53	$x = $cr->$func('1/1.2'); is ($x,'5/6');
	54	$x = $cr->$func('1.3/1.2'); is ($x,'13/12');
	55	$x = $cr->$func('1.2/1'); is ($x,'6/5');
6de7f0cc JH	56
	57	############################################################################
	58	# other classes as input
	59
c32198f6 FR	60	$x = $cr->$func($mbi->new(1231)); is ($x,'1231');
	61	$x = $cr->$func($mbf->new(1232)); is ($x,'1232');
	62	$x = $cr->$func($mbf->new(1232.3)); is ($x,'12323/10');
6de7f0cc	63	}
9b924220	64
12fc2493 AMS	65	my $n = 'numerator';
12fc2493 AMS	66	my $d = 'denominator';
a4e2b1c6	67
c32198f6 FR	68	$x = $cr->new('-0'); is ($x,'0'); is ($x->$n(), '0'); is ($x->$d(),'1');
	69	$x = $cr->new('NaN'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
	70	$x = $cr->new('-NaN'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
	71	$x = $cr->new('-1r4'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
12fc2493	72
c32198f6 FR	73	$x = $cr->new('+inf'); is ($x,'inf'); is ($x->$n(), 'inf'); is ($x->$d(),'1');
	74	$x = $cr->new('-inf'); is ($x,'-inf'); is ($x->$n(), '-inf'); is ($x->$d(),'1');
	75	$x = $cr->new('123a4'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
a4e2b1c6 JH	76
a4e2b1c6 JH	77	# wrong inputs
c32198f6 FR	78	$x = $cr->new('1e2e2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
c32198f6 FR	79	$x = $cr->new('1+2+2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
12fc2493	80	# failed due to BigFloat bug
c32198f6	81	$x = $cr->new('1.2.2'); is ($x,'NaN'); is ($x->$n(), 'NaN'); is ($x->$d(),'NaN');
a4e2b1c6	82
c32198f6 FR	83	is ($cr->new('123a4'),'NaN');
	84	is ($cr->new('123e4'),'1230000');
	85	is ($cr->new('-NaN'),'NaN');
	86	is ($cr->new('NaN'),'NaN');
	87	is ($cr->new('+inf'),'inf');
	88	is ($cr->new('-inf'),'-inf');
8f675a64 JH	89
8f675a64 JH	90	##############################################################################
b68b7ab1 T	91	# two Bigints
b68b7ab1 T	92
c32198f6 FR	93	is ($cr->new($mbi->new(3),$mbi->new(7))->badd(1),'10/7');
	94	is ($cr->new($mbi->new(-13),$mbi->new(7)),'-13/7');
	95	is ($cr->new($mbi->new(13),$mbi->new(-7)),'-13/7');
	96	is ($cr->new($mbi->new(-13),$mbi->new(-7)),'13/7');
b68b7ab1 T	97
b68b7ab1 T	98	##############################################################################
8f675a64 JH	99	# mixed arguments
8f675a64 JH	100
c32198f6 FR	101	is ($cr->new('3/7')->badd(1),'10/7');
	102	is ($cr->new('3/10')->badd(1.1),'7/5');
	103	is ($cr->new('3/7')->badd($mbi->new(1)),'10/7');
	104	is ($cr->new('3/10')->badd($mbf->new('1.1')),'7/5');
8f675a64	105
c32198f6 FR	106	is ($cr->new('3/7')->bsub(1),'-4/7');
	107	is ($cr->new('3/10')->bsub(1.1),'-4/5');
	108	is ($cr->new('3/7')->bsub($mbi->new(1)),'-4/7');
	109	is ($cr->new('3/10')->bsub($mbf->new('1.1')),'-4/5');
8f675a64	110
c32198f6 FR	111	is ($cr->new('3/7')->bmul(1),'3/7');
	112	is ($cr->new('3/10')->bmul(1.1),'33/100');
	113	is ($cr->new('3/7')->bmul($mbi->new(1)),'3/7');
	114	is ($cr->new('3/10')->bmul($mbf->new('1.1')),'33/100');
8f675a64	115
c32198f6 FR	116	is ($cr->new('3/7')->bdiv(1),'3/7');
	117	is ($cr->new('3/10')->bdiv(1.1),'3/11');
	118	is ($cr->new('3/7')->bdiv($mbi->new(1)),'3/7');
	119	is ($cr->new('3/10')->bdiv($mbf->new('1.1')),'3/11');
8f675a64 JH	120
8f675a64 JH	121	##############################################################################
a4e2b1c6	122	$x = $cr->new('1/4'); $y = $cr->new('1/3');
9b924220	123
c32198f6 FR	124	is ($x + $y, '7/12');
	125	is ($x * $y, '1/12');
	126	is ($x / $y, '3/4');
184f15d5	127
a4e2b1c6	128	$x = $cr->new('7/5'); $x *= '3/2';
c32198f6	129	is ($x,'21/10');
184f15d5	130	$x -= '0.1';
c32198f6	131	is ($x,'2'); # not 21/10
184f15d5	132
a4e2b1c6	133	$x = $cr->new('2/3'); $y = $cr->new('3/2');
c32198f6 FR	134	is ($x > $y,'');
	135	is ($x < $y,1);
	136	is ($x == $y,'');
184f15d5	137
a4e2b1c6	138	$x = $cr->new('-2/3'); $y = $cr->new('3/2');
c32198f6 FR	139	is ($x > $y,'');
	140	is ($x < $y,'1');
	141	is ($x == $y,'');
184f15d5	142
a4e2b1c6	143	$x = $cr->new('-2/3'); $y = $cr->new('-2/3');
c32198f6 FR	144	is ($x > $y,'');
	145	is ($x < $y,'');
	146	is ($x == $y,'1');
184f15d5	147
a4e2b1c6	148	$x = $cr->new('-2/3'); $y = $cr->new('-1/3');
c32198f6 FR	149	is ($x > $y,'');
	150	is ($x < $y,'1');
	151	is ($x == $y,'');
184f15d5	152
a4e2b1c6	153	$x = $cr->new('-124'); $y = $cr->new('-122');
c32198f6	154	is ($x->bacmp($y),1);
184f15d5	155
a4e2b1c6	156	$x = $cr->new('-124'); $y = $cr->new('-122');
c32198f6	157	is ($x->bcmp($y),-1);
184f15d5	158
a4e2b1c6	159	$x = $cr->new('3/7'); $y = $cr->new('5/7');
c32198f6	160	is ($x+$y,'8/7');
8f675a64	161
a4e2b1c6	162	$x = $cr->new('3/7'); $y = $cr->new('5/7');
c32198f6	163	is ($x*$y,'15/49');
8f675a64	164
a4e2b1c6	165	$x = $cr->new('3/5'); $y = $cr->new('5/7');
c32198f6	166	is ($x*$y,'3/7');
8f675a64	167
a4e2b1c6	168	$x = $cr->new('3/5'); $y = $cr->new('5/7');
c32198f6	169	is ($x/$y,'21/25');
8f675a64	170
93c87d9d	171	$x = $cr->new('7/4'); $y = $cr->new('1');
c32198f6	172	is ($x % $y,'3/4');
93c87d9d T	173
93c87d9d T	174	$x = $cr->new('7/4'); $y = $cr->new('5/13');
c32198f6	175	is ($x % $y,'11/52');
93c87d9d T	176
93c87d9d T	177	$x = $cr->new('7/4'); $y = $cr->new('5/9');
c32198f6	178	is ($x % $y,'1/12');
93c87d9d	179
c32198f6 FR	180	$x = $cr->new('-144/9')->bsqrt(); is ($x,'NaN');
	181	$x = $cr->new('144/9')->bsqrt(); is ($x,'4');
	182	$x = $cr->new('3/4')->bsqrt(); is ($x,
93c87d9d T	183	'1732050807568877293527446341505872366943/'
93c87d9d T	184	.'2000000000000000000000000000000000000000');
184f15d5	185
a4e2b1c6 JH	186	##############################################################################
	187	# bpow
	188
c32198f6 FR	189	$x = $cr->new('2/1'); $z = $x->bpow('3/1'); is ($x,'8');
	190	$x = $cr->new('1/2'); $z = $x->bpow('3/1'); is ($x,'1/8');
	191	$x = $cr->new('1/3'); $z = $x->bpow('4/1'); is ($x,'1/81');
	192	$x = $cr->new('2/3'); $z = $x->bpow('4/1'); is ($x,'16/81');
7d341013	193
4de3d162	194	$x = $cr->new('2/3'); $z = $x->bpow('5/3');
c32198f6	195	is ($x, '31797617848703662994667839220546583581/62500000000000000000000000000000000000');
a4e2b1c6 JH	196
	197	##############################################################################
	198	# bfac
	199
c32198f6	200	$x = $cr->new('1'); $x->bfac(); is ($x,'1');
a4e2b1c6 JH	201	for (my $i = 0; $i < 8; $i++)
a4e2b1c6 JH	202	{
c32198f6	203	$x = $cr->new("$i/1")->bfac(); is ($x,$mbi->new($i)->bfac());
a4e2b1c6 JH	204	}
	205
	206	# test for $self->bnan() vs. $x->bnan();
c32198f6	207	$x = $cr->new('-1'); $x->bfac(); is ($x,'NaN');
a4e2b1c6 JH	208
	209	##############################################################################
	210	# binc/bdec
	211
c32198f6 FR	212	$x = $cr->new('3/2'); is ($x->binc(),'5/2');
c32198f6 FR	213	$x = $cr->new('15/6'); is ($x->bdec(),'3/2');
a4e2b1c6 JH	214
	215	##############################################################################
	216	# bfloor/bceil
	217
c32198f6 FR	218	$x = $cr->new('-7/7'); is ($x->$n(), '-1'); is ($x->$d(), '1');
c32198f6 FR	219	$x = $cr->new('-7/7')->bfloor(); is ($x->$n(), '-1'); is ($x->$d(), '1');
a4e2b1c6 JH	220
a4e2b1c6 JH	221	##############################################################################
7d341013 T	222	# bsstr
7d341013 T	223
c32198f6 FR	224	$x = $cr->new('7/5')->bsstr(); is ($x,'7/5');
c32198f6 FR	225	$x = $cr->new('-7/5')->bsstr(); is ($x,'-7/5');
7d341013 T	226
	227	##############################################################################
	228	# numify()
	229
	230	my @array = qw/1 2 3 4 5 6 7 8 9/;
c32198f6 FR	231	$x = $cr->new('8/8'); is ($array[$x],2);
	232	$x = $cr->new('16/8'); is ($array[$x],3);
	233	$x = $cr->new('17/8'); is ($array[$x],3);
	234	$x = $cr->new('33/8'); is ($array[$x],5);
	235	$x = $cr->new('-33/8'); is ($array[$x],6);
	236	$x = $cr->new('-8/1'); is ($array[$x],2); # -8 => 2
7d341013	237
c32198f6 FR	238	$x = $cr->new('33/8'); is ($x->numify() * 1000, 4125);
	239	$x = $cr->new('-33/8'); is ($x->numify() * 1000, -4125);
	240	$x = $cr->new('inf'); is ($x->numify(), 'inf');
	241	$x = $cr->new('-inf'); is ($x->numify(), '-inf');
	242	$x = $cr->new('NaN'); is ($x->numify(), 'NaN');
7d341013	243
c32198f6	244	$x = $cr->new('4/3'); is ($x->numify(), 4/3);
93c87d9d	245
7d341013	246	##############################################################################
b8884ce4	247	# as_hex(), as_bin(), as_oct()
12fc2493 AMS	248
12fc2493 AMS	249	$x = $cr->new('8/8');
c32198f6	250	is ($x->as_hex(), '0x1'); is ($x->as_bin(), '0b1'); is ($x->as_oct(), '01');
12fc2493	251	$x = $cr->new('80/8');
c32198f6	252	is ($x->as_hex(), '0xa'); is ($x->as_bin(), '0b1010'); is ($x->as_oct(), '012');
12fc2493 AMS	253
	254	##############################################################################
	255	# broot(), blog(), bmodpow() and bmodinv()
7afd7a91 T	256
	257	$x = $cr->new(2) ** 32;
	258	$y = $cr->new(4);
	259	$z = $cr->new(3);
	260
c32198f6 FR	261	is ($x->copy()->broot($y), 2 ** 8);
c32198f6 FR	262	is (ref($x->copy()->broot($y)), $cr);
7afd7a91	263
c32198f6 FR	264	is ($x->copy()->bmodpow($y,$z), 1);
c32198f6 FR	265	is (ref($x->copy()->bmodpow($y,$z)), $cr);
7afd7a91 T	266
	267	$x = $cr->new(8);
	268	$y = $cr->new(5033);
	269	$z = $cr->new(4404);
	270
c32198f6 FR	271	is ($x->copy()->bmodinv($y), $z);
c32198f6 FR	272	is (ref($x->copy()->bmodinv($y)), $cr);
7afd7a91	273
9b924220 RGS	274	# square root with exact result
9b924220 RGS	275	$x = $cr->new('1.44');
c32198f6 FR	276	is ($x->copy()->broot(2), '6/5');
c32198f6 FR	277	is (ref($x->copy()->broot(2)), $cr);
9b924220 RGS	278
	279	# log with exact result
	280	$x = $cr->new('256.1');
c32198f6 FR	281	is ($x->copy()->blog(2), '8000563442710106079310294693803606983661/1000000000000000000000000000000000000000');
c32198f6 FR	282	is (ref($x->copy()->blog(2)), $cr);
9b924220	283
12fc2493	284	$x = $cr->new(144);
c32198f6	285	is ($x->copy()->broot('2'), 12, 'v/144 = 12');
12fc2493 AMS	286
12fc2493 AMS	287	$x = $cr->new(121212);
c32198f6	288	is ($x->copy()->broot('3'), 12, '(121212) ** 1/3 = 12');
9b924220	289
7afd7a91	290	##############################################################################
b8884ce4 T	291	# from_hex(), from_bin(), from_oct()
	292
	293	$x = Math::BigRat->from_hex('0x100');
c32198f6	294	is ($x, '256', 'from_hex');
b8884ce4	295	$x = $cr->from_hex('0x100');
c32198f6	296	is ($x, '256', 'from_hex');
b8884ce4 T	297
b8884ce4 T	298	$x = Math::BigRat->from_bin('0b100');
c32198f6	299	is ($x, '4', 'from_bin');
b8884ce4	300	$x = $cr->from_bin('0b100');
c32198f6	301	is ($x, '4', 'from_bin');
b8884ce4 T	302
b8884ce4 T	303	$x = Math::BigRat->from_oct('0100');
c32198f6	304	is ($x, '64', 'from_oct');
b8884ce4	305	$x = $cr->from_oct('0100');
c32198f6	306	is ($x, '64', 'from_oct');
b8884ce4 T	307
b8884ce4 T	308	##############################################################################
4de3d162 T	309	# as_float()
	310
	311	$x = Math::BigRat->new('1/2'); my $f = $x->as_float();
	312
c32198f6 FR	313	is ($x, '1/2', '$x unmodified');
c32198f6 FR	314	is ($f, '0.5', 'as_float(0.5)');
4de3d162 T	315
	316	$x = Math::BigRat->new('2/3'); $f = $x->as_float(5);
	317
c32198f6 FR	318	is ($x, '2/3', '$x unmodified');
c32198f6 FR	319	is ($f, '0.66667', 'as_float(2/3,5)');
4de3d162 T	320
4de3d162 T	321	##############################################################################
184f15d5 JH	322	# done
	323
	324	1;
	325