Lines Matching full:raw

32 my @raw, @upgraded, @utf8;
34     push @raw, $_;
48 	$iv_small, \$array[0], \$array[0], \$array[1], \$^X, @raw, @upgraded,
51 $expect = 7 * ($#FOO+2) * ($#FOO+1) + 6 * @raw + 6 * @utf8;
249 while (my ($i, $v) = each @raw) {
251     my ($raw, $cooked, $not);
252     $raw = $v;
254     $not = $raw eq $cooked ? '' : 'not ';
255     printf "%sok %d # eq, chr %d\n", $not, ++$ok, ord $raw;
257     $raw = $v;
259     $not = $raw ne $cooked ? 'not ' : '';
260     printf "%sok %d # ne, chr %d\n", $not, ++$ok, ord $raw;
262     $raw = $v;
264     $not = (($raw cmp $cooked) == 0) ? '' : 'not ';
265     printf "%sok %d # cmp, chr %d\n", $not, ++$ok, ord $raw;
268     $raw = $v;
270     $not = $cooked eq $raw ? '' : 'not ';
271     printf "%sok %d # eq, chr %d\n", $not, ++$ok, ord $raw;
273     $raw = $v;
275     $not = $cooked ne $raw ? 'not ' : '';
276     printf "%sok %d # ne, chr %d\n", $not, ++$ok, ord $raw;
278     $raw = $v;
280     $not = (($cooked cmp $raw) == 0) ? '' : 'not ';
281     printf "%sok %d # cmp, chr %d\n", $not, ++$ok, ord $raw;
286     my ($raw, $cooked, $not);
287     $raw = $raw[$i];
289     $not = $raw eq $cooked ? 'not ' : '';
290     printf "%sok %d # eq vs octets, chr %d\n", $not, ++$ok, ord $raw;
292     $raw = $raw[$i];
294     $not = $raw ne $cooked ? '' : 'not ';
295     printf "%sok %d # ne vs octets, chr %d\n", $not, ++$ok, ord $raw;
297     $raw = $raw[$i];
299     $not = (($raw cmp $cooked) == 0) ? 'not ' : '';
300     printf "%sok %d # cmp vs octects, chr %d\n", $not, ++$ok, ord $raw;
303     $raw = $raw[$i];
305     $not = $cooked eq $raw ? 'not ' : '';
306     printf "%sok %d # eq vs octets, chr %d\n", $not, ++$ok, ord $raw;
308     $raw = $raw[$i];
310     $not = $cooked ne $raw? '' : 'not ';
311     printf "%sok %d # ne vs octets, chr %d\n", $not, ++$ok, ord $raw;
313     $raw = $raw[$i];
315     $not = (($cooked cmp $raw) == 0) ? 'not ' : '';
316     printf "%sok %d # cmp vs octects, chr %d\n", $not, ++$ok, ord $raw;