Searched refs:ans1 (Results 1 - 21 of 21) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/ |
| H A D | bigintpm.t | 18 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bare_mbf.t | 35 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bare_mbi.t | 36 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bigfltpm.t | 36 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | with_sub.t | 37 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bigfltpm.inc | 117 $ans1 = eval $try;
121 if ($ans1 =~ /$pat/)
127 print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
134 ok_undef ($ans1);
138 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
139 if (ref($ans1) eq "$class")
143 #print $ans1->_trailing_zeros(),"\n";
145 if !ok ($CL->_zeros( $ans1->{_m}), 0);
|
| H A D | upgrade.t | 36 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup
|
| H A D | upgrade.inc | 192 $ans1 = eval $try;
200 ok_undef ($ans1);
204 # print "try: $try ans: $ans1 $ans\n";
205 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
208 ok (ref($ans1),$expected_class); # also checks that it really is ref!
213 is_valid($ans1,$f) if ref $ans1;
|
| H A D | isa.t | 37 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | sub_mbf.t | 35 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | sub_mbi.t | 35 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bigintpm.inc | 183 $ans1 = eval $try;
191 ok_undef ($ans1);
195 # print "try: $try ans: $ans1 $ans\n";
196 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
200 is_valid($ans1,$f) if ref $ans1;
215 $ans1 = eval $try;
216 print "# Tried: '$try'\n" if !ok ($ans1, $class->new(2) ** 64);
220 $ans1 = eval $try;
221 print "# Tried: '$try'\n" if !ok ($ans1,
[all...] |
| H A D | downgrade.t | 19 use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup
|
| H A D | upgradef.t | 66 use vars qw ($scale $class $try $x $y $z $f @args $ans $ans1 $ans1_str $setup
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | bigintpl.t | 21 if (($ans1 = eval($try)) eq $ans) {
25 print "# '$try' expected: '$ans' got: '$ans1'\n";
|
| H A D | bigfloatpl.t | 24 if (($ans1 = eval($try)) eq $ans) {
28 print "# '$try' expected: '$ans' got: '$ans1'\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
| H A D | bigfltrt.t | 34 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bigratpm.t | 34 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
|
| H A D | bigratpm.inc | 123 $ans1 = eval $try;
127 if ($ans1 =~ /$pat/)
133 print "# '$try' expected: /$pat/ got: '$ans1'\n" if !ok(1,0);
140 ok_undef ($ans1);
144 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
145 # if (ref($ans1) eq "$class")
149 # #print $ans1->_trailing_zeros(),"\n";
151 # if !ok ($ans1->{_m}->_trailing_zeros(), 0);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/ |
| H A D | HiRes.xs | 368 __qdiv_t ans1,ans2;
405 ans1=qdiv(quad,DIV_100NS_TO_SECS);
406 ans2=qdiv(ans1.rem,DIV_100NS_TO_USECS);
407 tp->tv_sec = ans1.quot; /* Whole seconds */
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | pat.t | 379 @ans = @ans1 = ();
380 push(@ans, $res), push(@ans1, $&) while $res = m/$matched/g;
386 print "# ans1='@ans1'\n# expect='$expect'\nnot " if "@ans1" ne $expect;
|
Completed in 86 milliseconds