t/pragma/warn/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 use utf8 ;
  19 my $a = "snøstorm" ;
  20 {
  21     no warnings 'utf8' ;
  22     my $a = "snøstorm";
  23     use warnings 'utf8' ;
  24     my $a = "snøstorm";
  25 }
  26 EXPECT
  27 Malformed UTF-8 character at - line 3.
  28 Malformed UTF-8 character at - line 8.
  29 ########