Lines Matching refs:accuracy
1 # test rounding, accuracy, precicion and fallback, round_mode and mixing
15 ok_undef (${"$mbi\::accuracy"});
17 ok_undef ($mbi->accuracy());
23 ok_undef (${"$mbf\::accuracy"});
35 ok_undef ($class->accuracy());
46 ok ($class->accuracy(2),2);
47 $class->accuracy(3); ok ($class->accuracy(),3);
48 ok_undef ($class->accuracy(undef));
58 # accuracy
61 ok (${"$mbf\::accuracy"} = $_,$_);
62 ok (${"$mbi\::accuracy"} = $_,$_);
64 ok_undef (${"$mbf\::accuracy"} = undef);
65 ok_undef (${"$mbi\::accuracy"} = undef);
95 ${"$mbi\::accuracy"} = undef;
102 ok_undef ($x->accuracy());
103 ok ($x->accuracy(5),5);
104 ok_undef ($x->accuracy(undef),undef);
112 ok (${"$mbi\::accuracy"} = 42,42);
113 ok (${"$mbf\::accuracy"} = 64,64);
114 ok (${"$mbi\::accuracy"},42); # should be still 42
115 ok (${"$mbf\::accuracy"},64); # should be now 64
123 ${"$mbi\::accuracy"} = 4;
127 ${"$mbi\::accuracy"} = undef;
131 ${"$mbf\::accuracy"} = 4;
136 ${"$mbf\::accuracy"} = undef;
149 ${"$mbi\::accuracy"} = 4; ${"$mbf\::accuracy"} = undef;
151 ${"$mbi\::accuracy"} = undef; # reset
155 # see if setting accuracy/precision actually rounds the number
157 $x = $mbf->new('123.456'); $x->accuracy(4); ok ($x,'123.5');
160 $x = $mbi->new(123456); $x->accuracy(4); ok ($x,123500);
185 ok ($y->accuracy(),5);
189 ok_undef ($y->accuracy()); # P has precedence, so A still unset
194 ok ($x->accuracy(4),4);
196 ok_undef ($x->accuracy());
201 ok ($x->accuracy(4),4); # clear P
205 $x = $mbf->new(123.456); $x->accuracy(4); $x->precision(2);
206 $z = $x->copy(); ok_undef ($z->accuracy(),undef); ok ($z->precision(),2);
209 $x = $mbf->new('0.008'); $x->accuracy(8);
217 # does accuracy()/precision work on zeros?
220 $x = $c->bzero(); $x->accuracy(5); ok ($x->{_a},5);
222 $x = $c->new(0); $x->accuracy(5); ok ($x->{_a},5);
241 # ${"$c\::accuracy"} = undef; # reset
283 $x->{_a} = 5; # $x->accuracy(5) would round $x straightaway
284 $y->{_a} = 4; # $y->accuracy(4) would round $x straightaway
299 $x->{_a} = 5; # $x->accuracy(5) would round $x straightaway
300 $y->{_a} = 4; # $y->accuracy(4) would round $x straightaway
359 $x = $mbi->new(12); $x->accuracy(2); ok ($x->bfac(),'480000000');
360 $x = $mbi->new(13); $x->accuracy(2); ok ($x->bfac(),'6200000000');
361 $x = $mbi->new(13); $x->accuracy(3); ok ($x->bfac(),'6230000000');
362 $x = $mbi->new(13); $x->accuracy(4); ok ($x->bfac(),'6227000000');
364 $x = $mbi->new(20); $x->accuracy(1); ok ($x->bfac(),'2000000000000000000');
369 $x = $mbi->new('3')->bsqrt(2,undef); ok ($x->accuracy(),2);
417 ${"$mbf\::accuracy"} = undef;
462 ok ($@ =~ /^bround\(\) needs positive accuracy/,1);
464 # test whether rounding to higher accuracy is no-op
544 $x = $mbi->new('1234'); $x->accuracy(3); $x->bfround(-2);
559 # rounding with already set precision/accuracy
577 $x = $mbf->new('12345.678'); $x->accuracy(4);
596 $x = $mbf->new(12345); $x->accuracy(4); # '12340'
597 $y = $mbf->new(12345); $y->accuracy(2); # '12000'
600 $x = $mbf->new(54321); $x->accuracy(4); # '12340'
601 $y = $mbf->new(12345); $y->accuracy(3); # '12000'
612 #ok ($x->round($Foo::accuracy),'a' x $Foo::accuracy);
615 #ok ($x->bround($Foo::accuracy),'a' x $Foo::accuracy);
622 ${"$mbi\::accuracy"} = undef;
662 ${"$mbi\::accuracy"} = 1;
668 ${"$mbi\::accuracy"} = undef;
716 $c->accuracy(2);
717 $x = $c->bone(); ok ($x->accuracy(),2);
718 $x = $c->bzero(); ok ($x->accuracy(),2);
719 $c->accuracy(undef);
730 # new with set accuracy/precision and with parameters
736 ${"$c\::accuracy"} = 42;
739 ${"$c\::accuracy"} = undef;
750 my $try = "my \$x = $class->new(1234); \$x->accuracy(5); ";
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);
796 $try .= "\$x->accuracy($xa); " if $xa ne '';
802 $try .= "\$y->accuracy($ya); " if $ya ne '';