home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / io / read.t < prev    next >
Text File  |  1999-07-20  |  265b  |  27 lines

  1. #!./perl
  2.  
  3. # $RCSfile$
  4.  
  5. print "1..1\n";
  6.  
  7. open(A,"+>a");
  8. print A "_";
  9. seek(A,0,0);
  10.  
  11. $b = "abcd"; 
  12. $b = "";
  13.  
  14. read(A,$b,1,4);
  15.  
  16. close(A);
  17.  
  18. unlink("a");
  19.  
  20. if ($b eq "\000\000\000\000_") {
  21.     print "ok 1\n";
  22. } else { # Probably "\000bcd_"
  23.     print "not ok 1\n";
  24. }
  25.  
  26. unlink 'a';
  27.