Lines Matching refs:func
35 foreach my $func (qw/new bnorm/)
37 $x = $cr->$func(1234); ok ($x,1234);
39 $x = $cr->$func('1234/1'); ok ($x,1234);
40 $x = $cr->$func('1234/2'); ok ($x,617);
42 $x = $cr->$func('100/1.0'); ok ($x,100);
43 $x = $cr->$func('10.0/1.0'); ok ($x,10);
44 $x = $cr->$func('0.1/10'); ok ($x,'1/100');
45 $x = $cr->$func('0.1/0.1'); ok ($x,'1');
46 $x = $cr->$func('1e2/10'); ok ($x,10);
47 $x = $cr->$func('5/1e2'); ok ($x,'1/20');
48 $x = $cr->$func('1e2/1e1'); ok ($x,10);
49 $x = $cr->$func('1 / 3'); ok ($x,'1/3');
50 $x = $cr->$func('-1 / 3'); ok ($x,'-1/3');
51 $x = $cr->$func('NaN'); ok ($x,'NaN');
52 $x = $cr->$func('inf'); ok ($x,'inf');
53 $x = $cr->$func('-inf'); ok ($x,'-inf');
54 $x = $cr->$func('1/'); ok ($x,'NaN');
57 $x = $cr->$func('1+1/3'); ok ($x,'NaN');
59 $x = $cr->$func('1/1.2'); ok ($x,'5/6');
60 $x = $cr->$func('1.3/1.2'); ok ($x,'13/12');
61 $x = $cr->$func('1.2/1'); ok ($x,'6/5');
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');