Lines Matching refs:data
19 my ($i, $template, $data, $result, $comment, $w, $x, $evalData, $n, $p);
50 ($template, $data, $result, $comment) = @{shift @tests};
52 $data =~ s/([eE])96$/${1}63/; # smaller exponents
54 $data =~ s/([eE])\-101$/${1}-56/; # larger exponents
61 $data =~ s/([eE])96$/${1}26/; # smaller exponents
63 $data =~ s/([eE])\-101$/${1}-24/; # larger exponents
66 $evalData = eval $data;
101 print("ok $i # >$template< >$data< >$result<",
106 print("not ok $i >$template< >$data< >$result< $x$y",
112 # printf template, data to be formatted (as a Perl expression), and
116 # not part of the field. If formatting requires more than one data
117 # item (for example, if variable field widths are used), the Perl data
142 # template data result