BigRat/t/bigrat.t

27 $x = Math::BigRat->new(1234); 		ok ($x,1234);
33 # new and bnorm()
35 foreach my $func (qw/new bnorm/)
66   $x = $cr->$func($mbi->new(1231));	ok ($x,'1231');
67   $x = $cr->$func($mbf->new(1232));	ok ($x,'1232');
68   $x = $cr->$func($mbf->new(1232.3));	ok ($x,'12323/10');
71 $x =  $cr->new('-0'); ok ($x,'0'); ok ($x->{_n}, '0'); ok ($x->{_d},'1');
72 $x =  $cr->new('NaN'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
73 $x =  $cr->new('-NaN'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
74 $x =  $cr->new('-1r4'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
76 $x =  $cr->new('+inf'); ok ($x,'inf'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
77 $x =  $cr->new('-inf'); ok ($x,'-inf'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
78 $x =  $cr->new('123a4'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
81 $x =  $cr->new('1e2e2'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
82 $x =  $cr->new('1+2+2'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
84 $x =  $cr->new('1.2.2'); ok ($x,'NaN'); ok ($x->{_n}, '0'); ok ($x->{_d},'0');
86 ok ($cr->new('123a4'),'NaN');
87 ok ($cr->new('123e4'),'1230000');
88 ok ($cr->new('-NaN'),'NaN');
89 ok ($cr->new('NaN'),'NaN');
90 ok ($cr->new('+inf'),'inf');
91 ok ($cr->new('-inf'),'-inf');
96 ok ($cr->new('3/7')->badd(1),'10/7');
97 ok ($cr->new('3/10')->badd(1.1),'7/5');
98 ok ($cr->new('3/7')->badd($mbi->new(1)),'10/7');
99 ok ($cr->new('3/10')->badd($mbf->new('1.1')),'7/5');
101 ok ($cr->new('3/7')->bsub(1),'-4/7');
102 ok ($cr->new('3/10')->bsub(1.1),'-4/5');
103 ok ($cr->new('3/7')->bsub($mbi->new(1)),'-4/7');
104 ok ($cr->new('3/10')->bsub($mbf->new('1.1')),'-4/5');
106 ok ($cr->new('3/7')->bmul(1),'3/7');
107 ok ($cr->new('3/10')->bmul(1.1),'33/100');
108 ok ($cr->new('3/7')->bmul($mbi->new(1)),'3/7');
109 ok ($cr->new('3/10')->bmul($mbf->new('1.1')),'33/100');
111 ok ($cr->new('3/7')->bdiv(1),'3/7');
112 ok ($cr->new('3/10')->bdiv(1.1),'3/11');
113 ok ($cr->new('3/7')->bdiv($mbi->new(1)),'3/7');
114 ok ($cr->new('3/10')->bdiv($mbf->new('1.1')),'3/11');
117 $x = $cr->new('1/4'); $y = $cr->new('1/3');
123 $x = $cr->new('7/5'); $x *= '3/2';
128 $x = $cr->new('2/3');		$y = $cr->new('3/2');
133 $x = $cr->new('-2/3');		$y = $cr->new('3/2');
138 $x = $cr->new('-2/3');		$y = $cr->new('-2/3');
143 $x = $cr->new('-2/3');		$y = $cr->new('-1/3');
148 $x = $cr->new('-124');		$y = $cr->new('-122');
151 $x = $cr->new('-124');		$y = $cr->new('-122');
154 $x = $cr->new('3/7');		$y = $cr->new('5/7');
157 $x = $cr->new('3/7');		$y = $cr->new('5/7');
160 $x = $cr->new('3/5');		$y = $cr->new('5/7');
163 $x = $cr->new('3/5');		$y = $cr->new('5/7');
166 $x = $cr->new('7/4');		$y = $cr->new('1');
169 $x = $cr->new('7/4');		$y = $cr->new('5/13');
172 $x = $cr->new('7/4');		$y = $cr->new('5/9');
175 $x = $cr->new('-144/9')->bsqrt();	ok ($x,'NaN');
176 $x = $cr->new('144/9')->bsqrt();	ok ($x,'4');
177 $x = $cr->new('3/4')->bsqrt();		ok ($x,
184 $x = $cr->new('2/1');  $z = $x->bpow('3/1'); ok ($x,'8');
185 $x = $cr->new('1/2');  $z = $x->bpow('3/1'); ok ($x,'1/8');
186 $x = $cr->new('1/3');  $z = $x->bpow('4/1'); ok ($x,'1/81');
187 $x = $cr->new('2/3');  $z = $x->bpow('4/1'); ok ($x,'16/81');
190 #$x = $cr->new('2/3');  $z = $x->bpow('5/3'); ok ($x,'32/81 ???');
195 $x = $cr->new('1');  $x->bfac(); ok ($x,'1');
198   $x = $cr->new("$i/1")->bfac(); ok ($x,$mbi->new($i)->bfac());
202 $x = $cr->new('-1'); $x->bfac(); ok ($x,'NaN');
207 $x =  $cr->new('3/2'); ok ($x->binc(),'5/2');
208 $x =  $cr->new('15/6'); ok ($x->bdec(),'3/2');
213 $x = $cr->new('-7/7'); ok ($x->{_n}, '1'); ok ($x->{_d}, '1');
214 $x = $cr->new('-7/7')->bfloor(); ok ($x->{_n}, '1'); ok ($x->{_d}, '1');
219 $x = $cr->new('7/5')->bsstr(); ok ($x,'7/5');
220 $x = $cr->new('-7/5')->bsstr(); ok ($x,'-7/5');
226 $x = $cr->new('8/8'); ok ($array[$x],2);
227 $x = $cr->new('16/8'); ok ($array[$x],3);
228 $x = $cr->new('17/8'); ok ($array[$x],3);
229 $x = $cr->new('33/8'); ok ($array[$x],5);
230 $x = $cr->new('-33/8'); ok ($array[$x],6);
232 $x = $cr->new('33/8'); ok ($x->numify() * 1000, 4125);
233 $x = $cr->new('-33/8'); ok ($x->numify() * 1000, -4125);
234 $x = $cr->new('inf'); ok ($x->numify(), 'inf');
235 $x = $cr->new('-inf'); ok ($x->numify(), '-inf');
236 $x = $cr->new('NaN'); ok ($x->numify(), 'NaN');
238 $x = $cr->new('4/3'); ok ($x->numify(), 4/3);
243 $x = $cr->new(2) ** 32;
244 $y = $cr->new(4);
245 $z = $cr->new(3);
254 $x = $cr->new(8);
255 $y = $cr->new(5033);
256 $z = $cr->new(4404);
262 $x = $cr->new('1.44');
267 $x = $cr->new('256.1');