t/op/do.t

   1 #!./perl
   2
   3 # $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
   4
   5 sub foo1
   6 {
   7     print $_[0];
   8     'value';
   9 }
  10
  11 sub foo2
  12 {
  13     shift;
  14     print $_[0];
  15     $x = 'value';
  16     $x;
  17 }
  18
  19 print "1..15\n";
  20
  21 $_[0] = "not ok 1\n";
  22 $result = do foo1("ok 1\n");
  23 print "#2\t:$result: eq :value:\n";
  24 if ($result eq 'value') { print "ok 2\n"; } else { print "not ok 2\n"; }
  25 if ($_[0] eq "not ok 1\n") { print "ok 3\n"; } else { print "not ok 3\n"; }
  26
  27 $_[0] = "not ok 4\n";
  28 $result = do foo2("not ok 4\n","ok 4\n","not ok 4\n");
  29 print "#5\t:$result: eq :value:\n";
  30 if ($result eq 'value') { print "ok 5\n"; } else { print "not ok 5\n"; }
  31 if ($_[0] eq "not ok 4\n") { print "ok 6\n"; } else { print "not ok 6\n"; }
  32
  33 $result = do{print "ok 7\n"; 'value';};
  34 print "#8\t:$result: eq :value:\n";
  35 if ($result eq 'value') { print "ok 8\n"; } else { print "not ok 8\n"; }
  36
  37 sub blather {
  38     print @_;
  39 }
  40
  41 do blather("ok 9\n","ok 10\n");
  42 @x = ("ok 11\n", "ok 12\n");
  43 @y = ("ok 14\n", "ok 15\n");
  44 do blather(@x,"ok 13\n",@y);