Lines Matching refs:ans
56 @args = split(/:/,$_,99); $ans = pop(@args);
58 if ($ans =~ /(.*?)=(.*)/)
60 $expected_class = $2; $ans = $1;
185 if ($ans =~ /^(0x0x|0b0b)/)
187 $ans =~ s/^0[xb]//; $ans = Math::BigInt->new($ans)->bstr();
189 if ($ans eq "")
195 # print "try: $try ans: $ans1 $ans\n";
196 print "# Tried: '$try'\n" if !ok ($ans1, $ans);
197 ok (ref($ans),$expected_class) if $expected_class ne $class;
290 $ans = eval $try;
291 print "# For '$try'\n" if (!ok "$ans" , "false" );
300 $try .= "'ok' if \$x == 1024;"; $ans = eval $try;
301 print "# For '$try'\n" if (!ok "$ans" , "ok" );
304 $try .= "'ok' if \$x == 20;"; $ans = eval $try;
305 print "# For '$try'\n" if (!ok "$ans" , "ok" );
308 $try .= "'ok' if \$x == 12;"; $ans = eval $try;
309 print "# For '$try'\n" if (!ok "$ans" , "ok" );
312 $try .= "'ok' if \$x == -8;"; $ans = eval $try;
313 print "# For '$try'\n" if (!ok "$ans" , "ok" );
316 $try .= "'ok' if \$x == 2;"; $ans = eval $try;
317 print "# For '$try'\n" if (!ok "$ans" , "ok" );
320 $try .= "'ok' if \$x == 2;"; $ans = eval $try;
321 print "# For '$try'\n" if (!ok "$ans" , "ok" );
324 $try .= "'ok' if \$x == 4;"; $ans = eval $try;
325 print "# For '$try'\n" if (!ok "$ans" , "ok" );
328 $try .= "'ok' if \$x == 0x27;"; $ans = eval $try;
329 print "# For '$try'\n" if (!ok "$ans" , "ok" );
332 $try .= "'ok' if \$x == 0x27;"; $ans = eval $try;
333 print "# For '$try'\n" if (!ok "$ans" , "ok" );
340 $ans = eval $try;
341 print "# For '$try'\n" if (!ok "$ans" , "ok" );