This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/croak/toke_l1: Cut down test
[perl5.git] / t / lib / croak / toke_l1
CommitLineData
16a07156
KW
1# File is encoded in latin-1 so can have malformed-utf8
2__END__
3# NAME [perl #129037]
4BEGIN{{};$^H=-1}0Ã
5EXPECT
6Malformed UTF-8 character: \xc3\x0a (unexpected non-continuation byte 0x0a, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 1.
16a07156
KW
7Malformed UTF-8 character (fatal) at - line 1.
8########
1fb23c72
KW
9# NAME [perl #129157]
10BEGIN {$^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
1fb23c72 12 G----C
1fb23c72
KW
13EXPECT
14Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2.
15Malformed UTF-8 character (fatal) at - line 2.
16########