home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / op / index.t < prev    next >
Text File  |  1999-07-20  |  2KB  |  43 lines
  1. #!./perl
  2.  
  3. # $RCSfile: index.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:59 $
  4.  
  5. print "1..20\n";
  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");
  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";
  43.