Lines Matching refs:class
3 my $version = ${"$class\::VERSION"};
39 my $CALC = $class->config()->{lib}; ok ($CALC,$CL);
53 $round_mode = $_; $round_mode =~ s/^\$/$class\->/; next;
57 $expected_class = $class;
62 $try = "\$x = $class->new(\"$args[0]\");";
65 $try = "\$x = $class->bnorm(\"$args[0]\");";
94 $try .= "\$y = $class->new('$args[1]');";
124 $try .= " \$z = $class->new('$args[2]'); ";
126 $try .= "$class\::bgcd(\$x, \$y";
134 $try .= " \$z = $class->new('$args[2]'); ";
136 $try .= "$class\::blcm(\$x, \$y";
174 $try .= "\$z = $class->new(\"$args[2]\");";
197 ok (ref($ans),$expected_class) if $expected_class ne $class;
213 $try = "\$x = $class->new('4294967296');";
216 print "# Tried: '$try'\n" if !ok ($ans1, $class->new(2) ** 64);
218 $try = "\$x = $class->new(10);";
221 print "# Tried: '$try'\n" if !ok ($ans1, $class->new(10) ** 10);
226 $x = $class->new(3);
227 $y = $class->new(4);
236 $x = $class->new(1);
237 $y = $class->new(2);
243 $x = $class->new(5);
244 $y = $class->new(4);
250 $x = $class->new(-5); $y = -$x;
253 $x = $class->new(-5); $y = abs($x);
256 $x = $class->new(8);
257 $y = $class->new(-1);
258 $z = $class->new(5033);
264 $x = $class->new(-5); $y = -$x; ok ($x,-5); ok ($y,5);
265 $x = $class->new(-5); $y = $x->copy()->bneg(); ok ($x,-5); ok ($y,5);
267 $x = $class->new(-5); $y = $class->new(3); $x->bmul($y); ok ($x,-15); ok ($y,3);
268 $x = $class->new(-5); $y = $class->new(3); $x->badd($y); ok ($x,-2); ok ($y,3);
269 $x = $class->new(-5); $y = $class->new(3); $x->bsub($y); ok ($x,-8); ok ($y,3);
270 $x = $class->new(-15); $y = $class->new(3); $x->bdiv($y); ok ($x,-5); ok ($y,3);
271 $x = $class->new(-5); $y = $class->new(3); $x->bmod($y); ok ($x,1); ok ($y,3);
273 $x = $class->new(5); $y = $class->new(3); $x->bmul($y); ok ($x,15); ok ($y,3);
274 $x = $class->new(5); $y = $class->new(3); $x->badd($y); ok ($x,8); ok ($y,3);
275 $x = $class->new(5); $y = $class->new(3); $x->bsub($y); ok ($x,2); ok ($y,3);
276 $x = $class->new(15); $y = $class->new(3); $x->bdiv($y); ok ($x,5); ok ($y,3);
277 $x = $class->new(5); $y = $class->new(3); $x->bmod($y); ok ($x,2); ok ($y,3);
279 $x = $class->new(5); $y = $class->new(-3); $x->bmul($y); ok ($x,-15); ok($y,-3);
280 $x = $class->new(5); $y = $class->new(-3); $x->badd($y); ok ($x,2); ok($y,-3);
281 $x = $class->new(5); $y = $class->new(-3); $x->bsub($y); ok ($x,8); ok($y,-3);
282 $x = $class->new(15); $y = $class->new(-3); $x->bdiv($y); ok ($x,-5); ok($y,-3);
283 $x = $class->new(5); $y = $class->new(-3); $x->bmod($y); ok ($x,-1); ok($y,-3);
287 $try = "\$x = $class->new(0);";
299 $try = "\$x = $class->new(10); \$x = 2 ** \$x;";
303 $try = "\$x = $class->new(10); \$x = 2 * \$x;";
307 $try = "\$x = $class->new(10); \$x = 2 + \$x;";
311 $try = "\$x = $class\->new(10); \$x = 2 - \$x;";
315 $try = "\$x = $class\->new(10); \$x = 20 / \$x;";
319 $try = "\$x = $class\->new(3); \$x = 20 % \$x;";
323 $try = "\$x = $class\->new(7); \$x = 20 & \$x;";
327 $try = "\$x = $class\->new(7); \$x = 0x20 | \$x;";
331 $try = "\$x = $class\->new(7); \$x = 0x20 ^ \$x;";
338 $try = "\$x = $class\->badd(4,5);";
349 $x = $class->new(1); if ($x) { ok (1,1); } else { ok($x,'to be true') }
350 $x = $class->new(0); if (!$x) { ok (1,1); } else { ok($x,'to be false') }
356 ok (scalar @args,3); # $class, 4, 5
362 ok (scalar @args,3); # $class, 4, 5
368 ok (scalar @args,3); # $class, 4, 5
374 ok (scalar @args,5); # $class, 4, 5, 6, 7
381 @args = Math::BigInt::objectify(2,$class,4,5,6,7);
382 ok (scalar @args,5); # $class, 4, 5, 6, 7
383 ok ($args[0],$class);
393 ok ($class->new(123)->badd(123),246);
394 ok ($class->badd(123,321),444);
395 ok ($class->badd(123,$class->new(321)),444);
397 ok ($class->new(123)->bsub(122),1);
398 ok ($class->bsub(321,123),198);
399 ok ($class->bsub(321,$class->new(123)),198);
401 ok ($class->new(123)->bmul(123),15129);
402 ok ($class->bmul(123,123),15129);
403 ok ($class->bmul(123,$class->new(123)),15129);
405 ok ($class->new(15129)->bdiv(123),123);
406 ok ($class->bdiv(15129,123),123);
407 ok ($class->bdiv(15129,$class->new(123)),123);
409 ok ($class->new(15131)->bmod(123),2);
410 ok ($class->bmod(15131,123),2);
411 ok ($class->bmod(15131,$class->new(123)),2);
413 ok ($class->new(2)->bpow(16),65536);
414 ok ($class->bpow(2,16),65536);
415 ok ($class->bpow(2,$class->new(16)),65536);
417 ok ($class->new(2**15)->brsft(1),2**14);
418 ok ($class->brsft(2**15,1),2**14);
419 ok ($class->brsft(2**15,$class->new(1)),2**14);
421 ok ($class->new(2**13)->blsft(1),2**14);
422 ok ($class->blsft(2**13,1),2**14);
423 ok ($class->blsft(2**13,$class->new(1)),2**14);
429 $x = $class->new($z); ok ($x->bsstr(),'105e+13'); # not 1.05e+15
433 $x = $class->new($z); ok ($x->bsstr(),'1e+129');
443 my $m = $class->new($c);
444 ok ($class->new("$c"),$m);
445 ok ($class->new(" $c"),$m);
446 ok ($class->new("$c "),$m);
447 ok ($class->new(" $c "),$m);
448 ok ($class->new("\n$c"),$m);
449 ok ($class->new("$c\n"),$m);
450 ok ($class->new("\n$c\n"),$m);
451 ok ($class->new(" \n$c\n"),$m);
452 ok ($class->new(" \n$c \n"),$m);
453 ok ($class->new(" \n$c\n "),$m);
454 ok ($class->new(" \n$c\n1"),'NaN');
455 ok ($class->new("1 \n$c\n1"),'NaN');
463 $x = $class->new(2); $x **= 148; $x++; $x = $x / 17;
468 $x = $class->new(2); $x **= 127; $x--;
471 $x = $class->new('215960156869840440586892398248');
475 $x = $class->new('1_000_000_000_000');
481 #$x = $class->new(2); $x **= 6972593; $x--;
485 #$x = $class->new(2); $x **= 332162; $x *= "593573509"; $x++;
506 $x = $class->new('+inf'); ok ($x,'inf');
523 $x = $class->new($MAX); is_valid($x); # f.i. 9999
530 $x = $class->new($BASE-1); ok ($x->numify(),$BASE-1);
531 $x = $class->new(-($BASE-1)); ok ($x->numify(),-($BASE-1));
534 $x = $class->new($BASE); ok ($x->numify()+0,$BASE+0);
535 $x = $class->new(-$BASE); ok ($x->numify(),-$BASE);
536 $x = $class->new( -($BASE*$BASE*1+$BASE*1+1) );
542 $x = $class->new($BASE-2); $x++; $x++; $x++; $x++;
545 $x = $class->new($BASE+3); $x++;
549 $x = $class->new($MAX); ok ($x->length(), length($MAX));
552 # test bug that $class->digit($string) did not work
554 ok ($class->digit(123,2),1);
559 $x = $class->new(123456); $z = $class->new(10000); $z *= 10; $x -= $z;
572 $x = $class->new($x)->bmul($y);
587 $x = $class->new($x);
595 $x = $class->new('-322056000'); ($x,$y) = $x->bdiv('-12882240');
603 $x = $class->new('-629'); ok ($x->bmod(5033),4404);
608 ok ($class->bzero(),0);
609 ok ($class->bone(),1);
610 ok ($class->bone('+'),1);
611 ok ($class->bone('-'),-1);
612 ok ($class->bnan(),'NaN');
613 ok ($class->binf(),'inf');
614 ok ($class->binf('+'),'inf');
615 ok ($class->binf('-'),'-inf');
616 ok ($class->binf('-inf'),'-inf');
621 ok ($class->new(1)->is_one('-'),0);
622 ok ($class->new(-1)->is_one('-'),1);
623 ok ($class->new(1)->is_one(),1);
624 ok ($class->new(-1)->is_one(),0);