t/cmd.elsif

   1 #!./perl
   2
   3 # $Header: cmd.elsif,v 1.0 87/12/18 13:12:02 root Exp $
   4
   5 sub foo {
   6     if ($_[0] == 1) {
   7         1;
   8     }
   9     elsif ($_[0] == 2) {
  10         2;
  11     }
  12     elsif ($_[0] == 3) {
  13         3;
  14     }
  15     else {
  16         4;
  17     }
  18 }
  19
  20 print "1..4\n";
  21
  22 if (($x = do foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1\n";}
  23 if (($x = do foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2\n";}
  24 if (($x = do foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3\n";}
  25 if (($x = do foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4\n";}