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 42 milliseconds