Encode/t/encoding.t

4       print "1..0 # Skip: Encode was not built\n";
8     print "1..0 # Skip: PerlIO was not built\n";
12     print "1..0 # Skip: encoding pragma does not support EBCDIC platforms\n";
16     print "1..0 # Skip: encoding pragma not supported in Perl 5.25 or later\n";
35 print "not " unless ord($a) == 0x3af;
38 print "not " unless ord($b) == 0x100;
45 print "not " unless ord($c) == 0x3af;
48 print "not " unless length($c) == 2;
51 print "not " unless ord(substr($c, 1, 1)) == 0x100;
54 print "not " unless ord(chr(0xdf)) == 0x3af; # spooky
57 print "not " unless ord(pack("C", 0xdf)) == 0x3af;
62 print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
66 print "not " unless unpack("U0 C", chr(0xdf)) == 0xce;
69 print "not " unless unpack("U", pack("U", 0xdf)) == 0xdf;
72 print "not " unless unpack("U", chr(0xdf)) == 0x3af;
77 print "not " unless ord("\N{LATIN SMALL LETTER SHARP S}") == 0xdf;
84 print "not " unless ord($c) == 0x3af;
87 print "not " unless ord(substr($c, 1, 1)) == 0xdf;
90 print "not " unless ord(substr($c, 2, 1)) == 0x3af;
95 print "not " unless "\xDF"    =~ /\x{3AF}/;
98 print "not " unless "\x{3AF}" =~ /\xDF/;
101 print "not " unless "\xDF"    =~ /\xDF/;
104 print "not " unless "\x{3AF}" =~ /\x{3AF}/;
143 print "not " unless  alleq($byte, $U);
146 #do not match a wrong UTF-8 string
147 print "not " if anyeq($byte, $Ub);
151 print "not " unless allgt ( $g1,    $byte  )  &&
165 print "not "  if do{{use bytes; $v ne $v2}} || $v ne $v2;
168 # utf8::upgrade is transparent and does not break equality
169 print "not " unless alleq( $u, $v );
176 print "not " if $@ !~ /^Wide / || do{{use bytes; $u eq $v}} || $u ne $v;
183 print "not " unless pack("U*", 0x3AF) eq $byte;
186 print "not " if chr(0xDF) cmp $byte;
189 print "not " unless ((pack("U*", 0x3B0)       cmp $byte) ==  1) &&
199     print ord(undef) == 0 ? "ok 29\n" : "not ok 29\n";
207     print $h1{"\x{3af}"} == 41 ? "ok 30\n" : "not ok 30\n";
208     print $h2{"\xdf"}    == 42 ? "ok 31\n" : "not ok 31\n";
211 # Order of finding the above-Latin1 code point should not matter: both should
215     print "not " if "\xDF\x{100}" =~ /\x{3af}\x{100}/;
217     print "not " if "\x{100}\xDF" =~ /\x{100}\x{3af}/;