1#!/usr/perl5/bin/perl
2
3BEGIN {
4	if (index("foobarbaz", "barbaz") != 3) {
5		printf("perl => index(\"foobarbaz\", \"barbaz\") = %d\n",
6		    index("foobarbaz", "barbaz"));
7		printf("   D => index(\"foobarbaz\", \"barbaz\") = 3\n");
8		$failed++;
9	}
10
11	if (rindex("foobarbaz", "barbaz") != 3) {
12		printf("perl => rindex(\"foobarbaz\", \"barbaz\") = %d\n",
13		    rindex("foobarbaz", "barbaz"));
14		printf("   D => rindex(\"foobarbaz\", \"barbaz\") = 3\n");
15		$failed++;
16	}
17
18	if (index("foofoofoo", "foo") != 0) {
19		printf("perl => index(\"foofoofoo\", \"foo\") = %d\n",
20		    index("foofoofoo", "foo"));
21		printf("   D => index(\"foofoofoo\", \"foo\") = 0\n");
22		$failed++;
23	}
24
25	if (rindex("foofoofoo", "foo") != 6) {
26		printf("perl => rindex(\"foofoofoo\", \"foo\") = %d\n",
27		    rindex("foofoofoo", "foo"));
28		printf("   D => rindex(\"foofoofoo\", \"foo\") = 6\n");
29		$failed++;
30	}
31
32	if (index("boofoofoo", "foo") != 3) {
33		printf("perl => index(\"boofoofoo\", \"foo\") = %d\n",
34		    index("boofoofoo", "foo"));
35		printf("   D => index(\"boofoofoo\", \"foo\") = 3\n");
36		$failed++;
37	}
38
39	if (rindex("boofoofoo", "foo") != 6) {
40		printf("perl => rindex(\"boofoofoo\", \"foo\") = %d\n",
41		    rindex("boofoofoo", "foo"));
42		printf("   D => rindex(\"boofoofoo\", \"foo\") = 6\n");
43		$failed++;
44	}
45
46	if (index("foobarbaz", "barbazzy") != -1) {
47		printf("perl => index(\"foobarbaz\", \"barbazzy\") = %d\n",
48		    index("foobarbaz", "barbazzy"));
49		printf("   D => index(\"foobarbaz\", \"barbazzy\") = -1\n");
50		$failed++;
51	}
52
53	if (rindex("foobarbaz", "barbazzy") != -1) {
54		printf("perl => rindex(\"foobarbaz\", \"barbazzy\") = %d\n",
55		    rindex("foobarbaz", "barbazzy"));
56		printf("   D => rindex(\"foobarbaz\", \"barbazzy\") = -1\n");
57		$failed++;
58	}
59
60	if (index("foobar", "foobar") != 0) {
61		printf("perl => index(\"foobar\", \"foobar\") = %d\n",
62		    index("foobar", "foobar"));
63		printf("   D => index(\"foobar\", \"foobar\") = 0\n");
64		$failed++;
65	}
66
67	if (rindex("foobar", "foobar") != 0) {
68		printf("perl => rindex(\"foobar\", \"foobar\") = %d\n",
69		    rindex("foobar", "foobar"));
70		printf("   D => rindex(\"foobar\", \"foobar\") = 0\n");
71		$failed++;
72	}
73
74	if (index("foobar", "foobarbaz") != -1) {
75		printf("perl => index(\"foobar\", \"foobarbaz\") = %d\n",
76		    index("foobar", "foobarbaz"));
77		printf("   D => index(\"foobar\", \"foobarbaz\") = -1\n");
78		$failed++;
79	}
80
81	if (rindex("foobar", "foobarbaz") != -1) {
82		printf("perl => rindex(\"foobar\", \"foobarbaz\") = %d\n",
83		    rindex("foobar", "foobarbaz"));
84		printf("   D => rindex(\"foobar\", \"foobarbaz\") = -1\n");
85		$failed++;
86	}
87
88	if (index("", "foobar") != -1) {
89		printf("perl => index(\"\", \"foobar\") = %d\n",
90		    index("", "foobar"));
91		printf("   D => index(\"\", \"foobar\") = -1\n");
92		$failed++;
93	}
94
95	if (rindex("", "foobar") != -1) {
96		printf("perl => rindex(\"\", \"foobar\") = %d\n",
97		    rindex("", "foobar"));
98		printf("   D => rindex(\"\", \"foobar\") = -1\n");
99		$failed++;
100	}
101
102	if (index("foobar", "") != 0) {
103		printf("perl => index(\"foobar\", \"\") = %d\n",
104		    index("foobar", ""));
105		printf("   D => index(\"foobar\", \"\") = 0\n");
106		$failed++;
107	}
108
109	if (rindex("foobar", "") != 6) {
110		printf("perl => rindex(\"foobar\", \"\") = %d\n",
111		    rindex("foobar", ""));
112		printf("   D => rindex(\"foobar\", \"\") = 6\n");
113		$failed++;
114	}
115
116	if (index("", "") != 0) {
117		printf("perl => index(\"\", \"\") = %d\n",
118		    index("", ""));
119		printf("   D => index(\"\", \"\") = 0\n");
120		$failed++;
121	}
122
123	if (rindex("", "") != 0) {
124		printf("perl => rindex(\"\", \"\") = %d\n",
125		    rindex("", ""));
126		printf("   D => rindex(\"\", \"\") = 0\n");
127		$failed++;
128	}
129
130	if (index("foo", "") != 0) {
131		printf("perl => index(\"foo\", \"\") = %d\n",
132		    index("foo", ""));
133		printf("   D => index(\"foo\", \"\") = 0\n");
134		$failed++;
135	}
136
137	if (rindex("foo", "") != 3) {
138		printf("perl => rindex(\"foo\", \"\") = %d\n",
139		    rindex("foo", ""));
140		printf("   D => rindex(\"foo\", \"\") = 3\n");
141		$failed++;
142	}
143
144	if (index("foobarbaz", "barbaz", -400) != 3) {
145		printf("perl => index(\"foobarbaz\", \"barbaz\", -400) = %d\n",
146		    index("foobarbaz", "barbaz", -400));
147		printf("   D => index(\"foobarbaz\", \"barbaz\", -400) = 3\n");
148		$failed++;
149	}
150
151	if (rindex("foobarbaz", "barbaz", -400) != -1) {
152		printf("perl => rindex(\"foobarbaz\", \"barbaz\", -400) = %d\n",
153		    rindex("foobarbaz", "barbaz", -400));
154		printf("   D => rindex(\"foobarbaz\", \"barbaz\", -400) = -1\n");
155		$failed++;
156	}
157
158	if (index("foobarbaz", "barbaz", -1) != 3) {
159		printf("perl => index(\"foobarbaz\", \"barbaz\", -1) = %d\n",
160		    index("foobarbaz", "barbaz", -1));
161		printf("   D => index(\"foobarbaz\", \"barbaz\", -1) = 3\n");
162		$failed++;
163	}
164
165	if (rindex("foobarbaz", "barbaz", -1) != -1) {
166		printf("perl => rindex(\"foobarbaz\", \"barbaz\", -1) = %d\n",
167		    rindex("foobarbaz", "barbaz", -1));
168		printf("   D => rindex(\"foobarbaz\", \"barbaz\", -1) = -1\n");
169		$failed++;
170	}
171
172	if (index("foobarbaz", "barbaz", 0) != 3) {
173		printf("perl => index(\"foobarbaz\", \"barbaz\", 0) = %d\n",
174		    index("foobarbaz", "barbaz", 0));
175		printf("   D => index(\"foobarbaz\", \"barbaz\", 0) = 3\n");
176		$failed++;
177	}
178
179	if (rindex("foobarbaz", "barbaz", 0) != -1) {
180		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 0) = %d\n",
181		    rindex("foobarbaz", "barbaz", 0));
182		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 0) = -1\n");
183		$failed++;
184	}
185
186	if (index("foobarbaz", "barbaz", 4) != -1) {
187		printf("perl => index(\"foobarbaz\", \"barbaz\", 4) = %d\n",
188		    index("foobarbaz", "barbaz", 4));
189		printf("   D => index(\"foobarbaz\", \"barbaz\", 4) = -1\n");
190		$failed++;
191	}
192
193	if (rindex("foobarbaz", "barbaz", 4) != 3) {
194		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 4) = %d\n",
195		    rindex("foobarbaz", "barbaz", 4));
196		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 4) = 3\n");
197		$failed++;
198	}
199
200	if (index("foobarbaz", "barbaz", 9) != -1) {
201		printf("perl => index(\"foobarbaz\", \"barbaz\", 9) = %d\n",
202		    index("foobarbaz", "barbaz", 9));
203		printf("   D => index(\"foobarbaz\", \"barbaz\", 9) = -1\n");
204		$failed++;
205	}
206
207	if (rindex("foobarbaz", "barbaz", 9) != 3) {
208		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 9) = %d\n",
209		    rindex("foobarbaz", "barbaz", 9));
210		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 9) = 3\n");
211		$failed++;
212	}
213
214	if (index("foobarbaz", "barbaz", 10) != -1) {
215		printf("perl => index(\"foobarbaz\", \"barbaz\", 10) = %d\n",
216		    index("foobarbaz", "barbaz", 10));
217		printf("   D => index(\"foobarbaz\", \"barbaz\", 10) = -1\n");
218		$failed++;
219	}
220
221	if (rindex("foobarbaz", "barbaz", 10) != 3) {
222		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 10) = %d\n",
223		    rindex("foobarbaz", "barbaz", 10));
224		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 10) = 3\n");
225		$failed++;
226	}
227
228	if (index("foobarbaz", "barbaz", 11) != -1) {
229		printf("perl => index(\"foobarbaz\", \"barbaz\", 11) = %d\n",
230		    index("foobarbaz", "barbaz", 11));
231		printf("   D => index(\"foobarbaz\", \"barbaz\", 11) = -1\n");
232		$failed++;
233	}
234
235	if (rindex("foobarbaz", "barbaz", 11) != 3) {
236		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 11) = %d\n",
237		    rindex("foobarbaz", "barbaz", 11));
238		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 11) = 3\n");
239		$failed++;
240	}
241
242	if (index("foobarbaz", "barbaz", 400) != -1) {
243		printf("perl => index(\"foobarbaz\", \"barbaz\", 400) = %d\n",
244		    index("foobarbaz", "barbaz", 400));
245		printf("   D => index(\"foobarbaz\", \"barbaz\", 400) = -1\n");
246		$failed++;
247	}
248
249	if (rindex("foobarbaz", "barbaz", 400) != 3) {
250		printf("perl => rindex(\"foobarbaz\", \"barbaz\", 400) = %d\n",
251		    rindex("foobarbaz", "barbaz", 400));
252		printf("   D => rindex(\"foobarbaz\", \"barbaz\", 400) = 3\n");
253		$failed++;
254	}
255
256	if (index("foofoofoo", "foo", -400) != 0) {
257		printf("perl => index(\"foofoofoo\", \"foo\", -400) = %d\n",
258		    index("foofoofoo", "foo", -400));
259		printf("   D => index(\"foofoofoo\", \"foo\", -400) = 0\n");
260		$failed++;
261	}
262
263	if (rindex("foofoofoo", "foo", -400) != -1) {
264		printf("perl => rindex(\"foofoofoo\", \"foo\", -400) = %d\n",
265		    rindex("foofoofoo", "foo", -400));
266		printf("   D => rindex(\"foofoofoo\", \"foo\", -400) = -1\n");
267		$failed++;
268	}
269
270	if (index("foofoofoo", "foo", -1) != 0) {
271		printf("perl => index(\"foofoofoo\", \"foo\", -1) = %d\n",
272		    index("foofoofoo", "foo", -1));
273		printf("   D => index(\"foofoofoo\", \"foo\", -1) = 0\n");
274		$failed++;
275	}
276
277	if (rindex("foofoofoo", "foo", -1) != -1) {
278		printf("perl => rindex(\"foofoofoo\", \"foo\", -1) = %d\n",
279		    rindex("foofoofoo", "foo", -1));
280		printf("   D => rindex(\"foofoofoo\", \"foo\", -1) = -1\n");
281		$failed++;
282	}
283
284	if (index("foofoofoo", "foo", 0) != 0) {
285		printf("perl => index(\"foofoofoo\", \"foo\", 0) = %d\n",
286		    index("foofoofoo", "foo", 0));
287		printf("   D => index(\"foofoofoo\", \"foo\", 0) = 0\n");
288		$failed++;
289	}
290
291	if (rindex("foofoofoo", "foo", 0) != 0) {
292		printf("perl => rindex(\"foofoofoo\", \"foo\", 0) = %d\n",
293		    rindex("foofoofoo", "foo", 0));
294		printf("   D => rindex(\"foofoofoo\", \"foo\", 0) = 0\n");
295		$failed++;
296	}
297
298	if (index("foofoofoo", "foo", 4) != 6) {
299		printf("perl => index(\"foofoofoo\", \"foo\", 4) = %d\n",
300		    index("foofoofoo", "foo", 4));
301		printf("   D => index(\"foofoofoo\", \"foo\", 4) = 6\n");
302		$failed++;
303	}
304
305	if (rindex("foofoofoo", "foo", 4) != 3) {
306		printf("perl => rindex(\"foofoofoo\", \"foo\", 4) = %d\n",
307		    rindex("foofoofoo", "foo", 4));
308		printf("   D => rindex(\"foofoofoo\", \"foo\", 4) = 3\n");
309		$failed++;
310	}
311
312	if (index("foofoofoo", "foo", 9) != -1) {
313		printf("perl => index(\"foofoofoo\", \"foo\", 9) = %d\n",
314		    index("foofoofoo", "foo", 9));
315		printf("   D => index(\"foofoofoo\", \"foo\", 9) = -1\n");
316		$failed++;
317	}
318
319	if (rindex("foofoofoo", "foo", 9) != 6) {
320		printf("perl => rindex(\"foofoofoo\", \"foo\", 9) = %d\n",
321		    rindex("foofoofoo", "foo", 9));
322		printf("   D => rindex(\"foofoofoo\", \"foo\", 9) = 6\n");
323		$failed++;
324	}
325
326	if (index("foofoofoo", "foo", 10) != -1) {
327		printf("perl => index(\"foofoofoo\", \"foo\", 10) = %d\n",
328		    index("foofoofoo", "foo", 10));
329		printf("   D => index(\"foofoofoo\", \"foo\", 10) = -1\n");
330		$failed++;
331	}
332
333	if (rindex("foofoofoo", "foo", 10) != 6) {
334		printf("perl => rindex(\"foofoofoo\", \"foo\", 10) = %d\n",
335		    rindex("foofoofoo", "foo", 10));
336		printf("   D => rindex(\"foofoofoo\", \"foo\", 10) = 6\n");
337		$failed++;
338	}
339
340	if (index("foofoofoo", "foo", 11) != -1) {
341		printf("perl => index(\"foofoofoo\", \"foo\", 11) = %d\n",
342		    index("foofoofoo", "foo", 11));
343		printf("   D => index(\"foofoofoo\", \"foo\", 11) = -1\n");
344		$failed++;
345	}
346
347	if (rindex("foofoofoo", "foo", 11) != 6) {
348		printf("perl => rindex(\"foofoofoo\", \"foo\", 11) = %d\n",
349		    rindex("foofoofoo", "foo", 11));
350		printf("   D => rindex(\"foofoofoo\", \"foo\", 11) = 6\n");
351		$failed++;
352	}
353
354	if (index("foofoofoo", "foo", 400) != -1) {
355		printf("perl => index(\"foofoofoo\", \"foo\", 400) = %d\n",
356		    index("foofoofoo", "foo", 400));
357		printf("   D => index(\"foofoofoo\", \"foo\", 400) = -1\n");
358		$failed++;
359	}
360
361	if (rindex("foofoofoo", "foo", 400) != 6) {
362		printf("perl => rindex(\"foofoofoo\", \"foo\", 400) = %d\n",
363		    rindex("foofoofoo", "foo", 400));
364		printf("   D => rindex(\"foofoofoo\", \"foo\", 400) = 6\n");
365		$failed++;
366	}
367
368	if (index("boofoofoo", "foo", -400) != 3) {
369		printf("perl => index(\"boofoofoo\", \"foo\", -400) = %d\n",
370		    index("boofoofoo", "foo", -400));
371		printf("   D => index(\"boofoofoo\", \"foo\", -400) = 3\n");
372		$failed++;
373	}
374
375	if (rindex("boofoofoo", "foo", -400) != -1) {
376		printf("perl => rindex(\"boofoofoo\", \"foo\", -400) = %d\n",
377		    rindex("boofoofoo", "foo", -400));
378		printf("   D => rindex(\"boofoofoo\", \"foo\", -400) = -1\n");
379		$failed++;
380	}
381
382	if (index("boofoofoo", "foo", -1) != 3) {
383		printf("perl => index(\"boofoofoo\", \"foo\", -1) = %d\n",
384		    index("boofoofoo", "foo", -1));
385		printf("   D => index(\"boofoofoo\", \"foo\", -1) = 3\n");
386		$failed++;
387	}
388
389	if (rindex("boofoofoo", "foo", -1) != -1) {
390		printf("perl => rindex(\"boofoofoo\", \"foo\", -1) = %d\n",
391		    rindex("boofoofoo", "foo", -1));
392		printf("   D => rindex(\"boofoofoo\", \"foo\", -1) = -1\n");
393		$failed++;
394	}
395
396	if (index("boofoofoo", "foo", 0) != 3) {
397		printf("perl => index(\"boofoofoo\", \"foo\", 0) = %d\n",
398		    index("boofoofoo", "foo", 0));
399		printf("   D => index(\"boofoofoo\", \"foo\", 0) = 3\n");
400		$failed++;
401	}
402
403	if (rindex("boofoofoo", "foo", 0) != -1) {
404		printf("perl => rindex(\"boofoofoo\", \"foo\", 0) = %d\n",
405		    rindex("boofoofoo", "foo", 0));
406		printf("   D => rindex(\"boofoofoo\", \"foo\", 0) = -1\n");
407		$failed++;
408	}
409
410	if (index("boofoofoo", "foo", 4) != 6) {
411		printf("perl => index(\"boofoofoo\", \"foo\", 4) = %d\n",
412		    index("boofoofoo", "foo", 4));
413		printf("   D => index(\"boofoofoo\", \"foo\", 4) = 6\n");
414		$failed++;
415	}
416
417	if (rindex("boofoofoo", "foo", 4) != 3) {
418		printf("perl => rindex(\"boofoofoo\", \"foo\", 4) = %d\n",
419		    rindex("boofoofoo", "foo", 4));
420		printf("   D => rindex(\"boofoofoo\", \"foo\", 4) = 3\n");
421		$failed++;
422	}
423
424	if (index("boofoofoo", "foo", 9) != -1) {
425		printf("perl => index(\"boofoofoo\", \"foo\", 9) = %d\n",
426		    index("boofoofoo", "foo", 9));
427		printf("   D => index(\"boofoofoo\", \"foo\", 9) = -1\n");
428		$failed++;
429	}
430
431	if (rindex("boofoofoo", "foo", 9) != 6) {
432		printf("perl => rindex(\"boofoofoo\", \"foo\", 9) = %d\n",
433		    rindex("boofoofoo", "foo", 9));
434		printf("   D => rindex(\"boofoofoo\", \"foo\", 9) = 6\n");
435		$failed++;
436	}
437
438	if (index("boofoofoo", "foo", 10) != -1) {
439		printf("perl => index(\"boofoofoo\", \"foo\", 10) = %d\n",
440		    index("boofoofoo", "foo", 10));
441		printf("   D => index(\"boofoofoo\", \"foo\", 10) = -1\n");
442		$failed++;
443	}
444
445	if (rindex("boofoofoo", "foo", 10) != 6) {
446		printf("perl => rindex(\"boofoofoo\", \"foo\", 10) = %d\n",
447		    rindex("boofoofoo", "foo", 10));
448		printf("   D => rindex(\"boofoofoo\", \"foo\", 10) = 6\n");
449		$failed++;
450	}
451
452	if (index("boofoofoo", "foo", 11) != -1) {
453		printf("perl => index(\"boofoofoo\", \"foo\", 11) = %d\n",
454		    index("boofoofoo", "foo", 11));
455		printf("   D => index(\"boofoofoo\", \"foo\", 11) = -1\n");
456		$failed++;
457	}
458
459	if (rindex("boofoofoo", "foo", 11) != 6) {
460		printf("perl => rindex(\"boofoofoo\", \"foo\", 11) = %d\n",
461		    rindex("boofoofoo", "foo", 11));
462		printf("   D => rindex(\"boofoofoo\", \"foo\", 11) = 6\n");
463		$failed++;
464	}
465
466	if (index("boofoofoo", "foo", 400) != -1) {
467		printf("perl => index(\"boofoofoo\", \"foo\", 400) = %d\n",
468		    index("boofoofoo", "foo", 400));
469		printf("   D => index(\"boofoofoo\", \"foo\", 400) = -1\n");
470		$failed++;
471	}
472
473	if (rindex("boofoofoo", "foo", 400) != 6) {
474		printf("perl => rindex(\"boofoofoo\", \"foo\", 400) = %d\n",
475		    rindex("boofoofoo", "foo", 400));
476		printf("   D => rindex(\"boofoofoo\", \"foo\", 400) = 6\n");
477		$failed++;
478	}
479
480	if (index("foobarbaz", "barbazzy", -400) != -1) {
481		printf("perl => index(\"foobarbaz\", \"barbazzy\", -400) = %d\n",
482		    index("foobarbaz", "barbazzy", -400));
483		printf("   D => index(\"foobarbaz\", \"barbazzy\", -400) = -1\n");
484		$failed++;
485	}
486
487	if (rindex("foobarbaz", "barbazzy", -400) != -1) {
488		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", -400) = %d\n",
489		    rindex("foobarbaz", "barbazzy", -400));
490		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", -400) = -1\n");
491		$failed++;
492	}
493
494	if (index("foobarbaz", "barbazzy", -1) != -1) {
495		printf("perl => index(\"foobarbaz\", \"barbazzy\", -1) = %d\n",
496		    index("foobarbaz", "barbazzy", -1));
497		printf("   D => index(\"foobarbaz\", \"barbazzy\", -1) = -1\n");
498		$failed++;
499	}
500
501	if (rindex("foobarbaz", "barbazzy", -1) != -1) {
502		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", -1) = %d\n",
503		    rindex("foobarbaz", "barbazzy", -1));
504		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", -1) = -1\n");
505		$failed++;
506	}
507
508	if (index("foobarbaz", "barbazzy", 0) != -1) {
509		printf("perl => index(\"foobarbaz\", \"barbazzy\", 0) = %d\n",
510		    index("foobarbaz", "barbazzy", 0));
511		printf("   D => index(\"foobarbaz\", \"barbazzy\", 0) = -1\n");
512		$failed++;
513	}
514
515	if (rindex("foobarbaz", "barbazzy", 0) != -1) {
516		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 0) = %d\n",
517		    rindex("foobarbaz", "barbazzy", 0));
518		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 0) = -1\n");
519		$failed++;
520	}
521
522	if (index("foobarbaz", "barbazzy", 4) != -1) {
523		printf("perl => index(\"foobarbaz\", \"barbazzy\", 4) = %d\n",
524		    index("foobarbaz", "barbazzy", 4));
525		printf("   D => index(\"foobarbaz\", \"barbazzy\", 4) = -1\n");
526		$failed++;
527	}
528
529	if (rindex("foobarbaz", "barbazzy", 4) != -1) {
530		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 4) = %d\n",
531		    rindex("foobarbaz", "barbazzy", 4));
532		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 4) = -1\n");
533		$failed++;
534	}
535
536	if (index("foobarbaz", "barbazzy", 9) != -1) {
537		printf("perl => index(\"foobarbaz\", \"barbazzy\", 9) = %d\n",
538		    index("foobarbaz", "barbazzy", 9));
539		printf("   D => index(\"foobarbaz\", \"barbazzy\", 9) = -1\n");
540		$failed++;
541	}
542
543	if (rindex("foobarbaz", "barbazzy", 9) != -1) {
544		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 9) = %d\n",
545		    rindex("foobarbaz", "barbazzy", 9));
546		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 9) = -1\n");
547		$failed++;
548	}
549
550	if (index("foobarbaz", "barbazzy", 10) != -1) {
551		printf("perl => index(\"foobarbaz\", \"barbazzy\", 10) = %d\n",
552		    index("foobarbaz", "barbazzy", 10));
553		printf("   D => index(\"foobarbaz\", \"barbazzy\", 10) = -1\n");
554		$failed++;
555	}
556
557	if (rindex("foobarbaz", "barbazzy", 10) != -1) {
558		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 10) = %d\n",
559		    rindex("foobarbaz", "barbazzy", 10));
560		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 10) = -1\n");
561		$failed++;
562	}
563
564	if (index("foobarbaz", "barbazzy", 11) != -1) {
565		printf("perl => index(\"foobarbaz\", \"barbazzy\", 11) = %d\n",
566		    index("foobarbaz", "barbazzy", 11));
567		printf("   D => index(\"foobarbaz\", \"barbazzy\", 11) = -1\n");
568		$failed++;
569	}
570
571	if (rindex("foobarbaz", "barbazzy", 11) != -1) {
572		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 11) = %d\n",
573		    rindex("foobarbaz", "barbazzy", 11));
574		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 11) = -1\n");
575		$failed++;
576	}
577
578	if (index("foobarbaz", "barbazzy", 400) != -1) {
579		printf("perl => index(\"foobarbaz\", \"barbazzy\", 400) = %d\n",
580		    index("foobarbaz", "barbazzy", 400));
581		printf("   D => index(\"foobarbaz\", \"barbazzy\", 400) = -1\n");
582		$failed++;
583	}
584
585	if (rindex("foobarbaz", "barbazzy", 400) != -1) {
586		printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 400) = %d\n",
587		    rindex("foobarbaz", "barbazzy", 400));
588		printf("   D => rindex(\"foobarbaz\", \"barbazzy\", 400) = -1\n");
589		$failed++;
590	}
591
592	if (index("foobar", "foobar", -400) != 0) {
593		printf("perl => index(\"foobar\", \"foobar\", -400) = %d\n",
594		    index("foobar", "foobar", -400));
595		printf("   D => index(\"foobar\", \"foobar\", -400) = 0\n");
596		$failed++;
597	}
598
599	if (rindex("foobar", "foobar", -400) != -1) {
600		printf("perl => rindex(\"foobar\", \"foobar\", -400) = %d\n",
601		    rindex("foobar", "foobar", -400));
602		printf("   D => rindex(\"foobar\", \"foobar\", -400) = -1\n");
603		$failed++;
604	}
605
606	if (index("foobar", "foobar", -1) != 0) {
607		printf("perl => index(\"foobar\", \"foobar\", -1) = %d\n",
608		    index("foobar", "foobar", -1));
609		printf("   D => index(\"foobar\", \"foobar\", -1) = 0\n");
610		$failed++;
611	}
612
613	if (rindex("foobar", "foobar", -1) != -1) {
614		printf("perl => rindex(\"foobar\", \"foobar\", -1) = %d\n",
615		    rindex("foobar", "foobar", -1));
616		printf("   D => rindex(\"foobar\", \"foobar\", -1) = -1\n");
617		$failed++;
618	}
619
620	if (index("foobar", "foobar", 0) != 0) {
621		printf("perl => index(\"foobar\", \"foobar\", 0) = %d\n",
622		    index("foobar", "foobar", 0));
623		printf("   D => index(\"foobar\", \"foobar\", 0) = 0\n");
624		$failed++;
625	}
626
627	if (rindex("foobar", "foobar", 0) != 0) {
628		printf("perl => rindex(\"foobar\", \"foobar\", 0) = %d\n",
629		    rindex("foobar", "foobar", 0));
630		printf("   D => rindex(\"foobar\", \"foobar\", 0) = 0\n");
631		$failed++;
632	}
633
634	if (index("foobar", "foobar", 3) != -1) {
635		printf("perl => index(\"foobar\", \"foobar\", 3) = %d\n",
636		    index("foobar", "foobar", 3));
637		printf("   D => index(\"foobar\", \"foobar\", 3) = -1\n");
638		$failed++;
639	}
640
641	if (rindex("foobar", "foobar", 3) != 0) {
642		printf("perl => rindex(\"foobar\", \"foobar\", 3) = %d\n",
643		    rindex("foobar", "foobar", 3));
644		printf("   D => rindex(\"foobar\", \"foobar\", 3) = 0\n");
645		$failed++;
646	}
647
648	if (index("foobar", "foobar", 6) != -1) {
649		printf("perl => index(\"foobar\", \"foobar\", 6) = %d\n",
650		    index("foobar", "foobar", 6));
651		printf("   D => index(\"foobar\", \"foobar\", 6) = -1\n");
652		$failed++;
653	}
654
655	if (rindex("foobar", "foobar", 6) != 0) {
656		printf("perl => rindex(\"foobar\", \"foobar\", 6) = %d\n",
657		    rindex("foobar", "foobar", 6));
658		printf("   D => rindex(\"foobar\", \"foobar\", 6) = 0\n");
659		$failed++;
660	}
661
662	if (index("foobar", "foobar", 7) != -1) {
663		printf("perl => index(\"foobar\", \"foobar\", 7) = %d\n",
664		    index("foobar", "foobar", 7));
665		printf("   D => index(\"foobar\", \"foobar\", 7) = -1\n");
666		$failed++;
667	}
668
669	if (rindex("foobar", "foobar", 7) != 0) {
670		printf("perl => rindex(\"foobar\", \"foobar\", 7) = %d\n",
671		    rindex("foobar", "foobar", 7));
672		printf("   D => rindex(\"foobar\", \"foobar\", 7) = 0\n");
673		$failed++;
674	}
675
676	if (index("foobar", "foobar", 8) != -1) {
677		printf("perl => index(\"foobar\", \"foobar\", 8) = %d\n",
678		    index("foobar", "foobar", 8));
679		printf("   D => index(\"foobar\", \"foobar\", 8) = -1\n");
680		$failed++;
681	}
682
683	if (rindex("foobar", "foobar", 8) != 0) {
684		printf("perl => rindex(\"foobar\", \"foobar\", 8) = %d\n",
685		    rindex("foobar", "foobar", 8));
686		printf("   D => rindex(\"foobar\", \"foobar\", 8) = 0\n");
687		$failed++;
688	}
689
690	if (index("foobar", "foobar", 400) != -1) {
691		printf("perl => index(\"foobar\", \"foobar\", 400) = %d\n",
692		    index("foobar", "foobar", 400));
693		printf("   D => index(\"foobar\", \"foobar\", 400) = -1\n");
694		$failed++;
695	}
696
697	if (rindex("foobar", "foobar", 400) != 0) {
698		printf("perl => rindex(\"foobar\", \"foobar\", 400) = %d\n",
699		    rindex("foobar", "foobar", 400));
700		printf("   D => rindex(\"foobar\", \"foobar\", 400) = 0\n");
701		$failed++;
702	}
703
704	if (index("foobar", "foobarbaz", -400) != -1) {
705		printf("perl => index(\"foobar\", \"foobarbaz\", -400) = %d\n",
706		    index("foobar", "foobarbaz", -400));
707		printf("   D => index(\"foobar\", \"foobarbaz\", -400) = -1\n");
708		$failed++;
709	}
710
711	if (rindex("foobar", "foobarbaz", -400) != -1) {
712		printf("perl => rindex(\"foobar\", \"foobarbaz\", -400) = %d\n",
713		    rindex("foobar", "foobarbaz", -400));
714		printf("   D => rindex(\"foobar\", \"foobarbaz\", -400) = -1\n");
715		$failed++;
716	}
717
718	if (index("foobar", "foobarbaz", -1) != -1) {
719		printf("perl => index(\"foobar\", \"foobarbaz\", -1) = %d\n",
720		    index("foobar", "foobarbaz", -1));
721		printf("   D => index(\"foobar\", \"foobarbaz\", -1) = -1\n");
722		$failed++;
723	}
724
725	if (rindex("foobar", "foobarbaz", -1) != -1) {
726		printf("perl => rindex(\"foobar\", \"foobarbaz\", -1) = %d\n",
727		    rindex("foobar", "foobarbaz", -1));
728		printf("   D => rindex(\"foobar\", \"foobarbaz\", -1) = -1\n");
729		$failed++;
730	}
731
732	if (index("foobar", "foobarbaz", 0) != -1) {
733		printf("perl => index(\"foobar\", \"foobarbaz\", 0) = %d\n",
734		    index("foobar", "foobarbaz", 0));
735		printf("   D => index(\"foobar\", \"foobarbaz\", 0) = -1\n");
736		$failed++;
737	}
738
739	if (rindex("foobar", "foobarbaz", 0) != -1) {
740		printf("perl => rindex(\"foobar\", \"foobarbaz\", 0) = %d\n",
741		    rindex("foobar", "foobarbaz", 0));
742		printf("   D => rindex(\"foobar\", \"foobarbaz\", 0) = -1\n");
743		$failed++;
744	}
745
746	if (index("foobar", "foobarbaz", 3) != -1) {
747		printf("perl => index(\"foobar\", \"foobarbaz\", 3) = %d\n",
748		    index("foobar", "foobarbaz", 3));
749		printf("   D => index(\"foobar\", \"foobarbaz\", 3) = -1\n");
750		$failed++;
751	}
752
753	if (rindex("foobar", "foobarbaz", 3) != -1) {
754		printf("perl => rindex(\"foobar\", \"foobarbaz\", 3) = %d\n",
755		    rindex("foobar", "foobarbaz", 3));
756		printf("   D => rindex(\"foobar\", \"foobarbaz\", 3) = -1\n");
757		$failed++;
758	}
759
760	if (index("foobar", "foobarbaz", 6) != -1) {
761		printf("perl => index(\"foobar\", \"foobarbaz\", 6) = %d\n",
762		    index("foobar", "foobarbaz", 6));
763		printf("   D => index(\"foobar\", \"foobarbaz\", 6) = -1\n");
764		$failed++;
765	}
766
767	if (rindex("foobar", "foobarbaz", 6) != -1) {
768		printf("perl => rindex(\"foobar\", \"foobarbaz\", 6) = %d\n",
769		    rindex("foobar", "foobarbaz", 6));
770		printf("   D => rindex(\"foobar\", \"foobarbaz\", 6) = -1\n");
771		$failed++;
772	}
773
774	if (index("foobar", "foobarbaz", 7) != -1) {
775		printf("perl => index(\"foobar\", \"foobarbaz\", 7) = %d\n",
776		    index("foobar", "foobarbaz", 7));
777		printf("   D => index(\"foobar\", \"foobarbaz\", 7) = -1\n");
778		$failed++;
779	}
780
781	if (rindex("foobar", "foobarbaz", 7) != -1) {
782		printf("perl => rindex(\"foobar\", \"foobarbaz\", 7) = %d\n",
783		    rindex("foobar", "foobarbaz", 7));
784		printf("   D => rindex(\"foobar\", \"foobarbaz\", 7) = -1\n");
785		$failed++;
786	}
787
788	if (index("foobar", "foobarbaz", 8) != -1) {
789		printf("perl => index(\"foobar\", \"foobarbaz\", 8) = %d\n",
790		    index("foobar", "foobarbaz", 8));
791		printf("   D => index(\"foobar\", \"foobarbaz\", 8) = -1\n");
792		$failed++;
793	}
794
795	if (rindex("foobar", "foobarbaz", 8) != -1) {
796		printf("perl => rindex(\"foobar\", \"foobarbaz\", 8) = %d\n",
797		    rindex("foobar", "foobarbaz", 8));
798		printf("   D => rindex(\"foobar\", \"foobarbaz\", 8) = -1\n");
799		$failed++;
800	}
801
802	if (index("foobar", "foobarbaz", 400) != -1) {
803		printf("perl => index(\"foobar\", \"foobarbaz\", 400) = %d\n",
804		    index("foobar", "foobarbaz", 400));
805		printf("   D => index(\"foobar\", \"foobarbaz\", 400) = -1\n");
806		$failed++;
807	}
808
809	if (rindex("foobar", "foobarbaz", 400) != -1) {
810		printf("perl => rindex(\"foobar\", \"foobarbaz\", 400) = %d\n",
811		    rindex("foobar", "foobarbaz", 400));
812		printf("   D => rindex(\"foobar\", \"foobarbaz\", 400) = -1\n");
813		$failed++;
814	}
815
816	if (index("", "foobar", -400) != -1) {
817		printf("perl => index(\"\", \"foobar\", -400) = %d\n",
818		    index("", "foobar", -400));
819		printf("   D => index(\"\", \"foobar\", -400) = -1\n");
820		$failed++;
821	}
822
823	if (rindex("", "foobar", -400) != -1) {
824		printf("perl => rindex(\"\", \"foobar\", -400) = %d\n",
825		    rindex("", "foobar", -400));
826		printf("   D => rindex(\"\", \"foobar\", -400) = -1\n");
827		$failed++;
828	}
829
830	if (index("", "foobar", -1) != -1) {
831		printf("perl => index(\"\", \"foobar\", -1) = %d\n",
832		    index("", "foobar", -1));
833		printf("   D => index(\"\", \"foobar\", -1) = -1\n");
834		$failed++;
835	}
836
837	if (rindex("", "foobar", -1) != -1) {
838		printf("perl => rindex(\"\", \"foobar\", -1) = %d\n",
839		    rindex("", "foobar", -1));
840		printf("   D => rindex(\"\", \"foobar\", -1) = -1\n");
841		$failed++;
842	}
843
844	if (index("", "foobar", 0) != -1) {
845		printf("perl => index(\"\", \"foobar\", 0) = %d\n",
846		    index("", "foobar", 0));
847		printf("   D => index(\"\", \"foobar\", 0) = -1\n");
848		$failed++;
849	}
850
851	if (rindex("", "foobar", 0) != -1) {
852		printf("perl => rindex(\"\", \"foobar\", 0) = %d\n",
853		    rindex("", "foobar", 0));
854		printf("   D => rindex(\"\", \"foobar\", 0) = -1\n");
855		$failed++;
856	}
857
858	if (index("", "foobar", 0) != -1) {
859		printf("perl => index(\"\", \"foobar\", 0) = %d\n",
860		    index("", "foobar", 0));
861		printf("   D => index(\"\", \"foobar\", 0) = -1\n");
862		$failed++;
863	}
864
865	if (rindex("", "foobar", 0) != -1) {
866		printf("perl => rindex(\"\", \"foobar\", 0) = %d\n",
867		    rindex("", "foobar", 0));
868		printf("   D => rindex(\"\", \"foobar\", 0) = -1\n");
869		$failed++;
870	}
871
872	if (index("", "foobar", 0) != -1) {
873		printf("perl => index(\"\", \"foobar\", 0) = %d\n",
874		    index("", "foobar", 0));
875		printf("   D => index(\"\", \"foobar\", 0) = -1\n");
876		$failed++;
877	}
878
879	if (rindex("", "foobar", 0) != -1) {
880		printf("perl => rindex(\"\", \"foobar\", 0) = %d\n",
881		    rindex("", "foobar", 0));
882		printf("   D => rindex(\"\", \"foobar\", 0) = -1\n");
883		$failed++;
884	}
885
886	if (index("", "foobar", 1) != -1) {
887		printf("perl => index(\"\", \"foobar\", 1) = %d\n",
888		    index("", "foobar", 1));
889		printf("   D => index(\"\", \"foobar\", 1) = -1\n");
890		$failed++;
891	}
892
893	if (rindex("", "foobar", 1) != -1) {
894		printf("perl => rindex(\"\", \"foobar\", 1) = %d\n",
895		    rindex("", "foobar", 1));
896		printf("   D => rindex(\"\", \"foobar\", 1) = -1\n");
897		$failed++;
898	}
899
900	if (index("", "foobar", 2) != -1) {
901		printf("perl => index(\"\", \"foobar\", 2) = %d\n",
902		    index("", "foobar", 2));
903		printf("   D => index(\"\", \"foobar\", 2) = -1\n");
904		$failed++;
905	}
906
907	if (rindex("", "foobar", 2) != -1) {
908		printf("perl => rindex(\"\", \"foobar\", 2) = %d\n",
909		    rindex("", "foobar", 2));
910		printf("   D => rindex(\"\", \"foobar\", 2) = -1\n");
911		$failed++;
912	}
913
914	if (index("", "foobar", 400) != -1) {
915		printf("perl => index(\"\", \"foobar\", 400) = %d\n",
916		    index("", "foobar", 400));
917		printf("   D => index(\"\", \"foobar\", 400) = -1\n");
918		$failed++;
919	}
920
921	if (rindex("", "foobar", 400) != -1) {
922		printf("perl => rindex(\"\", \"foobar\", 400) = %d\n",
923		    rindex("", "foobar", 400));
924		printf("   D => rindex(\"\", \"foobar\", 400) = -1\n");
925		$failed++;
926	}
927
928	if (index("foobar", "", -400) != 0) {
929		printf("perl => index(\"foobar\", \"\", -400) = %d\n",
930		    index("foobar", "", -400));
931		printf("   D => index(\"foobar\", \"\", -400) = 0\n");
932		$failed++;
933	}
934
935	if (rindex("foobar", "", -400) != 0) {
936		printf("perl => rindex(\"foobar\", \"\", -400) = %d\n",
937		    rindex("foobar", "", -400));
938		printf("   D => rindex(\"foobar\", \"\", -400) = 0\n");
939		$failed++;
940	}
941
942	if (index("foobar", "", -1) != 0) {
943		printf("perl => index(\"foobar\", \"\", -1) = %d\n",
944		    index("foobar", "", -1));
945		printf("   D => index(\"foobar\", \"\", -1) = 0\n");
946		$failed++;
947	}
948
949	if (rindex("foobar", "", -1) != 0) {
950		printf("perl => rindex(\"foobar\", \"\", -1) = %d\n",
951		    rindex("foobar", "", -1));
952		printf("   D => rindex(\"foobar\", \"\", -1) = 0\n");
953		$failed++;
954	}
955
956	if (index("foobar", "", 0) != 0) {
957		printf("perl => index(\"foobar\", \"\", 0) = %d\n",
958		    index("foobar", "", 0));
959		printf("   D => index(\"foobar\", \"\", 0) = 0\n");
960		$failed++;
961	}
962
963	if (rindex("foobar", "", 0) != 0) {
964		printf("perl => rindex(\"foobar\", \"\", 0) = %d\n",
965		    rindex("foobar", "", 0));
966		printf("   D => rindex(\"foobar\", \"\", 0) = 0\n");
967		$failed++;
968	}
969
970	if (index("foobar", "", 3) != 3) {
971		printf("perl => index(\"foobar\", \"\", 3) = %d\n",
972		    index("foobar", "", 3));
973		printf("   D => index(\"foobar\", \"\", 3) = 3\n");
974		$failed++;
975	}
976
977	if (rindex("foobar", "", 3) != 3) {
978		printf("perl => rindex(\"foobar\", \"\", 3) = %d\n",
979		    rindex("foobar", "", 3));
980		printf("   D => rindex(\"foobar\", \"\", 3) = 3\n");
981		$failed++;
982	}
983
984	if (index("foobar", "", 6) != 6) {
985		printf("perl => index(\"foobar\", \"\", 6) = %d\n",
986		    index("foobar", "", 6));
987		printf("   D => index(\"foobar\", \"\", 6) = 6\n");
988		$failed++;
989	}
990
991	if (rindex("foobar", "", 6) != 6) {
992		printf("perl => rindex(\"foobar\", \"\", 6) = %d\n",
993		    rindex("foobar", "", 6));
994		printf("   D => rindex(\"foobar\", \"\", 6) = 6\n");
995		$failed++;
996	}
997
998	if (index("foobar", "", 7) != 6) {
999		printf("perl => index(\"foobar\", \"\", 7) = %d\n",
1000		    index("foobar", "", 7));
1001		printf("   D => index(\"foobar\", \"\", 7) = 6\n");
1002		$failed++;
1003	}
1004
1005	if (rindex("foobar", "", 7) != 6) {
1006		printf("perl => rindex(\"foobar\", \"\", 7) = %d\n",
1007		    rindex("foobar", "", 7));
1008		printf("   D => rindex(\"foobar\", \"\", 7) = 6\n");
1009		$failed++;
1010	}
1011
1012	if (index("foobar", "", 8) != 6) {
1013		printf("perl => index(\"foobar\", \"\", 8) = %d\n",
1014		    index("foobar", "", 8));
1015		printf("   D => index(\"foobar\", \"\", 8) = 6\n");
1016		$failed++;
1017	}
1018
1019	if (rindex("foobar", "", 8) != 6) {
1020		printf("perl => rindex(\"foobar\", \"\", 8) = %d\n",
1021		    rindex("foobar", "", 8));
1022		printf("   D => rindex(\"foobar\", \"\", 8) = 6\n");
1023		$failed++;
1024	}
1025
1026	if (index("foobar", "", 400) != 6) {
1027		printf("perl => index(\"foobar\", \"\", 400) = %d\n",
1028		    index("foobar", "", 400));
1029		printf("   D => index(\"foobar\", \"\", 400) = 6\n");
1030		$failed++;
1031	}
1032
1033	if (rindex("foobar", "", 400) != 6) {
1034		printf("perl => rindex(\"foobar\", \"\", 400) = %d\n",
1035		    rindex("foobar", "", 400));
1036		printf("   D => rindex(\"foobar\", \"\", 400) = 6\n");
1037		$failed++;
1038	}
1039
1040	if (index("", "", -400) != 0) {
1041		printf("perl => index(\"\", \"\", -400) = %d\n",
1042		    index("", "", -400));
1043		printf("   D => index(\"\", \"\", -400) = 0\n");
1044		$failed++;
1045	}
1046
1047	if (rindex("", "", -400) != 0) {
1048		printf("perl => rindex(\"\", \"\", -400) = %d\n",
1049		    rindex("", "", -400));
1050		printf("   D => rindex(\"\", \"\", -400) = 0\n");
1051		$failed++;
1052	}
1053
1054	if (index("", "", -1) != 0) {
1055		printf("perl => index(\"\", \"\", -1) = %d\n",
1056		    index("", "", -1));
1057		printf("   D => index(\"\", \"\", -1) = 0\n");
1058		$failed++;
1059	}
1060
1061	if (rindex("", "", -1) != 0) {
1062		printf("perl => rindex(\"\", \"\", -1) = %d\n",
1063		    rindex("", "", -1));
1064		printf("   D => rindex(\"\", \"\", -1) = 0\n");
1065		$failed++;
1066	}
1067
1068	if (index("", "", 0) != 0) {
1069		printf("perl => index(\"\", \"\", 0) = %d\n",
1070		    index("", "", 0));
1071		printf("   D => index(\"\", \"\", 0) = 0\n");
1072		$failed++;
1073	}
1074
1075	if (rindex("", "", 0) != 0) {
1076		printf("perl => rindex(\"\", \"\", 0) = %d\n",
1077		    rindex("", "", 0));
1078		printf("   D => rindex(\"\", \"\", 0) = 0\n");
1079		$failed++;
1080	}
1081
1082	if (index("", "", 0) != 0) {
1083		printf("perl => index(\"\", \"\", 0) = %d\n",
1084		    index("", "", 0));
1085		printf("   D => index(\"\", \"\", 0) = 0\n");
1086		$failed++;
1087	}
1088
1089	if (rindex("", "", 0) != 0) {
1090		printf("perl => rindex(\"\", \"\", 0) = %d\n",
1091		    rindex("", "", 0));
1092		printf("   D => rindex(\"\", \"\", 0) = 0\n");
1093		$failed++;
1094	}
1095
1096	if (index("", "", 0) != 0) {
1097		printf("perl => index(\"\", \"\", 0) = %d\n",
1098		    index("", "", 0));
1099		printf("   D => index(\"\", \"\", 0) = 0\n");
1100		$failed++;
1101	}
1102
1103	if (rindex("", "", 0) != 0) {
1104		printf("perl => rindex(\"\", \"\", 0) = %d\n",
1105		    rindex("", "", 0));
1106		printf("   D => rindex(\"\", \"\", 0) = 0\n");
1107		$failed++;
1108	}
1109
1110	if (index("", "", 1) != 0) {
1111		printf("perl => index(\"\", \"\", 1) = %d\n",
1112		    index("", "", 1));
1113		printf("   D => index(\"\", \"\", 1) = 0\n");
1114		$failed++;
1115	}
1116
1117	if (rindex("", "", 1) != 0) {
1118		printf("perl => rindex(\"\", \"\", 1) = %d\n",
1119		    rindex("", "", 1));
1120		printf("   D => rindex(\"\", \"\", 1) = 0\n");
1121		$failed++;
1122	}
1123
1124	exit($failed);
1125}
1126
1127