index.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile: index.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:59 $
print "1..20\n";
$foo =
'Now is the time for all good men to come to the aid of their country.';
print ($first eq "Now is " ? "ok 1\n" : "not ok 1\n");
print ($last eq "their country." ? "ok 2\n" : "not ok 2\n");
print ($last eq "No" ? "ok 3\n" : "not ok 3\n");
print ($last eq "No" ? "ok 4\n" : "not ok 4\n");
print ($last eq "." ? "ok 5\n" : "not ok 5\n");
print ($last eq "." ? "ok 6\n" : "not ok 6\n");
print index("ababa","a",-1) ==
0 ?
"ok 7\n" :
"not ok 7\n";
print index("ababa","a",0) ==
0 ?
"ok 8\n" :
"not ok 8\n";
print index("ababa","a",1) ==
2 ?
"ok 9\n" :
"not ok 9\n";
print index("ababa","a",2) ==
2 ?
"ok 10\n" :
"not ok 10\n";
print index("ababa","a",3) ==
4 ?
"ok 11\n" :
"not ok 11\n";
print index("ababa","a",4) ==
4 ?
"ok 12\n" :
"not ok 12\n";
print index("ababa","a",5) == -
1 ?
"ok 13\n" :
"not ok 13\n";
print rindex("ababa","a",-1) == -
1 ?
"ok 14\n" :
"not ok 14\n";
print rindex("ababa","a",0) ==
0 ?
"ok 15\n" :
"not ok 15\n";
print rindex("ababa","a",1) ==
0 ?
"ok 16\n" :
"not ok 16\n";
print rindex("ababa","a",2) ==
2 ?
"ok 17\n" :
"not ok 17\n";
print rindex("ababa","a",3) ==
2 ?
"ok 18\n" :
"not ok 18\n";
print rindex("ababa","a",4) ==
4 ?
"ok 19\n" :
"not ok 19\n";
print rindex("ababa","a",5) ==
4 ?
"ok 20\n" :
"not ok 20\n";