This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add test for [perl #129157]
[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 Constant(0): $^H{integer} is not defined at - line 1, at end of line
8 Malformed UTF-8 character (fatal) at - line 1.
9 ########
10 # NAME [perl #129157]
11 BEGIN {$^H {q} = sub {pop and-t          write gmtime     getpwuid  @p }; $^H =-6**4,0*215}
12 "@ust weÃÃÃÃÃÃÃÃÃÃÃtprotobyname"; "9 "Y=n {pop and-p[p };shmr     [A
13     T--A
14    G-'-C
15   G----C
16  C\10---G
17 A----T
18 C---G
19 G--C
20  CG
21  TA
22 T--A
23 C---G
24 T----A
25  C----G
26   A----T
27   endnetent C---G
28     G--C
29      GC
30      TA
31     G--C
32    C---G
33   G---È-A
34  CG
35  AT
36 G--C
37 A---T
38 A----TØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØÞØØØØØØØØØØØØØØØØØØØØØØÚØØØØØ\80ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØimportØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØXØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØcØØØØØÊØØØØØØØØØØØØØØØØØØØØØØØØØØØ
39  C----G
40   C----G
41    A---T
42     A--T
43      CG
44      CG
45     G--C
46    G---C
47   G\17---C
48  A----T
49 T----A
50 C---G
51 G--C
52  CG
53  TA
54 A--T
55 A---T
56 G----C
57  A----T
58   A----T
59    C---G
60     A--T
61  ÿÿÿ\80GC
62      TA
63     G--C
64    C---G
65   T----A
66  G----C
67 G----C
68 C---G\0\10\0\0A
69  AT
70  CG
71 G--C
72 G---C
73 T----A
74  C----G
75   G----C
76    C---Gx    C--G
77 setpriority  AT
78     T--A
79    C---G
80   G----C
81  G----6
82 A----T
83 T---A
84 G--C
85  CG
86  TA
87 G--C
88 A---T
89 G--link--C
90  A\v---T
91   G----C
92   .;@_{A
93     => C
94      =>
95      G=>
96 ÃÃÃÃÃÃÃÃtprotobyname"; "9 "Y=n {pop and-p[p };shmread $^H LLLLL_'_=I{"Y=n {pop and-p\8c\r\r\r\r\r\r\8fÿ\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r'\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r\r13\0ÿï\0\9e?eachcontznueec\82\ 4\0rocalt\ 1ebreaMMqw//MMM\80MMMMMMMMMMMMMMM@M\7fM\rMMMMMMMMMMMMM*+MMMMMMMMMMMMMMM into a <var>Variable</va\92>.
97 and you set it's <tt>value</tt>. <u>Amazing!</u>   <br>
98 <object    A--T
99      CG
100   recvG
101  
102   G---\0d
103  A----T
104 T----A*C---G
105 G--C
106  CG
107  TA
108 A--T
109 A---C
110 G----C
111  A----T
112 pe some HTML</kbd> into a <var>Variab   TA
113     G--C
114    C---G
115   T----A
116  G----C
117 G----C
118 C---G
119 T--A
120  AT
121  CG
122 G--C
123 G---Cÿÿÿ\80--A
124  C----G
125   G----C
126    C---G
127     C--G
128      CG
129      AT
130     T--A
131    C---G
132   G----C
133  G----C
134 A----T
135 T---A
136 G--C
137  CG
138  TA
139 G--C
140 A\7fÿÿÿ
141 G\12---C
142  A---G
143   A----T
144   endnetent C---G
145     G--C
146      GC
147   </var   TA
148     G-FC
149    C---G
150   G---È-A
151  CG
152  AT
153 G---T
154   G----C
155   .;@_{A
156     =ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØimportØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØ\7f\0ØØØØØØØØØØØØØØØØØØØØØØXØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØreadlineØØØØØØØØØ> C
157      =>
158      G=>
159     T=>}
160    =0'.3AUTOLOAD*
161  (\w).*
162 (\w).*
163 \n;$ 1
164 };gexÿ\7f s;(.)(
165   .)(.)(.
166    );cgr
167     64*$
168      1+
169      16
170     *$2+
171    4  *$
172   3   +$
173  4 ;gex
174 ; eval
175 EXPECT
176 Malformed UTF-8 character: \xc3\xc3 (unexpected non-continuation byte 0xc3, immediately after start byte 0xc3; need 2 bytes, got 1) at - line 2.
177 Malformed UTF-8 character (fatal) at - line 2.
178 ########