t/op.do

   1 #!./perl
   2
   3 # $Header: op.do,v 1.0 87/12/18 13:13:20 root Exp $
   4 sub foo1
   5 {
   6     print $_[0];
   7     'value';
   8 }
   9
  10 sub foo2
  11 {
  12     shift(_);
  13     print $_[0];
  14     $x = 'value';
  15     $x;
  16 }
  17
  18 print "1..8\n";
  19
  20 $_[0] = "not ok 1\n";
  21 $result = do foo1("ok 1\n");
  22 print "#2\t:$result: eq :value:\n";
  23 if ($result EQ 'value') { print "ok 2\n"; } else { print "not ok 2\n"; }
  24 if ($_[0] EQ "not ok 1\n") { print "ok 3\n"; } else { print "not ok 3\n"; }
  25
  26 $_[0] = "not ok 4\n";
  27 $result = do foo2("not ok 4\n","ok 4\n","not ok 4\n");
  28 print "#5\t:$result: eq :value:\n";
  29 if ($result EQ 'value') { print "ok 5\n"; } else { print "not ok 5\n"; }
  30 if ($_[0] EQ "not ok 4\n") { print "ok 6\n"; } else { print "not ok 6\n"; }
  31
  32 $result = do{print "ok 7\n"; 'value';};
  33 print "#8\t:$result: eq :value:\n";
  34 if ($result EQ 'value') { print "ok 8\n"; } else { print "not ok 8\n"; }