Lines Matching refs:chr
21 print F chr(0x100).'�';
26 ok( getc(F) eq chr(0x100) );
31 my $chr = chr(0xc4);
32 if (ord('A') == 193) { $chr = chr(0x8c); } # EBCDIC
33 ok( getc(F) eq $chr );
34 $chr = chr(0x80);
35 if (ord('A') == 193) { $chr = chr(0x41); } # EBCDIC
36 ok( getc(F) eq $chr );
37 $chr = chr(0xc2);
38 if (ord('A') == 193) { $chr = chr(0x80); } # EBCDIC
39 ok( getc(F) eq $chr );
40 $chr = chr(0xa3);
41 if (ord('A') == 193) { $chr = chr(0x44); } # EBCDIC
42 ok( getc(F) eq $chr );
48 $buf = chr(0x200);
55 $a = chr(300); # This *is* UTF-encoded
56 $b = chr(130); # This is not.
65 ok( $x eq chr(300) );
71 $chr = chr(196).chr(172);
72 if (ord('A') == 193) { $chr = chr(141).chr(83); } # EBCDIC
73 ok( $x eq $chr );
110 $chr = v196.172.194.130;
111 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
112 ok( $x eq $chr, sprintf('(%vd)', $x) );
118 ok( $x eq chr(300).chr(130), sprintf('(%vd)', $x) );
139 print F chr(130)."\n";
145 $chr = v196.172.130;
146 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
147 ok( $x eq $chr );
154 print F chr(130)."\n";
159 ok( $x eq $chr );
178 @a = map { chr(1 << ($_ << 2)) } 0..5; # 0x1, 0x10, .., 0x100000
179 unshift @a, chr(0); # ... and a null byte in front just for fun
215 print F chr(0x100);
222 print F chr(0x100);
230 print F chr(0x100);
239 print F chr(0x100);
249 print F chr(0x100);
259 my $b = chr 0x100;
261 ok( $b eq chr(0x100).chr(0xde), "21395 '.= <>' utf8 vs. bytes" );
266 open F, ">:utf8","a"; print F chr 0x100; close F;
271 ok( $b eq chr(0xde).chr(0x100), "21395 '.= <>' bytes vs. utf8" );
286 print F chr($u->[0]);
292 my $s = chr($v->[0]);
296 ok( $s eq chr($v->[0]) . chr($u->[0]), 'rcatline utf8' );
308 syswrite(F, $a = chr(0x100));
324 my ($chrE4, $chrF6) = (chr(0xE4), chr(0xF6));
326 { ($chrE4, $chrF6) = (chr(0x43), chr(0xEC)); }