t/op/chop.t

   1 #!./perl
   2
   3 # $RCSfile: chop.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:40 $
   4
   5 print "1..28\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
  74 $_ = "xx";
  75 $/ = "xx";
  76 print chomp() == 2 ? "ok 23\n" : "not ok 23\n";
  77 print $_ eq "" ? "ok 24\n" : "not ok 24\n";
  78
  79 $_ = "axx";
  80 $/ = "xx";
  81 print chomp() == 2 ? "ok 25\n" : "not ok 25\n";
  82 print $_ eq "a" ? "ok 26\n" : "not ok 26\n";
  83
  84 $_ = "axx";
  85 $/ = "yy";
  86 print chomp() == 0 ? "ok 27\n" : "not ok 27\n";
  87 print $_ eq "axx" ? "ok 28\n" : "not ok 28\n";