Commit | Line | Data |
---|---|---|
a687059c LW |
1 | #!./perl |
2 | ||
79072805 | 3 | # $RCSfile: index.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:59 $ |
a687059c | 4 | |
d9d8d8de | 5 | print "1..20\n"; |
a687059c LW |
6 | |
7 | ||
8 | $foo = 'Now is the time for all good men to come to the aid of their country.'; | |
9 | ||
10 | $first = substr($foo,0,index($foo,'the')); | |
11 | print ($first eq "Now is " ? "ok 1\n" : "not ok 1\n"); | |
12 | ||
13 | $last = substr($foo,rindex($foo,'the'),100); | |
14 | print ($last eq "their country." ? "ok 2\n" : "not ok 2\n"); | |
15 | ||
16 | $last = substr($foo,index($foo,'Now'),2); | |
17 | print ($last eq "No" ? "ok 3\n" : "not ok 3\n"); | |
18 | ||
19 | $last = substr($foo,rindex($foo,'Now'),2); | |
20 | print ($last eq "No" ? "ok 4\n" : "not ok 4\n"); | |
21 | ||
22 | $last = substr($foo,index($foo,'.'),100); | |
23 | print ($last eq "." ? "ok 5\n" : "not ok 5\n"); | |
24 | ||
25 | $last = substr($foo,rindex($foo,'.'),100); | |
26 | print ($last eq "." ? "ok 6\n" : "not ok 6\n"); | |
d9d8d8de LW |
27 | |
28 | print index("ababa","a",-1) == 0 ? "ok 7\n" : "not ok 7\n"; | |
29 | print index("ababa","a",0) == 0 ? "ok 8\n" : "not ok 8\n"; | |
30 | print index("ababa","a",1) == 2 ? "ok 9\n" : "not ok 9\n"; | |
31 | print index("ababa","a",2) == 2 ? "ok 10\n" : "not ok 10\n"; | |
32 | print index("ababa","a",3) == 4 ? "ok 11\n" : "not ok 11\n"; | |
33 | print index("ababa","a",4) == 4 ? "ok 12\n" : "not ok 12\n"; | |
34 | print index("ababa","a",5) == -1 ? "ok 13\n" : "not ok 13\n"; | |
35 | ||
36 | print rindex("ababa","a",-1) == -1 ? "ok 14\n" : "not ok 14\n"; | |
37 | print rindex("ababa","a",0) == 0 ? "ok 15\n" : "not ok 15\n"; | |
38 | print rindex("ababa","a",1) == 0 ? "ok 16\n" : "not ok 16\n"; | |
39 | print rindex("ababa","a",2) == 2 ? "ok 17\n" : "not ok 17\n"; | |
40 | print rindex("ababa","a",3) == 2 ? "ok 18\n" : "not ok 18\n"; | |
41 | print rindex("ababa","a",4) == 4 ? "ok 19\n" : "not ok 19\n"; | |
42 | print rindex("ababa","a",5) == 4 ? "ok 20\n" : "not ok 20\n"; |