t/pragma/warn/utf8

   1
   2   utf8.c AOK
   3
   4   All Mandatory warnings
   5
   6      [utf8_to_uv]
   7      Malformed UTF-8 character
   8         my $a = ord "\x80" ;
   9
  10      Malformed UTF-8 character
  11         my $a = ord "\xf080" ;
  12
  13      [utf16_to_utf8]
  14      Malformed UTF-16 surrogate
  15      <<<<<< Add a test when somethig actually calls utf16_to_utf8
  16
  17 __END__
  18 # utf8.c [utf8_to_uv]
  19 use utf8 ;
  20 my $a = ord "\x80" ;
  21 EXPECT
  22 Malformed UTF-8 character at - line 3.
  23 ########
  24 # utf8.c [utf8_to_uv]
  25 use utf8 ;
  26 my $a = ord "\x80" ;
  27 {
  28     use warnings 'utf8' ;
  29     my $a = ord "\x80" ;
  30     no warnings 'utf8' ;
  31     my $a = ord "\x80" ;
  32 }
  33 EXPECT
  34 Malformed UTF-8 character at - line 3.
  35 \x80 will produce malformed UTF-8 character; use \x{80} for that at - line 6.
  36 Malformed UTF-8 character at - line 6.
  37 ########
  38 # utf8.c [utf8_to_uv]
  39 use utf8 ;
  40 my $a = ord "\xf080" ;
  41 EXPECT
  42 Malformed UTF-8 character at - line 3.
  43 ########
  44 # utf8.c [utf8_to_uv]
  45 use utf8 ;
  46 my $a = ord "\xf080" ;
  47 {
  48     use warnings 'utf8' ;
  49     my $a = ord "\xf080" ;
  50     no warnings 'utf8' ;
  51     my $a = ord "\xf080" ;
  52 }
  53 EXPECT
  54 Malformed UTF-8 character at - line 3.
  55 \xf0 will produce malformed UTF-8 character; use \x{f0} for that at - line 6.
  56 Malformed UTF-8 character at - line 6.