t/lib/warnings/utf8

   1
   2   utf8.c AOK
   3
   4      [utf8_to_uv]
   5      Malformed UTF-8 character
   6         my $a = ord "\x80" ;
   7
   8      Malformed UTF-8 character
   9         my $a = ord "\xf080" ;
  10      <<<<<< this warning can't be easily triggered from perl anymore
  11
  12      [utf16_to_utf8]
  13      Malformed UTF-16 surrogate
  14      <<<<<< Add a test when somethig actually calls utf16_to_utf8
  15
  16 __END__
  17 # utf8.c [utf8_to_uv] -W
  18 BEGIN {
  19     if (ord('A') == 193) {
  20         print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
  21         exit 0;
  22     }
  23 }
  24 use utf8 ;
  25 my $a = "snøstorm" ;
  26 {
  27     no warnings 'utf8' ;
  28     my $a = "snøstorm";
  29     use warnings 'utf8' ;
  30     my $a = "snøstorm";
  31 }
  32 EXPECT
  33 Malformed UTF-8 character (unexpected non-continuation byte 0x73, immediately after start byte 0xf8) at - line 9.
  34 Malformed UTF-8 character (unexpected non-continuation byte 0x73, immediately after start byte 0xf8) at - line 14.
  35 ########
  36 use warnings 'utf8';
  37 my $d7ff  = chr(0xD7FF);
  38 my $d800  = chr(0xD800);
  39 my $dfff  = chr(0xDFFF);
  40 my $e000  = chr(0xE000);
  41 my $fffd  = chr(0xFFFD);
  42 my $fffe  = chr(0xFFFE);
  43 my $ffff  = chr(0xFFFF);
  44 my $hex4  = chr(0x10000);
  45 my $hex5  = chr(0x100000);
  46 my $max   = chr(0x10FFFF);
  47 no warnings 'utf8';
  48 my $d7ff  = chr(0xD7FF);
  49 my $d800  = chr(0xD800);
  50 my $dfff  = chr(0xDFFF);
  51 my $e000  = chr(0xE000);
  52 my $fffd  = chr(0xFFFD);
  53 my $fffe  = chr(0xFFFE);
  54 my $ffff  = chr(0xFFFF);
  55 my $hex4  = chr(0x10000);
  56 my $hex5  = chr(0x100000);
  57 my $max   = chr(0x10FFFF);
  58 EXPECT
  59 UTF-16 surrogate 0xd800 at - line 3.
  60 UTF-16 surrogate 0xdfff at - line 4.
  61 Unicode character 0xfffe is illegal at - line 7.
  62 Unicode character 0xffff is illegal at - line 8.
  63 Unicode character 0x10ffff is illegal at - line 11.
  64 ########
  65 use warnings 'utf8';
  66 my $d7ff  = pack("U", 0xD7FF);
  67 my $d800  = pack("U", 0xD800);
  68 my $dfff  = pack("U", 0xDFFF);
  69 my $e000  = pack("U", 0xE000);
  70 my $fffd  = pack("U", 0xFFFD);
  71 my $fffe  = pack("U", 0xFFFE);
  72 my $ffff  = pack("U", 0xFFFF);
  73 my $hex4  = pack("U", 0x10000);
  74 my $hex5  = pack("U", 0x100000);
  75 my $max   = pack("U", 0x10FFFF);
  76 no warnings 'utf8';
  77 my $d7ff  = pack("U", 0xD7FF);
  78 my $d800  = pack("U", 0xD800);
  79 my $dfff  = pack("U", 0xDFFF);
  80 my $e000  = pack("U", 0xE000);
  81 my $fffd  = pack("U", 0xFFFD);
  82 my $fffe  = pack("U", 0xFFFE);
  83 my $ffff  = pack("U", 0xFFFF);
  84 my $hex4  = pack("U", 0x10000);
  85 my $hex5  = pack("U", 0x100000);
  86 my $max   = pack("U", 0x10FFFF);
  87 EXPECT
  88 UTF-16 surrogate 0xd800 at - line 3.
  89 UTF-16 surrogate 0xdfff at - line 4.
  90 Unicode character 0xfffe is illegal at - line 7.
  91 Unicode character 0xffff is illegal at - line 8.
  92 Unicode character 0x10ffff is illegal at - line 11.
  93 ########
  94 use warnings 'utf8';
  95 my $d7ff  = "\x{D7FF}";
  96 my $d800  = "\x{D800}";
  97 my $dfff  = "\x{DFFF}";
  98 my $e000  = "\x{E000}";
  99 my $fffd  = "\x{FFFD}";
 100 my $fffe  = "\x{FFFE}";
 101 my $ffff  = "\x{FFFF}";
 102 my $hex4  = "\x{10000}";
 103 my $hex5  = "\x{100000}";
 104 my $max   = "\x{10FFFF}";
 105 no warnings 'utf8';
 106 my $d7ff  = "\x{D7FF}";
 107 my $d800  = "\x{D800}";
 108 my $dfff  = "\x{DFFF}";
 109 my $e000  = "\x{E000}";
 110 my $fffd  = "\x{FFFD}";
 111 my $fffe  = "\x{FFFE}";
 112 my $ffff  = "\x{FFFF}";
 113 my $hex4  = "\x{10000}";
 114 my $hex5  = "\x{100000}";
 115 my $max   = "\x{10FFFF}";
 116 EXPECT
 117 UTF-16 surrogate 0xd800 at - line 3.
 118 UTF-16 surrogate 0xdfff at - line 4.
 119 Unicode character 0xfffe is illegal at - line 7.
 120 Unicode character 0xffff is illegal at - line 8.
 121 Unicode character 0x10ffff is illegal at - line 11.