home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume20 / xxalloc / txtest.c < prev    next >
Text File  |  1989-10-16  |  2KB  |  67 lines
  1.     {
  2.         type *t1, **t2, ***t3;
  3.     
  4.         printf("checking type 1 \n");
  5.         if (xx_amount() != 0L)
  6.             printf("type: amount == %ld", xx_amount());
  7.         t1 = t1_alloc(NB, NE);
  8.          for (i = NB; i <= NE; i++)
  9.              t1[i] = (type) i;
  10.          for (i = NB; i <= NE; i++)
  11.              if (t1[i] != (type) i)
  12.             printf("type: after allocate t1[%d] = %t != %d\n",
  13.                 i, t1[i], i);
  14.         t1 = t1_renum(t1, NB, NE, NB+NO, NE+NO);
  15.          for (i = NB+NO; i <= NE+NO; i++)
  16.             if (t1[i] != (type) (i-NO))
  17.             printf("type: after renum t1[%d] = %t != %d\n",
  18.                 i, t1[i], i-NO);
  19.         t1_free(t1, NB+NO, NE+NO);
  20.         
  21.  
  22.         printf("checking type 2 \n");
  23.         if (xx_amount() != 0L)
  24.             printf("type: amount == %ld", xx_amount());
  25.         t2 = t2_alloc(NB, NE, NB, NE);
  26.          for (i = NB; i <= NE; i++)
  27.              for (j = NB; j <= NE; j++)
  28.                  t2[i][j] = (type) (i + j);
  29.          for (i = NB; i <= NE; i++)
  30.              for (j = NB; j <= NE; j++)
  31.                  if (t2[i][j] != (type) (i+j))
  32.             printf("type: after allocate t2[%d][%d] = %t != %d\n",
  33.                     i, j, t2[i][j], i+j);
  34.         t2 = t2_renum(t2, NB, NE, NB, NE, NB+NO, NE+NO, NB+NO, NE+NO);
  35.          for (i = NB+NO; i <= NE+NO; i++)
  36.              for (j = NB+NO; j <= NE+NO; j++)
  37.                  if (t2[i][j] != (type) (i+j-NO-NO))
  38.             printf("type: after allocate t2[%d][%d] = %t != %d\n",
  39.                     i, j, t2[i][j], i+j-NO-NO);
  40.         t2_free(t2, NB+NO, NE+NO, NB+NO, NE+NO);
  41.  
  42.         printf("checking type 3 \n");
  43.         if (xx_amount() != 0L)
  44.             printf("type: amount == %ld", xx_amount());
  45.         t3 = t3_alloc(NB, NE, NB, NE, NB, NE);
  46.          for (i = NB; i <= NE; i++)
  47.              for (j = NB; j <= NE; j++)
  48.                  for (k = NB; k <= NE; k++)
  49.                      t3[i][j][k] = (type) (i + j + k);
  50.          for (i = NB; i <= NE; i++)
  51.              for (j = NB; j <= NE; j++)
  52.                  for (k = NB; k <= NE; k++)
  53.                      if (t3[i][j][k] != (type) (i+j+k))
  54.         printf("type: after allocate t3[%d][%d][%d] = %t != %d\n",
  55.                         i, j, k, t3[i][j][k], i+j+k);
  56.         t3 = t3_renum(t3, NB, NE, NB, NE, NB, NE, 
  57.             NB+NO, NE+NO, NB+NO, NE+NO, NB+NO, NE+NO);
  58.          for (i = NB+NO; i <= NE+NO; i++)
  59.              for (j = NB+NO; j <= NE+NO; j++)
  60.                  for (k = NB+NO; k <= NE+NO; k++)
  61.                      if (t3[i][j][k] != (type) (i+j+k-3*NO))
  62.         printf("type: after allocate t3[%d][%d][%d] = %t != %d\n",
  63.                     i, j, k, t3[i][j][k], i+j+k-3*NO);
  64.         t3_free(t3, NB+NO, NE+NO, NB+NO, NE+NO, NB+NO, NE+NO);
  65.     }
  66.  
  67.