This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add test for [perl #130675]
[perl5.git] / t / lib / croak / toke_l1
1 # File is encoded in latin-1 so can have malformed-utf8
2 __END__
3 # NAME [perl #129037]
4 BEGIN{{};$^H=-1}0Ã
5 EXPECT
6 Malformed UTF-8 character: \xc3\x0a (unexpected non-continuation byte 0x0a, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 1.
7 Malformed UTF-8 character (fatal) at - line 1.
8 ########
9 # NAME [perl #129157]
10 BEGIN {$^H {q} = sub {pop and-t          write gmtime     getpwuid  @p }; $^H =-6**4,0*215}
11 "@ust weÃÃÃÃÃÃÃÃÃÃÃtprotobyname"; "9 "Y=n {pop and-p[p };shmr     [A
12   G----C
13 EXPECT
14 Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2.
15 Malformed UTF-8 character (fatal) at - line 2.
16 ########
17 # NAME [perl #130675]
18 use utf8;y'0Á''
19 EXPECT
20 Malformed UTF-8 character: \xc1\x27 (unexpected non-continuation byte 0x27, immediately after start byte 0xc1; need 2 bytes, got 1) at - line 1.
21 Malformed UTF-8 character: \xc1\x27 (any UTF-8 sequence that starts with "\xc1" is overlong which can and should be represented with a different, shorter sequence) at - line 1.
22 Malformed UTF-8 character (fatal) at - line 1.