home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / pt.shar / pt / Test < prev   
Encoding:
Text File  |  1993-05-26  |  1.8 KB  |  122 lines
  1.  
  2. $user = (getpwuid($>))[0];
  3.  
  4. $PT = './pt';
  5.  
  6. $| = 1;
  7.  
  8. print <<EOF;
  9. Running tests for pt..
  10.  
  11. Should anything fail, this make will abort.
  12. if it doesn't look right, just hit ^C.
  13.  
  14. EOF
  15.  
  16. &cr;
  17.  
  18. print "First, I'll run pt on just your processes:\n\n";
  19.  
  20. &run($PT);
  21. while(<PT>) {
  22.     print;
  23.     &test1;
  24. } 
  25. &ran;
  26. &result1;
  27. &cr;
  28.  
  29. print <<EOF;
  30. Ok, next test: run pt on just this process, tracing back to the root:
  31.  
  32. EOF
  33.  
  34. &run ("$PT $$");
  35.  
  36. while (<PT>) {
  37.     print;
  38.     &test2;
  39. } 
  40. &ran;
  41.  
  42. &result2;
  43.  
  44. &cr;
  45.  
  46. print "\nNow for all processes:\n\n";
  47.  
  48. &run("$PT -a");
  49.  
  50. $init = $sawme = $warned = $sawpt = 0;
  51.  
  52. while (<PT>) {
  53.     print;
  54.     &test3;
  55. } 
  56. &ran;
  57. &result3;
  58.  
  59.  
  60. system("touch ./test") && die "can't touch \"test\" semaphore file: $!";
  61.  
  62. print "\nLooks good, now go for the install!\n";
  63.  
  64. sub run {
  65.     $Args = shift;
  66.     print "$ $Args\n";
  67.     open(PT, "$Args |") || die "couldn't fork: $!";
  68. } 
  69.  
  70. sub ran {
  71.     die "\"$Args\" exited badly: $!" unless close(PT);
  72. } 
  73.  
  74. sub cr {
  75.     print "\nHit <CR> to continue, ^C to abort: ";
  76.     <STDIN>;
  77.     print "\n";
  78. } 
  79.  
  80. sub more {
  81.     print "$_[0]; continue? [n] ";
  82.     exit 1 unless <STDIN> =~ /^\s*y/i;
  83. } 
  84.  
  85. sub test1 {
  86.     $sawpt += /pt/;
  87.     $sawme += /\b$user\b/i;
  88.     if (/^\(\d+\)/ && !$warned++) {
  89.     @pw = getpwuid($1);
  90.     if  ($pw[0]) {
  91.         &more("Hmmm, uid $1 didn't convert to $pw[0]");
  92.     } else {
  93.         print "Oops, you don't have a uid $1 here\n";
  94.         &more("Maybe the ps line is mangled;");
  95.     } 
  96.     } 
  97. }
  98.  
  99. sub test2 { 
  100.     $init += /^\w+\s+1\b.+\binit\b/; 
  101. }
  102.  
  103. sub result1 {
  104.     &more("Your uid should have appeared here") unless $sawme;
  105.     &more("The pt program should have appeared here") unless $sawpt;
  106. }
  107.  
  108. sub result2 {
  109.     &more("Didn't see init (process 1)") unless $init;
  110.     &more("Saw init $init times") if $init > 1;
  111. }
  112.  
  113. sub test3 {
  114.     &test1;
  115.     &test2;
  116. }
  117.  
  118. sub result3 {
  119.     &result1;
  120.     &result2;
  121. } 
  122.