home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / perl / Test / T / Io / Argv next >
Encoding:
Text File  |  1990-06-11  |  983 b   |  42 lines
  1. #!./perl
  2.  
  3. # $Header: io.argv,v 3.0.1.1 89/11/11 04:59:05 lwall Locked $
  4.  
  5. print "1..5\n";
  6.  
  7. open(try, '>Tmp.Argv') || (die "Can't open temp file.");
  8. print try "a line\n";
  9. close try;
  10. open(try, '>Tmp.Foo') || (die "Can't open temp file (foo).");
  11. print try "foo\n";
  12. close try;
  13.  
  14. $x = `^.perl -e "while (<>) {print \$.,\$_;}" Tmp.Argv Tmp.Argv`;
  15.  
  16. if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  17.  
  18. $x = `^.perl -e "while (<>) {print $_;}" Tmp.Argv - <Tmp.Foo`;
  19.  
  20. if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  21.  
  22. $x = `^.perl -e "while (<>) {print $_;}" <Tmp.Foo`;
  23.  
  24. if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  25.  
  26. @ARGV = ('Tmp.Argv', 'Tmp.Argv', 'null:', 'Tmp.Argv');
  27. while (<>) {
  28.     $y .= $. . $_;
  29.     if (eof()) {
  30.     if ($. == 3) {print "ok 4\n";} else {print "not ok 4\n";}
  31.     }
  32. }
  33.  
  34. if ($y eq "1a line\n2a line\n3a line\n")
  35.     {print "ok 5\n";}
  36. else
  37.     {print "not ok 5\n";}
  38.  
  39. `remove Tmp.Argv`;
  40. `remove Tmp.Foo`;
  41.  
  42.