1178476Sjb#!/usr/perl5/bin/perl 2178476Sjb 3178476SjbBEGIN { 4178476Sjb if (index("foobarbaz", "barbaz") != 3) { 5178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\") = %d\n", 6178476Sjb index("foobarbaz", "barbaz")); 7178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\") = 3\n"); 8178476Sjb $failed++; 9178476Sjb } 10178476Sjb 11178476Sjb if (rindex("foobarbaz", "barbaz") != 3) { 12178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\") = %d\n", 13178476Sjb rindex("foobarbaz", "barbaz")); 14178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\") = 3\n"); 15178476Sjb $failed++; 16178476Sjb } 17178476Sjb 18178476Sjb if (index("foofoofoo", "foo") != 0) { 19178476Sjb printf("perl => index(\"foofoofoo\", \"foo\") = %d\n", 20178476Sjb index("foofoofoo", "foo")); 21178476Sjb printf(" D => index(\"foofoofoo\", \"foo\") = 0\n"); 22178476Sjb $failed++; 23178476Sjb } 24178476Sjb 25178476Sjb if (rindex("foofoofoo", "foo") != 6) { 26178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\") = %d\n", 27178476Sjb rindex("foofoofoo", "foo")); 28178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\") = 6\n"); 29178476Sjb $failed++; 30178476Sjb } 31178476Sjb 32178476Sjb if (index("boofoofoo", "foo") != 3) { 33178476Sjb printf("perl => index(\"boofoofoo\", \"foo\") = %d\n", 34178476Sjb index("boofoofoo", "foo")); 35178476Sjb printf(" D => index(\"boofoofoo\", \"foo\") = 3\n"); 36178476Sjb $failed++; 37178476Sjb } 38178476Sjb 39178476Sjb if (rindex("boofoofoo", "foo") != 6) { 40178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\") = %d\n", 41178476Sjb rindex("boofoofoo", "foo")); 42178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\") = 6\n"); 43178476Sjb $failed++; 44178476Sjb } 45178476Sjb 46178476Sjb if (index("foobarbaz", "barbazzy") != -1) { 47178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\") = %d\n", 48178476Sjb index("foobarbaz", "barbazzy")); 49178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\") = -1\n"); 50178476Sjb $failed++; 51178476Sjb } 52178476Sjb 53178476Sjb if (rindex("foobarbaz", "barbazzy") != -1) { 54178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\") = %d\n", 55178476Sjb rindex("foobarbaz", "barbazzy")); 56178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\") = -1\n"); 57178476Sjb $failed++; 58178476Sjb } 59178476Sjb 60178476Sjb if (index("foobar", "foobar") != 0) { 61178476Sjb printf("perl => index(\"foobar\", \"foobar\") = %d\n", 62178476Sjb index("foobar", "foobar")); 63178476Sjb printf(" D => index(\"foobar\", \"foobar\") = 0\n"); 64178476Sjb $failed++; 65178476Sjb } 66178476Sjb 67178476Sjb if (rindex("foobar", "foobar") != 0) { 68178476Sjb printf("perl => rindex(\"foobar\", \"foobar\") = %d\n", 69178476Sjb rindex("foobar", "foobar")); 70178476Sjb printf(" D => rindex(\"foobar\", \"foobar\") = 0\n"); 71178476Sjb $failed++; 72178476Sjb } 73178476Sjb 74178476Sjb if (index("foobar", "foobarbaz") != -1) { 75178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\") = %d\n", 76178476Sjb index("foobar", "foobarbaz")); 77178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\") = -1\n"); 78178476Sjb $failed++; 79178476Sjb } 80178476Sjb 81178476Sjb if (rindex("foobar", "foobarbaz") != -1) { 82178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\") = %d\n", 83178476Sjb rindex("foobar", "foobarbaz")); 84178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\") = -1\n"); 85178476Sjb $failed++; 86178476Sjb } 87178476Sjb 88178476Sjb if (index("", "foobar") != -1) { 89178476Sjb printf("perl => index(\"\", \"foobar\") = %d\n", 90178476Sjb index("", "foobar")); 91178476Sjb printf(" D => index(\"\", \"foobar\") = -1\n"); 92178476Sjb $failed++; 93178476Sjb } 94178476Sjb 95178476Sjb if (rindex("", "foobar") != -1) { 96178476Sjb printf("perl => rindex(\"\", \"foobar\") = %d\n", 97178476Sjb rindex("", "foobar")); 98178476Sjb printf(" D => rindex(\"\", \"foobar\") = -1\n"); 99178476Sjb $failed++; 100178476Sjb } 101178476Sjb 102178476Sjb if (index("foobar", "") != 0) { 103178476Sjb printf("perl => index(\"foobar\", \"\") = %d\n", 104178476Sjb index("foobar", "")); 105178476Sjb printf(" D => index(\"foobar\", \"\") = 0\n"); 106178476Sjb $failed++; 107178476Sjb } 108178476Sjb 109178476Sjb if (rindex("foobar", "") != 6) { 110178476Sjb printf("perl => rindex(\"foobar\", \"\") = %d\n", 111178476Sjb rindex("foobar", "")); 112178476Sjb printf(" D => rindex(\"foobar\", \"\") = 6\n"); 113178476Sjb $failed++; 114178476Sjb } 115178476Sjb 116178476Sjb if (index("", "") != 0) { 117178476Sjb printf("perl => index(\"\", \"\") = %d\n", 118178476Sjb index("", "")); 119178476Sjb printf(" D => index(\"\", \"\") = 0\n"); 120178476Sjb $failed++; 121178476Sjb } 122178476Sjb 123178476Sjb if (rindex("", "") != 0) { 124178476Sjb printf("perl => rindex(\"\", \"\") = %d\n", 125178476Sjb rindex("", "")); 126178476Sjb printf(" D => rindex(\"\", \"\") = 0\n"); 127178476Sjb $failed++; 128178476Sjb } 129178476Sjb 130178476Sjb if (index("foo", "") != 0) { 131178476Sjb printf("perl => index(\"foo\", \"\") = %d\n", 132178476Sjb index("foo", "")); 133178476Sjb printf(" D => index(\"foo\", \"\") = 0\n"); 134178476Sjb $failed++; 135178476Sjb } 136178476Sjb 137178476Sjb if (rindex("foo", "") != 3) { 138178476Sjb printf("perl => rindex(\"foo\", \"\") = %d\n", 139178476Sjb rindex("foo", "")); 140178476Sjb printf(" D => rindex(\"foo\", \"\") = 3\n"); 141178476Sjb $failed++; 142178476Sjb } 143178476Sjb 144178476Sjb if (index("foobarbaz", "barbaz", -400) != 3) { 145178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", -400) = %d\n", 146178476Sjb index("foobarbaz", "barbaz", -400)); 147178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", -400) = 3\n"); 148178476Sjb $failed++; 149178476Sjb } 150178476Sjb 151178476Sjb if (rindex("foobarbaz", "barbaz", -400) != -1) { 152178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", -400) = %d\n", 153178476Sjb rindex("foobarbaz", "barbaz", -400)); 154178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", -400) = -1\n"); 155178476Sjb $failed++; 156178476Sjb } 157178476Sjb 158178476Sjb if (index("foobarbaz", "barbaz", -1) != 3) { 159178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", -1) = %d\n", 160178476Sjb index("foobarbaz", "barbaz", -1)); 161178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", -1) = 3\n"); 162178476Sjb $failed++; 163178476Sjb } 164178476Sjb 165178476Sjb if (rindex("foobarbaz", "barbaz", -1) != -1) { 166178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", -1) = %d\n", 167178476Sjb rindex("foobarbaz", "barbaz", -1)); 168178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", -1) = -1\n"); 169178476Sjb $failed++; 170178476Sjb } 171178476Sjb 172178476Sjb if (index("foobarbaz", "barbaz", 0) != 3) { 173178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 0) = %d\n", 174178476Sjb index("foobarbaz", "barbaz", 0)); 175178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 0) = 3\n"); 176178476Sjb $failed++; 177178476Sjb } 178178476Sjb 179178476Sjb if (rindex("foobarbaz", "barbaz", 0) != -1) { 180178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 0) = %d\n", 181178476Sjb rindex("foobarbaz", "barbaz", 0)); 182178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 0) = -1\n"); 183178476Sjb $failed++; 184178476Sjb } 185178476Sjb 186178476Sjb if (index("foobarbaz", "barbaz", 4) != -1) { 187178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 4) = %d\n", 188178476Sjb index("foobarbaz", "barbaz", 4)); 189178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 4) = -1\n"); 190178476Sjb $failed++; 191178476Sjb } 192178476Sjb 193178476Sjb if (rindex("foobarbaz", "barbaz", 4) != 3) { 194178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 4) = %d\n", 195178476Sjb rindex("foobarbaz", "barbaz", 4)); 196178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 4) = 3\n"); 197178476Sjb $failed++; 198178476Sjb } 199178476Sjb 200178476Sjb if (index("foobarbaz", "barbaz", 9) != -1) { 201178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 9) = %d\n", 202178476Sjb index("foobarbaz", "barbaz", 9)); 203178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 9) = -1\n"); 204178476Sjb $failed++; 205178476Sjb } 206178476Sjb 207178476Sjb if (rindex("foobarbaz", "barbaz", 9) != 3) { 208178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 9) = %d\n", 209178476Sjb rindex("foobarbaz", "barbaz", 9)); 210178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 9) = 3\n"); 211178476Sjb $failed++; 212178476Sjb } 213178476Sjb 214178476Sjb if (index("foobarbaz", "barbaz", 10) != -1) { 215178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 10) = %d\n", 216178476Sjb index("foobarbaz", "barbaz", 10)); 217178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 10) = -1\n"); 218178476Sjb $failed++; 219178476Sjb } 220178476Sjb 221178476Sjb if (rindex("foobarbaz", "barbaz", 10) != 3) { 222178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 10) = %d\n", 223178476Sjb rindex("foobarbaz", "barbaz", 10)); 224178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 10) = 3\n"); 225178476Sjb $failed++; 226178476Sjb } 227178476Sjb 228178476Sjb if (index("foobarbaz", "barbaz", 11) != -1) { 229178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 11) = %d\n", 230178476Sjb index("foobarbaz", "barbaz", 11)); 231178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 11) = -1\n"); 232178476Sjb $failed++; 233178476Sjb } 234178476Sjb 235178476Sjb if (rindex("foobarbaz", "barbaz", 11) != 3) { 236178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 11) = %d\n", 237178476Sjb rindex("foobarbaz", "barbaz", 11)); 238178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 11) = 3\n"); 239178476Sjb $failed++; 240178476Sjb } 241178476Sjb 242178476Sjb if (index("foobarbaz", "barbaz", 400) != -1) { 243178476Sjb printf("perl => index(\"foobarbaz\", \"barbaz\", 400) = %d\n", 244178476Sjb index("foobarbaz", "barbaz", 400)); 245178476Sjb printf(" D => index(\"foobarbaz\", \"barbaz\", 400) = -1\n"); 246178476Sjb $failed++; 247178476Sjb } 248178476Sjb 249178476Sjb if (rindex("foobarbaz", "barbaz", 400) != 3) { 250178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbaz\", 400) = %d\n", 251178476Sjb rindex("foobarbaz", "barbaz", 400)); 252178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbaz\", 400) = 3\n"); 253178476Sjb $failed++; 254178476Sjb } 255178476Sjb 256178476Sjb if (index("foofoofoo", "foo", -400) != 0) { 257178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", -400) = %d\n", 258178476Sjb index("foofoofoo", "foo", -400)); 259178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", -400) = 0\n"); 260178476Sjb $failed++; 261178476Sjb } 262178476Sjb 263178476Sjb if (rindex("foofoofoo", "foo", -400) != -1) { 264178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", -400) = %d\n", 265178476Sjb rindex("foofoofoo", "foo", -400)); 266178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", -400) = -1\n"); 267178476Sjb $failed++; 268178476Sjb } 269178476Sjb 270178476Sjb if (index("foofoofoo", "foo", -1) != 0) { 271178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", -1) = %d\n", 272178476Sjb index("foofoofoo", "foo", -1)); 273178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", -1) = 0\n"); 274178476Sjb $failed++; 275178476Sjb } 276178476Sjb 277178476Sjb if (rindex("foofoofoo", "foo", -1) != -1) { 278178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", -1) = %d\n", 279178476Sjb rindex("foofoofoo", "foo", -1)); 280178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", -1) = -1\n"); 281178476Sjb $failed++; 282178476Sjb } 283178476Sjb 284178476Sjb if (index("foofoofoo", "foo", 0) != 0) { 285178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 0) = %d\n", 286178476Sjb index("foofoofoo", "foo", 0)); 287178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 0) = 0\n"); 288178476Sjb $failed++; 289178476Sjb } 290178476Sjb 291178476Sjb if (rindex("foofoofoo", "foo", 0) != 0) { 292178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 0) = %d\n", 293178476Sjb rindex("foofoofoo", "foo", 0)); 294178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 0) = 0\n"); 295178476Sjb $failed++; 296178476Sjb } 297178476Sjb 298178476Sjb if (index("foofoofoo", "foo", 4) != 6) { 299178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 4) = %d\n", 300178476Sjb index("foofoofoo", "foo", 4)); 301178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 4) = 6\n"); 302178476Sjb $failed++; 303178476Sjb } 304178476Sjb 305178476Sjb if (rindex("foofoofoo", "foo", 4) != 3) { 306178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 4) = %d\n", 307178476Sjb rindex("foofoofoo", "foo", 4)); 308178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 4) = 3\n"); 309178476Sjb $failed++; 310178476Sjb } 311178476Sjb 312178476Sjb if (index("foofoofoo", "foo", 9) != -1) { 313178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 9) = %d\n", 314178476Sjb index("foofoofoo", "foo", 9)); 315178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 9) = -1\n"); 316178476Sjb $failed++; 317178476Sjb } 318178476Sjb 319178476Sjb if (rindex("foofoofoo", "foo", 9) != 6) { 320178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 9) = %d\n", 321178476Sjb rindex("foofoofoo", "foo", 9)); 322178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 9) = 6\n"); 323178476Sjb $failed++; 324178476Sjb } 325178476Sjb 326178476Sjb if (index("foofoofoo", "foo", 10) != -1) { 327178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 10) = %d\n", 328178476Sjb index("foofoofoo", "foo", 10)); 329178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 10) = -1\n"); 330178476Sjb $failed++; 331178476Sjb } 332178476Sjb 333178476Sjb if (rindex("foofoofoo", "foo", 10) != 6) { 334178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 10) = %d\n", 335178476Sjb rindex("foofoofoo", "foo", 10)); 336178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 10) = 6\n"); 337178476Sjb $failed++; 338178476Sjb } 339178476Sjb 340178476Sjb if (index("foofoofoo", "foo", 11) != -1) { 341178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 11) = %d\n", 342178476Sjb index("foofoofoo", "foo", 11)); 343178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 11) = -1\n"); 344178476Sjb $failed++; 345178476Sjb } 346178476Sjb 347178476Sjb if (rindex("foofoofoo", "foo", 11) != 6) { 348178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 11) = %d\n", 349178476Sjb rindex("foofoofoo", "foo", 11)); 350178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 11) = 6\n"); 351178476Sjb $failed++; 352178476Sjb } 353178476Sjb 354178476Sjb if (index("foofoofoo", "foo", 400) != -1) { 355178476Sjb printf("perl => index(\"foofoofoo\", \"foo\", 400) = %d\n", 356178476Sjb index("foofoofoo", "foo", 400)); 357178476Sjb printf(" D => index(\"foofoofoo\", \"foo\", 400) = -1\n"); 358178476Sjb $failed++; 359178476Sjb } 360178476Sjb 361178476Sjb if (rindex("foofoofoo", "foo", 400) != 6) { 362178476Sjb printf("perl => rindex(\"foofoofoo\", \"foo\", 400) = %d\n", 363178476Sjb rindex("foofoofoo", "foo", 400)); 364178476Sjb printf(" D => rindex(\"foofoofoo\", \"foo\", 400) = 6\n"); 365178476Sjb $failed++; 366178476Sjb } 367178476Sjb 368178476Sjb if (index("boofoofoo", "foo", -400) != 3) { 369178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", -400) = %d\n", 370178476Sjb index("boofoofoo", "foo", -400)); 371178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", -400) = 3\n"); 372178476Sjb $failed++; 373178476Sjb } 374178476Sjb 375178476Sjb if (rindex("boofoofoo", "foo", -400) != -1) { 376178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", -400) = %d\n", 377178476Sjb rindex("boofoofoo", "foo", -400)); 378178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", -400) = -1\n"); 379178476Sjb $failed++; 380178476Sjb } 381178476Sjb 382178476Sjb if (index("boofoofoo", "foo", -1) != 3) { 383178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", -1) = %d\n", 384178476Sjb index("boofoofoo", "foo", -1)); 385178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", -1) = 3\n"); 386178476Sjb $failed++; 387178476Sjb } 388178476Sjb 389178476Sjb if (rindex("boofoofoo", "foo", -1) != -1) { 390178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", -1) = %d\n", 391178476Sjb rindex("boofoofoo", "foo", -1)); 392178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", -1) = -1\n"); 393178476Sjb $failed++; 394178476Sjb } 395178476Sjb 396178476Sjb if (index("boofoofoo", "foo", 0) != 3) { 397178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 0) = %d\n", 398178476Sjb index("boofoofoo", "foo", 0)); 399178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 0) = 3\n"); 400178476Sjb $failed++; 401178476Sjb } 402178476Sjb 403178476Sjb if (rindex("boofoofoo", "foo", 0) != -1) { 404178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 0) = %d\n", 405178476Sjb rindex("boofoofoo", "foo", 0)); 406178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 0) = -1\n"); 407178476Sjb $failed++; 408178476Sjb } 409178476Sjb 410178476Sjb if (index("boofoofoo", "foo", 4) != 6) { 411178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 4) = %d\n", 412178476Sjb index("boofoofoo", "foo", 4)); 413178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 4) = 6\n"); 414178476Sjb $failed++; 415178476Sjb } 416178476Sjb 417178476Sjb if (rindex("boofoofoo", "foo", 4) != 3) { 418178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 4) = %d\n", 419178476Sjb rindex("boofoofoo", "foo", 4)); 420178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 4) = 3\n"); 421178476Sjb $failed++; 422178476Sjb } 423178476Sjb 424178476Sjb if (index("boofoofoo", "foo", 9) != -1) { 425178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 9) = %d\n", 426178476Sjb index("boofoofoo", "foo", 9)); 427178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 9) = -1\n"); 428178476Sjb $failed++; 429178476Sjb } 430178476Sjb 431178476Sjb if (rindex("boofoofoo", "foo", 9) != 6) { 432178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 9) = %d\n", 433178476Sjb rindex("boofoofoo", "foo", 9)); 434178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 9) = 6\n"); 435178476Sjb $failed++; 436178476Sjb } 437178476Sjb 438178476Sjb if (index("boofoofoo", "foo", 10) != -1) { 439178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 10) = %d\n", 440178476Sjb index("boofoofoo", "foo", 10)); 441178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 10) = -1\n"); 442178476Sjb $failed++; 443178476Sjb } 444178476Sjb 445178476Sjb if (rindex("boofoofoo", "foo", 10) != 6) { 446178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 10) = %d\n", 447178476Sjb rindex("boofoofoo", "foo", 10)); 448178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 10) = 6\n"); 449178476Sjb $failed++; 450178476Sjb } 451178476Sjb 452178476Sjb if (index("boofoofoo", "foo", 11) != -1) { 453178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 11) = %d\n", 454178476Sjb index("boofoofoo", "foo", 11)); 455178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 11) = -1\n"); 456178476Sjb $failed++; 457178476Sjb } 458178476Sjb 459178476Sjb if (rindex("boofoofoo", "foo", 11) != 6) { 460178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 11) = %d\n", 461178476Sjb rindex("boofoofoo", "foo", 11)); 462178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 11) = 6\n"); 463178476Sjb $failed++; 464178476Sjb } 465178476Sjb 466178476Sjb if (index("boofoofoo", "foo", 400) != -1) { 467178476Sjb printf("perl => index(\"boofoofoo\", \"foo\", 400) = %d\n", 468178476Sjb index("boofoofoo", "foo", 400)); 469178476Sjb printf(" D => index(\"boofoofoo\", \"foo\", 400) = -1\n"); 470178476Sjb $failed++; 471178476Sjb } 472178476Sjb 473178476Sjb if (rindex("boofoofoo", "foo", 400) != 6) { 474178476Sjb printf("perl => rindex(\"boofoofoo\", \"foo\", 400) = %d\n", 475178476Sjb rindex("boofoofoo", "foo", 400)); 476178476Sjb printf(" D => rindex(\"boofoofoo\", \"foo\", 400) = 6\n"); 477178476Sjb $failed++; 478178476Sjb } 479178476Sjb 480178476Sjb if (index("foobarbaz", "barbazzy", -400) != -1) { 481178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", -400) = %d\n", 482178476Sjb index("foobarbaz", "barbazzy", -400)); 483178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", -400) = -1\n"); 484178476Sjb $failed++; 485178476Sjb } 486178476Sjb 487178476Sjb if (rindex("foobarbaz", "barbazzy", -400) != -1) { 488178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", -400) = %d\n", 489178476Sjb rindex("foobarbaz", "barbazzy", -400)); 490178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", -400) = -1\n"); 491178476Sjb $failed++; 492178476Sjb } 493178476Sjb 494178476Sjb if (index("foobarbaz", "barbazzy", -1) != -1) { 495178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", -1) = %d\n", 496178476Sjb index("foobarbaz", "barbazzy", -1)); 497178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", -1) = -1\n"); 498178476Sjb $failed++; 499178476Sjb } 500178476Sjb 501178476Sjb if (rindex("foobarbaz", "barbazzy", -1) != -1) { 502178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", -1) = %d\n", 503178476Sjb rindex("foobarbaz", "barbazzy", -1)); 504178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", -1) = -1\n"); 505178476Sjb $failed++; 506178476Sjb } 507178476Sjb 508178476Sjb if (index("foobarbaz", "barbazzy", 0) != -1) { 509178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 0) = %d\n", 510178476Sjb index("foobarbaz", "barbazzy", 0)); 511178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 0) = -1\n"); 512178476Sjb $failed++; 513178476Sjb } 514178476Sjb 515178476Sjb if (rindex("foobarbaz", "barbazzy", 0) != -1) { 516178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 0) = %d\n", 517178476Sjb rindex("foobarbaz", "barbazzy", 0)); 518178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 0) = -1\n"); 519178476Sjb $failed++; 520178476Sjb } 521178476Sjb 522178476Sjb if (index("foobarbaz", "barbazzy", 4) != -1) { 523178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 4) = %d\n", 524178476Sjb index("foobarbaz", "barbazzy", 4)); 525178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 4) = -1\n"); 526178476Sjb $failed++; 527178476Sjb } 528178476Sjb 529178476Sjb if (rindex("foobarbaz", "barbazzy", 4) != -1) { 530178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 4) = %d\n", 531178476Sjb rindex("foobarbaz", "barbazzy", 4)); 532178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 4) = -1\n"); 533178476Sjb $failed++; 534178476Sjb } 535178476Sjb 536178476Sjb if (index("foobarbaz", "barbazzy", 9) != -1) { 537178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 9) = %d\n", 538178476Sjb index("foobarbaz", "barbazzy", 9)); 539178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 9) = -1\n"); 540178476Sjb $failed++; 541178476Sjb } 542178476Sjb 543178476Sjb if (rindex("foobarbaz", "barbazzy", 9) != -1) { 544178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 9) = %d\n", 545178476Sjb rindex("foobarbaz", "barbazzy", 9)); 546178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 9) = -1\n"); 547178476Sjb $failed++; 548178476Sjb } 549178476Sjb 550178476Sjb if (index("foobarbaz", "barbazzy", 10) != -1) { 551178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 10) = %d\n", 552178476Sjb index("foobarbaz", "barbazzy", 10)); 553178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 10) = -1\n"); 554178476Sjb $failed++; 555178476Sjb } 556178476Sjb 557178476Sjb if (rindex("foobarbaz", "barbazzy", 10) != -1) { 558178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 10) = %d\n", 559178476Sjb rindex("foobarbaz", "barbazzy", 10)); 560178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 10) = -1\n"); 561178476Sjb $failed++; 562178476Sjb } 563178476Sjb 564178476Sjb if (index("foobarbaz", "barbazzy", 11) != -1) { 565178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 11) = %d\n", 566178476Sjb index("foobarbaz", "barbazzy", 11)); 567178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 11) = -1\n"); 568178476Sjb $failed++; 569178476Sjb } 570178476Sjb 571178476Sjb if (rindex("foobarbaz", "barbazzy", 11) != -1) { 572178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 11) = %d\n", 573178476Sjb rindex("foobarbaz", "barbazzy", 11)); 574178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 11) = -1\n"); 575178476Sjb $failed++; 576178476Sjb } 577178476Sjb 578178476Sjb if (index("foobarbaz", "barbazzy", 400) != -1) { 579178476Sjb printf("perl => index(\"foobarbaz\", \"barbazzy\", 400) = %d\n", 580178476Sjb index("foobarbaz", "barbazzy", 400)); 581178476Sjb printf(" D => index(\"foobarbaz\", \"barbazzy\", 400) = -1\n"); 582178476Sjb $failed++; 583178476Sjb } 584178476Sjb 585178476Sjb if (rindex("foobarbaz", "barbazzy", 400) != -1) { 586178476Sjb printf("perl => rindex(\"foobarbaz\", \"barbazzy\", 400) = %d\n", 587178476Sjb rindex("foobarbaz", "barbazzy", 400)); 588178476Sjb printf(" D => rindex(\"foobarbaz\", \"barbazzy\", 400) = -1\n"); 589178476Sjb $failed++; 590178476Sjb } 591178476Sjb 592178476Sjb if (index("foobar", "foobar", -400) != 0) { 593178476Sjb printf("perl => index(\"foobar\", \"foobar\", -400) = %d\n", 594178476Sjb index("foobar", "foobar", -400)); 595178476Sjb printf(" D => index(\"foobar\", \"foobar\", -400) = 0\n"); 596178476Sjb $failed++; 597178476Sjb } 598178476Sjb 599178476Sjb if (rindex("foobar", "foobar", -400) != -1) { 600178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", -400) = %d\n", 601178476Sjb rindex("foobar", "foobar", -400)); 602178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", -400) = -1\n"); 603178476Sjb $failed++; 604178476Sjb } 605178476Sjb 606178476Sjb if (index("foobar", "foobar", -1) != 0) { 607178476Sjb printf("perl => index(\"foobar\", \"foobar\", -1) = %d\n", 608178476Sjb index("foobar", "foobar", -1)); 609178476Sjb printf(" D => index(\"foobar\", \"foobar\", -1) = 0\n"); 610178476Sjb $failed++; 611178476Sjb } 612178476Sjb 613178476Sjb if (rindex("foobar", "foobar", -1) != -1) { 614178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", -1) = %d\n", 615178476Sjb rindex("foobar", "foobar", -1)); 616178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", -1) = -1\n"); 617178476Sjb $failed++; 618178476Sjb } 619178476Sjb 620178476Sjb if (index("foobar", "foobar", 0) != 0) { 621178476Sjb printf("perl => index(\"foobar\", \"foobar\", 0) = %d\n", 622178476Sjb index("foobar", "foobar", 0)); 623178476Sjb printf(" D => index(\"foobar\", \"foobar\", 0) = 0\n"); 624178476Sjb $failed++; 625178476Sjb } 626178476Sjb 627178476Sjb if (rindex("foobar", "foobar", 0) != 0) { 628178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 0) = %d\n", 629178476Sjb rindex("foobar", "foobar", 0)); 630178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 0) = 0\n"); 631178476Sjb $failed++; 632178476Sjb } 633178476Sjb 634178476Sjb if (index("foobar", "foobar", 3) != -1) { 635178476Sjb printf("perl => index(\"foobar\", \"foobar\", 3) = %d\n", 636178476Sjb index("foobar", "foobar", 3)); 637178476Sjb printf(" D => index(\"foobar\", \"foobar\", 3) = -1\n"); 638178476Sjb $failed++; 639178476Sjb } 640178476Sjb 641178476Sjb if (rindex("foobar", "foobar", 3) != 0) { 642178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 3) = %d\n", 643178476Sjb rindex("foobar", "foobar", 3)); 644178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 3) = 0\n"); 645178476Sjb $failed++; 646178476Sjb } 647178476Sjb 648178476Sjb if (index("foobar", "foobar", 6) != -1) { 649178476Sjb printf("perl => index(\"foobar\", \"foobar\", 6) = %d\n", 650178476Sjb index("foobar", "foobar", 6)); 651178476Sjb printf(" D => index(\"foobar\", \"foobar\", 6) = -1\n"); 652178476Sjb $failed++; 653178476Sjb } 654178476Sjb 655178476Sjb if (rindex("foobar", "foobar", 6) != 0) { 656178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 6) = %d\n", 657178476Sjb rindex("foobar", "foobar", 6)); 658178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 6) = 0\n"); 659178476Sjb $failed++; 660178476Sjb } 661178476Sjb 662178476Sjb if (index("foobar", "foobar", 7) != -1) { 663178476Sjb printf("perl => index(\"foobar\", \"foobar\", 7) = %d\n", 664178476Sjb index("foobar", "foobar", 7)); 665178476Sjb printf(" D => index(\"foobar\", \"foobar\", 7) = -1\n"); 666178476Sjb $failed++; 667178476Sjb } 668178476Sjb 669178476Sjb if (rindex("foobar", "foobar", 7) != 0) { 670178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 7) = %d\n", 671178476Sjb rindex("foobar", "foobar", 7)); 672178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 7) = 0\n"); 673178476Sjb $failed++; 674178476Sjb } 675178476Sjb 676178476Sjb if (index("foobar", "foobar", 8) != -1) { 677178476Sjb printf("perl => index(\"foobar\", \"foobar\", 8) = %d\n", 678178476Sjb index("foobar", "foobar", 8)); 679178476Sjb printf(" D => index(\"foobar\", \"foobar\", 8) = -1\n"); 680178476Sjb $failed++; 681178476Sjb } 682178476Sjb 683178476Sjb if (rindex("foobar", "foobar", 8) != 0) { 684178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 8) = %d\n", 685178476Sjb rindex("foobar", "foobar", 8)); 686178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 8) = 0\n"); 687178476Sjb $failed++; 688178476Sjb } 689178476Sjb 690178476Sjb if (index("foobar", "foobar", 400) != -1) { 691178476Sjb printf("perl => index(\"foobar\", \"foobar\", 400) = %d\n", 692178476Sjb index("foobar", "foobar", 400)); 693178476Sjb printf(" D => index(\"foobar\", \"foobar\", 400) = -1\n"); 694178476Sjb $failed++; 695178476Sjb } 696178476Sjb 697178476Sjb if (rindex("foobar", "foobar", 400) != 0) { 698178476Sjb printf("perl => rindex(\"foobar\", \"foobar\", 400) = %d\n", 699178476Sjb rindex("foobar", "foobar", 400)); 700178476Sjb printf(" D => rindex(\"foobar\", \"foobar\", 400) = 0\n"); 701178476Sjb $failed++; 702178476Sjb } 703178476Sjb 704178476Sjb if (index("foobar", "foobarbaz", -400) != -1) { 705178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", -400) = %d\n", 706178476Sjb index("foobar", "foobarbaz", -400)); 707178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", -400) = -1\n"); 708178476Sjb $failed++; 709178476Sjb } 710178476Sjb 711178476Sjb if (rindex("foobar", "foobarbaz", -400) != -1) { 712178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", -400) = %d\n", 713178476Sjb rindex("foobar", "foobarbaz", -400)); 714178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", -400) = -1\n"); 715178476Sjb $failed++; 716178476Sjb } 717178476Sjb 718178476Sjb if (index("foobar", "foobarbaz", -1) != -1) { 719178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", -1) = %d\n", 720178476Sjb index("foobar", "foobarbaz", -1)); 721178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", -1) = -1\n"); 722178476Sjb $failed++; 723178476Sjb } 724178476Sjb 725178476Sjb if (rindex("foobar", "foobarbaz", -1) != -1) { 726178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", -1) = %d\n", 727178476Sjb rindex("foobar", "foobarbaz", -1)); 728178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", -1) = -1\n"); 729178476Sjb $failed++; 730178476Sjb } 731178476Sjb 732178476Sjb if (index("foobar", "foobarbaz", 0) != -1) { 733178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 0) = %d\n", 734178476Sjb index("foobar", "foobarbaz", 0)); 735178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 0) = -1\n"); 736178476Sjb $failed++; 737178476Sjb } 738178476Sjb 739178476Sjb if (rindex("foobar", "foobarbaz", 0) != -1) { 740178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 0) = %d\n", 741178476Sjb rindex("foobar", "foobarbaz", 0)); 742178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 0) = -1\n"); 743178476Sjb $failed++; 744178476Sjb } 745178476Sjb 746178476Sjb if (index("foobar", "foobarbaz", 3) != -1) { 747178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 3) = %d\n", 748178476Sjb index("foobar", "foobarbaz", 3)); 749178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 3) = -1\n"); 750178476Sjb $failed++; 751178476Sjb } 752178476Sjb 753178476Sjb if (rindex("foobar", "foobarbaz", 3) != -1) { 754178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 3) = %d\n", 755178476Sjb rindex("foobar", "foobarbaz", 3)); 756178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 3) = -1\n"); 757178476Sjb $failed++; 758178476Sjb } 759178476Sjb 760178476Sjb if (index("foobar", "foobarbaz", 6) != -1) { 761178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 6) = %d\n", 762178476Sjb index("foobar", "foobarbaz", 6)); 763178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 6) = -1\n"); 764178476Sjb $failed++; 765178476Sjb } 766178476Sjb 767178476Sjb if (rindex("foobar", "foobarbaz", 6) != -1) { 768178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 6) = %d\n", 769178476Sjb rindex("foobar", "foobarbaz", 6)); 770178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 6) = -1\n"); 771178476Sjb $failed++; 772178476Sjb } 773178476Sjb 774178476Sjb if (index("foobar", "foobarbaz", 7) != -1) { 775178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 7) = %d\n", 776178476Sjb index("foobar", "foobarbaz", 7)); 777178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 7) = -1\n"); 778178476Sjb $failed++; 779178476Sjb } 780178476Sjb 781178476Sjb if (rindex("foobar", "foobarbaz", 7) != -1) { 782178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 7) = %d\n", 783178476Sjb rindex("foobar", "foobarbaz", 7)); 784178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 7) = -1\n"); 785178476Sjb $failed++; 786178476Sjb } 787178476Sjb 788178476Sjb if (index("foobar", "foobarbaz", 8) != -1) { 789178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 8) = %d\n", 790178476Sjb index("foobar", "foobarbaz", 8)); 791178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 8) = -1\n"); 792178476Sjb $failed++; 793178476Sjb } 794178476Sjb 795178476Sjb if (rindex("foobar", "foobarbaz", 8) != -1) { 796178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 8) = %d\n", 797178476Sjb rindex("foobar", "foobarbaz", 8)); 798178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 8) = -1\n"); 799178476Sjb $failed++; 800178476Sjb } 801178476Sjb 802178476Sjb if (index("foobar", "foobarbaz", 400) != -1) { 803178476Sjb printf("perl => index(\"foobar\", \"foobarbaz\", 400) = %d\n", 804178476Sjb index("foobar", "foobarbaz", 400)); 805178476Sjb printf(" D => index(\"foobar\", \"foobarbaz\", 400) = -1\n"); 806178476Sjb $failed++; 807178476Sjb } 808178476Sjb 809178476Sjb if (rindex("foobar", "foobarbaz", 400) != -1) { 810178476Sjb printf("perl => rindex(\"foobar\", \"foobarbaz\", 400) = %d\n", 811178476Sjb rindex("foobar", "foobarbaz", 400)); 812178476Sjb printf(" D => rindex(\"foobar\", \"foobarbaz\", 400) = -1\n"); 813178476Sjb $failed++; 814178476Sjb } 815178476Sjb 816178476Sjb if (index("", "foobar", -400) != -1) { 817178476Sjb printf("perl => index(\"\", \"foobar\", -400) = %d\n", 818178476Sjb index("", "foobar", -400)); 819178476Sjb printf(" D => index(\"\", \"foobar\", -400) = -1\n"); 820178476Sjb $failed++; 821178476Sjb } 822178476Sjb 823178476Sjb if (rindex("", "foobar", -400) != -1) { 824178476Sjb printf("perl => rindex(\"\", \"foobar\", -400) = %d\n", 825178476Sjb rindex("", "foobar", -400)); 826178476Sjb printf(" D => rindex(\"\", \"foobar\", -400) = -1\n"); 827178476Sjb $failed++; 828178476Sjb } 829178476Sjb 830178476Sjb if (index("", "foobar", -1) != -1) { 831178476Sjb printf("perl => index(\"\", \"foobar\", -1) = %d\n", 832178476Sjb index("", "foobar", -1)); 833178476Sjb printf(" D => index(\"\", \"foobar\", -1) = -1\n"); 834178476Sjb $failed++; 835178476Sjb } 836178476Sjb 837178476Sjb if (rindex("", "foobar", -1) != -1) { 838178476Sjb printf("perl => rindex(\"\", \"foobar\", -1) = %d\n", 839178476Sjb rindex("", "foobar", -1)); 840178476Sjb printf(" D => rindex(\"\", \"foobar\", -1) = -1\n"); 841178476Sjb $failed++; 842178476Sjb } 843178476Sjb 844178476Sjb if (index("", "foobar", 0) != -1) { 845178476Sjb printf("perl => index(\"\", \"foobar\", 0) = %d\n", 846178476Sjb index("", "foobar", 0)); 847178476Sjb printf(" D => index(\"\", \"foobar\", 0) = -1\n"); 848178476Sjb $failed++; 849178476Sjb } 850178476Sjb 851178476Sjb if (rindex("", "foobar", 0) != -1) { 852178476Sjb printf("perl => rindex(\"\", \"foobar\", 0) = %d\n", 853178476Sjb rindex("", "foobar", 0)); 854178476Sjb printf(" D => rindex(\"\", \"foobar\", 0) = -1\n"); 855178476Sjb $failed++; 856178476Sjb } 857178476Sjb 858178476Sjb if (index("", "foobar", 0) != -1) { 859178476Sjb printf("perl => index(\"\", \"foobar\", 0) = %d\n", 860178476Sjb index("", "foobar", 0)); 861178476Sjb printf(" D => index(\"\", \"foobar\", 0) = -1\n"); 862178476Sjb $failed++; 863178476Sjb } 864178476Sjb 865178476Sjb if (rindex("", "foobar", 0) != -1) { 866178476Sjb printf("perl => rindex(\"\", \"foobar\", 0) = %d\n", 867178476Sjb rindex("", "foobar", 0)); 868178476Sjb printf(" D => rindex(\"\", \"foobar\", 0) = -1\n"); 869178476Sjb $failed++; 870178476Sjb } 871178476Sjb 872178476Sjb if (index("", "foobar", 0) != -1) { 873178476Sjb printf("perl => index(\"\", \"foobar\", 0) = %d\n", 874178476Sjb index("", "foobar", 0)); 875178476Sjb printf(" D => index(\"\", \"foobar\", 0) = -1\n"); 876178476Sjb $failed++; 877178476Sjb } 878178476Sjb 879178476Sjb if (rindex("", "foobar", 0) != -1) { 880178476Sjb printf("perl => rindex(\"\", \"foobar\", 0) = %d\n", 881178476Sjb rindex("", "foobar", 0)); 882178476Sjb printf(" D => rindex(\"\", \"foobar\", 0) = -1\n"); 883178476Sjb $failed++; 884178476Sjb } 885178476Sjb 886178476Sjb if (index("", "foobar", 1) != -1) { 887178476Sjb printf("perl => index(\"\", \"foobar\", 1) = %d\n", 888178476Sjb index("", "foobar", 1)); 889178476Sjb printf(" D => index(\"\", \"foobar\", 1) = -1\n"); 890178476Sjb $failed++; 891178476Sjb } 892178476Sjb 893178476Sjb if (rindex("", "foobar", 1) != -1) { 894178476Sjb printf("perl => rindex(\"\", \"foobar\", 1) = %d\n", 895178476Sjb rindex("", "foobar", 1)); 896178476Sjb printf(" D => rindex(\"\", \"foobar\", 1) = -1\n"); 897178476Sjb $failed++; 898178476Sjb } 899178476Sjb 900178476Sjb if (index("", "foobar", 2) != -1) { 901178476Sjb printf("perl => index(\"\", \"foobar\", 2) = %d\n", 902178476Sjb index("", "foobar", 2)); 903178476Sjb printf(" D => index(\"\", \"foobar\", 2) = -1\n"); 904178476Sjb $failed++; 905178476Sjb } 906178476Sjb 907178476Sjb if (rindex("", "foobar", 2) != -1) { 908178476Sjb printf("perl => rindex(\"\", \"foobar\", 2) = %d\n", 909178476Sjb rindex("", "foobar", 2)); 910178476Sjb printf(" D => rindex(\"\", \"foobar\", 2) = -1\n"); 911178476Sjb $failed++; 912178476Sjb } 913178476Sjb 914178476Sjb if (index("", "foobar", 400) != -1) { 915178476Sjb printf("perl => index(\"\", \"foobar\", 400) = %d\n", 916178476Sjb index("", "foobar", 400)); 917178476Sjb printf(" D => index(\"\", \"foobar\", 400) = -1\n"); 918178476Sjb $failed++; 919178476Sjb } 920178476Sjb 921178476Sjb if (rindex("", "foobar", 400) != -1) { 922178476Sjb printf("perl => rindex(\"\", \"foobar\", 400) = %d\n", 923178476Sjb rindex("", "foobar", 400)); 924178476Sjb printf(" D => rindex(\"\", \"foobar\", 400) = -1\n"); 925178476Sjb $failed++; 926178476Sjb } 927178476Sjb 928178476Sjb if (index("foobar", "", -400) != 0) { 929178476Sjb printf("perl => index(\"foobar\", \"\", -400) = %d\n", 930178476Sjb index("foobar", "", -400)); 931178476Sjb printf(" D => index(\"foobar\", \"\", -400) = 0\n"); 932178476Sjb $failed++; 933178476Sjb } 934178476Sjb 935178476Sjb if (rindex("foobar", "", -400) != 0) { 936178476Sjb printf("perl => rindex(\"foobar\", \"\", -400) = %d\n", 937178476Sjb rindex("foobar", "", -400)); 938178476Sjb printf(" D => rindex(\"foobar\", \"\", -400) = 0\n"); 939178476Sjb $failed++; 940178476Sjb } 941178476Sjb 942178476Sjb if (index("foobar", "", -1) != 0) { 943178476Sjb printf("perl => index(\"foobar\", \"\", -1) = %d\n", 944178476Sjb index("foobar", "", -1)); 945178476Sjb printf(" D => index(\"foobar\", \"\", -1) = 0\n"); 946178476Sjb $failed++; 947178476Sjb } 948178476Sjb 949178476Sjb if (rindex("foobar", "", -1) != 0) { 950178476Sjb printf("perl => rindex(\"foobar\", \"\", -1) = %d\n", 951178476Sjb rindex("foobar", "", -1)); 952178476Sjb printf(" D => rindex(\"foobar\", \"\", -1) = 0\n"); 953178476Sjb $failed++; 954178476Sjb } 955178476Sjb 956178476Sjb if (index("foobar", "", 0) != 0) { 957178476Sjb printf("perl => index(\"foobar\", \"\", 0) = %d\n", 958178476Sjb index("foobar", "", 0)); 959178476Sjb printf(" D => index(\"foobar\", \"\", 0) = 0\n"); 960178476Sjb $failed++; 961178476Sjb } 962178476Sjb 963178476Sjb if (rindex("foobar", "", 0) != 0) { 964178476Sjb printf("perl => rindex(\"foobar\", \"\", 0) = %d\n", 965178476Sjb rindex("foobar", "", 0)); 966178476Sjb printf(" D => rindex(\"foobar\", \"\", 0) = 0\n"); 967178476Sjb $failed++; 968178476Sjb } 969178476Sjb 970178476Sjb if (index("foobar", "", 3) != 3) { 971178476Sjb printf("perl => index(\"foobar\", \"\", 3) = %d\n", 972178476Sjb index("foobar", "", 3)); 973178476Sjb printf(" D => index(\"foobar\", \"\", 3) = 3\n"); 974178476Sjb $failed++; 975178476Sjb } 976178476Sjb 977178476Sjb if (rindex("foobar", "", 3) != 3) { 978178476Sjb printf("perl => rindex(\"foobar\", \"\", 3) = %d\n", 979178476Sjb rindex("foobar", "", 3)); 980178476Sjb printf(" D => rindex(\"foobar\", \"\", 3) = 3\n"); 981178476Sjb $failed++; 982178476Sjb } 983178476Sjb 984178476Sjb if (index("foobar", "", 6) != 6) { 985178476Sjb printf("perl => index(\"foobar\", \"\", 6) = %d\n", 986178476Sjb index("foobar", "", 6)); 987178476Sjb printf(" D => index(\"foobar\", \"\", 6) = 6\n"); 988178476Sjb $failed++; 989178476Sjb } 990178476Sjb 991178476Sjb if (rindex("foobar", "", 6) != 6) { 992178476Sjb printf("perl => rindex(\"foobar\", \"\", 6) = %d\n", 993178476Sjb rindex("foobar", "", 6)); 994178476Sjb printf(" D => rindex(\"foobar\", \"\", 6) = 6\n"); 995178476Sjb $failed++; 996178476Sjb } 997178476Sjb 998178476Sjb if (index("foobar", "", 7) != 6) { 999178476Sjb printf("perl => index(\"foobar\", \"\", 7) = %d\n", 1000178476Sjb index("foobar", "", 7)); 1001178476Sjb printf(" D => index(\"foobar\", \"\", 7) = 6\n"); 1002178476Sjb $failed++; 1003178476Sjb } 1004178476Sjb 1005178476Sjb if (rindex("foobar", "", 7) != 6) { 1006178476Sjb printf("perl => rindex(\"foobar\", \"\", 7) = %d\n", 1007178476Sjb rindex("foobar", "", 7)); 1008178476Sjb printf(" D => rindex(\"foobar\", \"\", 7) = 6\n"); 1009178476Sjb $failed++; 1010178476Sjb } 1011178476Sjb 1012178476Sjb if (index("foobar", "", 8) != 6) { 1013178476Sjb printf("perl => index(\"foobar\", \"\", 8) = %d\n", 1014178476Sjb index("foobar", "", 8)); 1015178476Sjb printf(" D => index(\"foobar\", \"\", 8) = 6\n"); 1016178476Sjb $failed++; 1017178476Sjb } 1018178476Sjb 1019178476Sjb if (rindex("foobar", "", 8) != 6) { 1020178476Sjb printf("perl => rindex(\"foobar\", \"\", 8) = %d\n", 1021178476Sjb rindex("foobar", "", 8)); 1022178476Sjb printf(" D => rindex(\"foobar\", \"\", 8) = 6\n"); 1023178476Sjb $failed++; 1024178476Sjb } 1025178476Sjb 1026178476Sjb if (index("foobar", "", 400) != 6) { 1027178476Sjb printf("perl => index(\"foobar\", \"\", 400) = %d\n", 1028178476Sjb index("foobar", "", 400)); 1029178476Sjb printf(" D => index(\"foobar\", \"\", 400) = 6\n"); 1030178476Sjb $failed++; 1031178476Sjb } 1032178476Sjb 1033178476Sjb if (rindex("foobar", "", 400) != 6) { 1034178476Sjb printf("perl => rindex(\"foobar\", \"\", 400) = %d\n", 1035178476Sjb rindex("foobar", "", 400)); 1036178476Sjb printf(" D => rindex(\"foobar\", \"\", 400) = 6\n"); 1037178476Sjb $failed++; 1038178476Sjb } 1039178476Sjb 1040178476Sjb if (index("", "", -400) != 0) { 1041178476Sjb printf("perl => index(\"\", \"\", -400) = %d\n", 1042178476Sjb index("", "", -400)); 1043178476Sjb printf(" D => index(\"\", \"\", -400) = 0\n"); 1044178476Sjb $failed++; 1045178476Sjb } 1046178476Sjb 1047178476Sjb if (rindex("", "", -400) != 0) { 1048178476Sjb printf("perl => rindex(\"\", \"\", -400) = %d\n", 1049178476Sjb rindex("", "", -400)); 1050178476Sjb printf(" D => rindex(\"\", \"\", -400) = 0\n"); 1051178476Sjb $failed++; 1052178476Sjb } 1053178476Sjb 1054178476Sjb if (index("", "", -1) != 0) { 1055178476Sjb printf("perl => index(\"\", \"\", -1) = %d\n", 1056178476Sjb index("", "", -1)); 1057178476Sjb printf(" D => index(\"\", \"\", -1) = 0\n"); 1058178476Sjb $failed++; 1059178476Sjb } 1060178476Sjb 1061178476Sjb if (rindex("", "", -1) != 0) { 1062178476Sjb printf("perl => rindex(\"\", \"\", -1) = %d\n", 1063178476Sjb rindex("", "", -1)); 1064178476Sjb printf(" D => rindex(\"\", \"\", -1) = 0\n"); 1065178476Sjb $failed++; 1066178476Sjb } 1067178476Sjb 1068178476Sjb if (index("", "", 0) != 0) { 1069178476Sjb printf("perl => index(\"\", \"\", 0) = %d\n", 1070178476Sjb index("", "", 0)); 1071178476Sjb printf(" D => index(\"\", \"\", 0) = 0\n"); 1072178476Sjb $failed++; 1073178476Sjb } 1074178476Sjb 1075178476Sjb if (rindex("", "", 0) != 0) { 1076178476Sjb printf("perl => rindex(\"\", \"\", 0) = %d\n", 1077178476Sjb rindex("", "", 0)); 1078178476Sjb printf(" D => rindex(\"\", \"\", 0) = 0\n"); 1079178476Sjb $failed++; 1080178476Sjb } 1081178476Sjb 1082178476Sjb if (index("", "", 0) != 0) { 1083178476Sjb printf("perl => index(\"\", \"\", 0) = %d\n", 1084178476Sjb index("", "", 0)); 1085178476Sjb printf(" D => index(\"\", \"\", 0) = 0\n"); 1086178476Sjb $failed++; 1087178476Sjb } 1088178476Sjb 1089178476Sjb if (rindex("", "", 0) != 0) { 1090178476Sjb printf("perl => rindex(\"\", \"\", 0) = %d\n", 1091178476Sjb rindex("", "", 0)); 1092178476Sjb printf(" D => rindex(\"\", \"\", 0) = 0\n"); 1093178476Sjb $failed++; 1094178476Sjb } 1095178476Sjb 1096178476Sjb if (index("", "", 0) != 0) { 1097178476Sjb printf("perl => index(\"\", \"\", 0) = %d\n", 1098178476Sjb index("", "", 0)); 1099178476Sjb printf(" D => index(\"\", \"\", 0) = 0\n"); 1100178476Sjb $failed++; 1101178476Sjb } 1102178476Sjb 1103178476Sjb if (rindex("", "", 0) != 0) { 1104178476Sjb printf("perl => rindex(\"\", \"\", 0) = %d\n", 1105178476Sjb rindex("", "", 0)); 1106178476Sjb printf(" D => rindex(\"\", \"\", 0) = 0\n"); 1107178476Sjb $failed++; 1108178476Sjb } 1109178476Sjb 1110178476Sjb if (index("", "", 1) != 0) { 1111178476Sjb printf("perl => index(\"\", \"\", 1) = %d\n", 1112178476Sjb index("", "", 1)); 1113178476Sjb printf(" D => index(\"\", \"\", 1) = 0\n"); 1114178476Sjb $failed++; 1115178476Sjb } 1116178476Sjb 1117178476Sjb if (rindex("", "", 1) != 0) { 1118178476Sjb printf("perl => rindex(\"\", \"\", 1) = %d\n", 1119178476Sjb rindex("", "", 1)); 1120178476Sjb printf(" D => rindex(\"\", \"\", 1) = 0\n"); 1121178476Sjb $failed++; 1122178476Sjb } 1123178476Sjb 1124178476Sjb exit($failed); 1125178476Sjb} 1126178476Sjb 1127