ext/Fcntl/t/fcntl.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 # A modest test: exercises only O_WRONLY, O_CREAT, and O_RDONLY.
   9 # Have to be modest to be portable: could possibly extend testing
  10 # also to O_RDWR and O_APPEND, but dunno about the portability of,
  11 # say, O_TRUNC and O_EXCL, not to mention O_NONBLOCK.
  12
  13 use Fcntl;
  14
  15 print "1..6\n";
  16
  17 print "ok 1\n";
  18
  19 if (sysopen(my $wo, "fcntl$$", O_WRONLY|O_CREAT)) {
  20     print "ok 2\n";
  21     if (syswrite($wo, "foo") == 3) {
  22         print "ok 3\n";
  23         close($wo);
  24         if (sysopen(my $ro, "fcntl$$", O_RDONLY)) {
  25             print "ok 4\n";
  26             if (sysread($ro, my $read, 3)) {
  27                 print "ok 5\n";
  28                 if ($read eq "foo") {
  29                     print "ok 6\n";
  30                 } else {
  31                     print "not ok 6 # content '$read' not ok\n";
  32                 }
  33             } else {
  34                 print "not ok 5 # sysread failed: $!\n";
  35             }
  36         } else {
  37             print "not ok 4 # sysopen O_RDONLY failed: $!\n";
  38         }
  39         close($ro);
  40     } else {
  41         print "not ok 3 # syswrite failed: $!\n";
  42     }
  43     close($wo);
  44 } else {
  45     print "not ok 2 # sysopen O_WRONLY failed: $!\n";
  46 }
  47
  48 END {
  49     1 while unlink "fcntl$$";
  50 }
  51