home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-src.tgz / tar.out / fsf / perl / t / op / chop.t < prev    next >
Text File  |  1996-09-28  |  2KB  |  73 lines
  1. #!./perl
  2.  
  3. # $RCSfile: chop.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:40 $
  4.  
  5. print "1..22\n";
  6.  
  7. # optimized
  8.  
  9. $_ = 'abc';
  10. $c = do foo();
  11. if ($c . $_ eq 'cab') {print "ok 1\n";} else {print "not ok 1 $c$_\n";}
  12.  
  13. # unoptimized
  14.  
  15. $_ = 'abc';
  16. $c = chop($_);
  17. if ($c . $_ eq 'cab') {print "ok 2\n";} else {print "not ok 2\n";}
  18.  
  19. sub foo {
  20.     chop;
  21. }
  22.  
  23. @foo = ("hi \n","there\n","!\n");
  24. @bar = @foo;
  25. chop(@bar);
  26. print join('',@bar) eq 'hi there!' ? "ok 3\n" : "not ok 3\n";
  27.  
  28. $foo = "\n";
  29. chop($foo,@foo);
  30. print join('',$foo,@foo) eq 'hi there!' ? "ok 4\n" : "not ok 4\n";
  31.  
  32. $_ = "foo\n\n";
  33. print chomp() == 1 ? "ok 5\n" : "not ok 5\n";
  34. print $_ eq "foo\n" ? "ok 6\n" : "not ok 6\n";
  35.  
  36. $_ = "foo\n";
  37. print chomp() == 1 ? "ok 7\n" : "not ok 7\n";
  38. print $_ eq "foo" ? "ok 8\n" : "not ok 8\n";
  39.  
  40. $_ = "foo";
  41. print chomp() == 0 ? "ok 9\n" : "not ok 9\n";
  42. print $_ eq "foo" ? "ok 10\n" : "not ok 10\n";
  43.  
  44. $_ = "foo";
  45. $/ = "oo";
  46. print chomp() == 2 ? "ok 11\n" : "not ok 11\n";
  47. print $_ eq "f" ? "ok 12\n" : "not ok 12\n";
  48.  
  49. $_ = "bar";
  50. $/ = "oo";
  51. print chomp() == 0 ? "ok 13\n" : "not ok 13\n";
  52. print $_ eq "bar" ? "ok 14\n" : "not ok 14\n";
  53.  
  54. $_ = "f\n\n\n\n\n";
  55. $/ = "";
  56. print chomp() == 5 ? "ok 15\n" : "not ok 15\n";
  57. print $_ eq "f" ? "ok 16\n" : "not ok 16\n";
  58.  
  59. $_ = "f\n\n";
  60. $/ = "";
  61. print chomp() == 2 ? "ok 17\n" : "not ok 17\n";
  62. print $_ eq "f" ? "ok 18\n" : "not ok 18\n";
  63.  
  64. $_ = "f\n";
  65. $/ = "";
  66. print chomp() == 1 ? "ok 19\n" : "not ok 19\n";
  67. print $_ eq "f" ? "ok 20\n" : "not ok 20\n";
  68.  
  69. $_ = "f";
  70. $/ = "";
  71. print chomp() == 0 ? "ok 21\n" : "not ok 21\n";
  72. print $_ eq "f" ? "ok 22\n" : "not ok 22\n";
  73.