home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / perl / os2perl / do.t < prev    next >
Text File  |  1991-04-12  |  1KB  |  45 lines
  1. #!./perl
  2.  
  3. # $Header: do.t,v 4.0 91/03/20 01:52:08 lwall Locked $
  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);
  45.