X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a6ec74c1448e028e8d796742c81e78fb067bf603..8a6cb2cbf33b292e9c5c2689417fb9f525f67df2:/lib/warnings/utf8

diff --git a/lib/warnings/utf8 b/lib/warnings/utf8
deleted file mode 100644
index 9a7dbaf..0000000
--- a/lib/warnings/utf8
+++ /dev/null
@@ -1,35 +0,0 @@
-
-  utf8.c AOK
-
-     [utf8_to_uv]
-     Malformed UTF-8 character
-	my $a = ord "\x80" ;
-
-     Malformed UTF-8 character
-	my $a = ord "\xf080" ;
-     <<<<<< this warning can't be easily triggered from perl anymore
-
-     [utf16_to_utf8]
-     Malformed UTF-16 surrogate		
-     <<<<<< Add a test when somethig actually calls utf16_to_utf8
-
-__END__
-# utf8.c [utf8_to_uv] -W
-BEGIN {
-    if (ord('A') == 193) {
-        print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
-        exit 0;
-    }
-}
-use utf8 ;
-my $a = "snøstorm" ;
-{
-    no warnings 'utf8' ;
-    my $a = "snøstorm";
-    use warnings 'utf8' ;
-    my $a = "snøstorm";
-}
-EXPECT
-Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9.
-Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14.
-########