test/test52.c

   1 #define _POSIX_SOURCE 1
   2 #include <unistd.h>
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <sys/types.h>
   6 #include <sys/wait.h>
   7 #include <signal.h>
   8 #include <math.h>
   9
  10 #define ROUNDS 20
  11 #define SWAPS 40
  12 #define MAX_ERROR 5
  13
  14 int pipefdc[2];
  15 int pipefdp[2];
  16 int subtest = 0, errct = 0;
  17 int child_is_dead = 0;
  18
  19 void dead_child(int n);
  20 void do_child(void);
  21 void do_parent(void);
  22 void do_calcs(void);
  23 void err(int n);
  24 void quit(void);
  25
  26 void err(int n)
  27 {
  28   printf("Subtest %d, error %d\n", subtest, n);
  29
  30   if (errct++ > MAX_ERROR) {
  31         printf("Too many errors; test aborted\n");
  32         exit(1);
  33   }
  34 }
  35
  36 void quit(void)
  37 {
  38   if (errct == 0) {
  39         printf("ok\n");
  40         exit(0);
  41   } else {
  42         printf("%d errors\n", errct);
  43         exit(1);
  44   }
  45 }
  46
  47 void do_calcs(void)
  48 {
  49   float a, b, c, d, e;
  50   float foo, bar;
  51   int i;
  52   subtest = 3;
  53
  54   a = 1.1;
  55   b = 2.2;
  56   c = 3.3;
  57   d = 4.4;
  58   e = 5.5;
  59
  60   foo = a * b; /* 2.42 */
  61   bar = c * d; /* 14.52 */
  62
  63   i = 0;
  64   while(i < ROUNDS) {
  65         foo += c; /* 5.72 */
  66         foo *= d; /* 25.168 */
  67         foo /= e; /* 4.5760 */
  68         bar -= a; /* 13.42 */
  69         bar *= b; /* 29.524 */
  70         bar /= e; /* 5.3680 */
  71
  72         /* Undo */
  73         foo *= e;
  74         foo /= d;
  75         foo -= c;
  76
  77         bar *= e;
  78         bar /= b;
  79         bar += a;
  80
  81         i++;
  82   }
  83
  84   if (fabs(foo - (a * b)) > 0.0001) err(1);
  85   if (fabs(bar - (c * d)) > 0.0001) err(2);
  86 }
  87
  88 void dead_child(int n)
  89 {
  90   int status;
  91   subtest = 4;
  92   n = n;
  93
  94   if (wait(&status) == -1) err(1);
  95
  96   if (!WIFEXITED(status)) {
  97         err(2);
  98         quit();
  99   } else {
 100         errct += WEXITSTATUS(status);
 101         child_is_dead = 1;
 102   }
 103 }
 104
 105 void do_child(void)
 106 {
 107   char buf[2];
 108   int s;
 109
 110   s = 0;
 111   close(pipefdp[0]);
 112   close(pipefdc[1]);
 113
 114   while(s < SWAPS) {
 115         do_calcs();
 116
 117         /* Wake up parent */
 118         write(pipefdp[1], buf, 1);
 119
 120         /* Wait for parent to wake me up */
 121         read(pipefdc[0], buf, 1);
 122
 123         s++;
 124   }
 125   exit(0);
 126 }
 127
 128 void do_parent(void)
 129 {
 130   int s;
 131   char buf[2];
 132   struct sigaction sa;
 133   subtest = 2;
 134
 135   sa.sa_handler = dead_child;
 136   sa.sa_flags = 0;
 137   if (sigaction(SIGCHLD, &sa, NULL) == -1) err(1);
 138
 139   s = 0;
 140   close(pipefdp[1]);
 141   close(pipefdc[0]);
 142
 143   while(s < SWAPS) {
 144         /* Wait for child to wake me up */
 145         read(pipefdp[0], buf, 1);
 146
 147         do_calcs();
 148
 149         /* Wake up child */
 150         write(pipefdc[1], buf, 1);
 151         s++;
 152   }
 153
 154   while(child_is_dead == 0) { fflush(stdout); } /* Busy wait */
 155
 156   quit();
 157 }
 158
 159 int main(void)
 160 {
 161   pid_t r;
 162   subtest = 1;
 163
 164 #ifdef __GNUC__
 165         printf("Test 52 (GCC) ");
 166 #else
 167         printf("Test 52 (ACK) ");
 168 #endif
 169   fflush(stdout);
 170
 171   if (pipe(pipefdc) == -1) err(1);
 172   if (pipe(pipefdp) == -1) err(2);
 173
 174   r = fork();
 175   if(r < 0) {
 176         err(3);
 177   } else if(r == 0) {
 178         /* Child */
 179         do_child();
 180   } else {
 181         /* Parent */
 182         do_parent();
 183   }
 184
 185   return(0); /* Never reached */
 186
 187 }
 188