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