Lines Matching refs:result
19 my ($i, $template, $data, $result, $comment, $w, $x, $evalData, $n, $p);
50 ($template, $data, $result, $comment) = @{shift @tests};
53 $result =~ s/([eE]\+)102$/${1}69/; # " "
55 $result =~ s/([eE])\-102$/${1}-57/; # " "
62 $result =~ s/([eE]\+)102$/${1}32/; # " "
64 $result =~ s/([eE])\-102$/${1}-25/; # " "
74 # if result is left-adjusted, append extra space
75 if ($template =~ /%\+?\-/ and $result =~ / $/) {
78 # if result is zero-filled, add extra zero
79 elsif ($template =~ /%\+?0/ and $result =~ /^0/) {
82 # if result is right-adjusted, prepend extra space
83 elsif ($result =~ /^ /) {
88 if ($x eq ">$result<") {
91 elsif ($y eq ">$result<") # Some C libraries always give
93 print("ok $i # >$result< $x three-digit exponent accepted\n");
95 elsif ($result =~ /[-+]\d{3}$/ &&
101 print("ok $i # >$template< >$data< >$result<",
106 print("not ok $i >$template< >$data< >$result< $x$y",
113 # expected result of formatting. An optional fourth field can contain
142 # template data result