home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / perl5 / perl5.002 / t / lib / posix.t < prev    next >
Encoding:
Text File  |  1996-01-30  |  1.4 KB  |  67 lines
  1. #!./perl
  2.  
  3. BEGIN {
  4.     chdir 't' if -d 't';
  5.     @INC = '../lib';
  6.     require Config; import Config;
  7.     if ($Config{'extensions'} !~ /\bPOSIX\b/) {
  8.     print "1..0\n";
  9.     exit 0;
  10.     }
  11. }
  12.  
  13. use POSIX qw(fcntl_h signal_h limits_h _exit getcwd open read write);
  14. use strict subs;
  15.  
  16. $| = 1;
  17. print "1..14\n";
  18.  
  19. $testfd = open("TEST", O_RDONLY, 0) and print "ok 1\n";
  20. read($testfd, $buffer, 9) if $testfd > 2;
  21. print $buffer eq "#!./perl\n" ? "ok 2\n" : "not ok 2\n";
  22.  
  23. write(1,"ok 3\nnot ok 3\n", 5);
  24.  
  25. @fds = POSIX::pipe();
  26. print $fds[0] > $testfd ? "ok 4\n" : "not ok 4\n";
  27. CORE::open($reader = \*READER, "<&=".$fds[0]);
  28. CORE::open($writer = \*WRITER, ">&=".$fds[1]);
  29. print $writer "ok 5\n";
  30. close $writer;
  31. print <$reader>;
  32. close $reader;
  33.  
  34. $sigset = new POSIX::SigSet 1,3;
  35. delset $sigset 1;
  36. if (!ismember $sigset 1) { print "ok 6\n" }
  37. if (ismember $sigset 3) { print "ok 7\n" }
  38. $mask = new POSIX::SigSet &SIGINT;
  39. $action = new POSIX::SigAction 'main::SigHUP', $mask, 0;
  40. sigaction(&SIGHUP, $action);
  41. $SIG{'INT'} = 'SigINT';
  42. kill 'HUP', $$;
  43. sleep 1;
  44. print "ok 11\n";
  45.  
  46. sub SigHUP {
  47.     print "ok 8\n";
  48.     kill 'INT', $$;
  49.     sleep 2;
  50.     print "ok 9\n";
  51. }
  52.  
  53. sub SigINT {
  54.     print "ok 10\n";
  55. }
  56.  
  57. print &_POSIX_OPEN_MAX > $fds[1] ? "ok 12\n" : "not ok 12\n";
  58.  
  59. print getcwd() =~ m#/t$# ? "ok 13\n" : "not ok 13\n";
  60.  
  61. # Pick up whether we're really able to dynamically load everything.
  62. print &POSIX::acos(1.0) == 0.0 ? "ok 14\n" : "not ok 14\n";
  63.  
  64. $| = 0;
  65. print '@#!*$@(!@#$';
  66. _exit(0);
  67.