BigInt/t/mbimbf.inc

15   ok_undef (${"$mbi\::accuracy"});
16   ok_undef (${"$mbi\::precision"});
17   ok_undef ($mbi->accuracy());
18   ok_undef ($mbi->precision());
23   ok_undef (${"$mbf\::accuracy"});
24   ok_undef (${"$mbf\::precision"});
25   ok_undef ($mbf->precision());
26   ok_undef ($mbf->precision());
35   ok_undef ($class->accuracy());
36   ok_undef ($class->precision());
48   ok_undef ($class->accuracy(undef));
53   ok_undef ($class->precision(undef));
64   ok_undef (${"$mbf\::accuracy"} = undef);
65   ok_undef (${"$mbi\::accuracy"} = undef);
73   ok_undef (${"$mbf\::precision"} = undef);
74   ok_undef (${"$mbi\::precision"} = undef);
102 ok_undef ($x->accuracy());
104 ok_undef ($x->accuracy(undef),undef);
105 ok_undef ($x->precision());
107 ok_undef ($x->precision(undef),undef);
186 ok_undef ($y->precision());		# A has precedence, so P still unset
189 ok_undef ($y->accuracy());		# P has precedence, so A still unset
196 ok_undef ($x->accuracy());
202 ok_undef ($x->precision());
206 $z = $x->copy(); ok_undef ($z->accuracy(),undef); ok ($z->precision(),2);
342 ok_undef ($x->{_a});
450 ok_undef ($x->{_p}); ok_undef ($y->{_p});
457 ok_undef ($x->{_a}); ok_undef ($y->{_a});
545 ok_undef ($x->{_a});
578 ok ($x,'12350'); ok ($x->{_a},4); ok_undef ($x->{_p});
580 #ok_undef ($x->{_m}->{_a}); ok_undef ($x->{_e}->{_a});
581 #ok_undef ($x->{_m}->{_p}); ok_undef ($x->{_e}->{_p});
586 ok_undef ($x->{_a}); ok_undef ($x->{_p});
590 ok_undef ($x->{_a}); ok_undef ($x->{_p});
591 ok_undef ($y->{_a}); ok_undef ($y->{_p});
636 ok_undef ($params[2]);				# p
642 ok_undef ($params[1]);				# a
652 ok_undef ($params[1]);				# a
683   $x = $c->new(2)->bzero(); ok_undef ($x->{_a}); ok_undef ($x->{_p});
684   $x = $c->new(2)->bone();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
685   $x = $c->new(2)->binf();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
686   $x = $c->new(2)->bnan();  ok_undef ($x->{_a}); ok_undef ($x->{_p});
689   ok_undef ($x->{_a}); ok_undef ($x->{_p});
691   ok_undef ($x->{_a}); ok_undef ($x->{_p});
693   $x = $c->new(2,1); ok ($x->{_a},1); ok_undef ($x->{_p});
694   $x = $c->new(2,undef,1); ok_undef ($x->{_a}); ok ($x->{_p},1);
696   $x = $c->new(2,1)->bzero(); ok ($x->{_a},1); ok_undef ($x->{_p});
697   $x = $c->new(2,undef,1)->bzero(); ok_undef ($x->{_a}); ok ($x->{_p},1);
699   $x = $c->new(2,1)->bone(); ok ($x->{_a},1); ok_undef ($x->{_p});
700   $x = $c->new(2,undef,1)->bone(); ok_undef ($x->{_a}); ok ($x->{_p},1);
702   $x = $c->new(2); $x->bone('+',2,undef); ok ($x->{_a},2); ok_undef ($x->{_p});
703   $x = $c->new(2); $x->bone('+',undef,2); ok_undef ($x->{_a}); ok ($x->{_p},2);
704   $x = $c->new(2); $x->bone('-',2,undef); ok ($x->{_a},2); ok_undef ($x->{_p});
705   $x = $c->new(2); $x->bone('-',undef,2); ok_undef ($x->{_a}); ok ($x->{_p},2);
707   $x = $c->new(2); $x->bzero(2,undef); ok ($x->{_a},2); ok_undef ($x->{_p});
708   $x = $c->new(2); $x->bzero(undef,2); ok_undef ($x->{_a}); ok ($x->{_p},2);
827     if (!(ok ($x->{_a}, $a) && ok_undef ($x->{_p})))
835     if (!(ok ($x->{_p}, $p) && ok_undef ($x->{_a})))
850 sub ok_undef