Lines Matching refs:class
33 foreach my $class ($mbi,$mbf)
35 ok_undef ($class->accuracy());
36 ok_undef ($class->precision());
37 ok ($class->round_mode(),'even');
38 ok ($class->div_scale(),40);
40 ok ($class->div_scale(20),20);
41 $class->div_scale(40); ok ($class->div_scale(),40);
43 ok ($class->round_mode('odd'),'odd');
44 $class->round_mode('even'); ok ($class->round_mode(),'even');
46 ok ($class->accuracy(2),2);
47 $class->accuracy(3); ok ($class->accuracy(),3);
48 ok_undef ($class->accuracy(undef));
50 ok ($class->precision(2),2);
51 ok ($class->precision(-2),-2);
52 $class->precision(3); ok ($class->precision(),3);
53 ok_undef ($class->precision(undef));
609 # round should find and use proper class
745 foreach my $class ($mbi,$mbf)
750 my $try = "my \$x = $class->new(1234); \$x->accuracy(5); ";
751 $try .= "my \$y = $class->new(12); \$y->precision(-3); ";
767 foreach my $class ($mbi,$mbf)
769 $x = $class->new(123); $class->accuracy(2); $x->bsub(0);
771 $class->accuracy(undef);
772 $x = $class->new(123); $class->accuracy(2); $x->badd(0);
774 $class->accuracy(undef);