ipc/dde_atom_test.c

   1 /***************************************************************************
   2  * Copyright 1995, Technion, Israel Institute of Technology
   3  * Electrical Eng, Software Lab.
   4  * Author:    Michael Veksler.
   5  ***************************************************************************
   6  * File:      dde_atom_test.c
   7  * Purpose :  tests for dde_atom object
   8  ***************************************************************************
   9  */
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <win.h>
  13 #include "dde_atom.h"
  14 #include "shm_main_blk.h"
  15 #include <debug.h>
  16 #define TOGETHER (DDE_ATOMS/5)
  17
  18
  19 /* run random sequences */
  20 int main()
  21 {
  22   ATOM atom_list[TOGETHER];
  23   char str[TOGETHER][80];
  24   int i,j,atom_n;
  25   int atom_len[TOGETHER];
  26
  27   TRACE_ON(shm)=1;
  28   TRACE_ON(atom)=0;
  29   TRACE_ON(sem)=0;
  30
  31   for (i=0 ; i<=10000/TOGETHER ; i++) {
  32      for (atom_n=0 ; atom_n<TOGETHER ; atom_n++) {
  33         atom_len[atom_n]=rand()%64+1;
  34         for (j=atom_len[atom_n]-1; j>=0; j--)
  35            do {
  36               str[atom_n][j]=(char)(rand()%255+1);
  37            } while (j==0 && str[atom_n][j]=='#');
  38
  39         str[atom_n][ atom_len[atom_n] ]='\0';
  40
  41         atom_list[atom_n]=GlobalAddAtom(str[atom_n]);
  42
  43         if (atom_list[atom_n]==0) {
  44            fprintf(stderr,"failed i=%d, atom_n=%d\n",i,atom_n);
  45            return 1;
  46         }
  47         if (atom_list[atom_n]!=GlobalAddAtom(str[atom_n])) {
  48            fprintf(stderr,
  49                    "wrong second GlobalAddAtom(\"%s\")\n", str[atom_n]);
  50            return 1;
  51         }
  52      } /* for */
  53      for (atom_n=0 ; atom_n<TOGETHER ; atom_n++) {
  54         char buf[80];
  55         int len;
  56
  57         len=GlobalGetAtomName( atom_list[atom_n], buf, 79);
  58         if (atom_len[atom_n] != len) {
  59            fprintf(stderr, "i=%d, atom_n=%d; ", i, atom_n);
  60            fprintf(stderr,
  61                    "wrong length of GlobalGetAtomName(\"%s\")\n",
  62                    str[atom_n]);
  63
  64            return 1;
  65         }
  66
  67      }
  68      for (atom_n=0 ; atom_n<TOGETHER ; atom_n++) {
  69         GlobalDeleteAtom(atom_list[atom_n]);
  70         if (atom_list[atom_n]!=GlobalAddAtom(str[atom_n])) {
  71            fprintf(stderr, "i=%d, atom_n=%d; ", i, atom_n);
  72            fprintf(stderr,
  73                    "wrong third GlobalAddAtom(\"%s\")\n", str[atom_n]);
  74            return 1;
  75         }
  76         GlobalDeleteAtom(atom_list[atom_n]);
  77         GlobalDeleteAtom(atom_list[atom_n]);
  78
  79         atom_list[atom_n]=GlobalAddAtom(str[atom_n]);
  80         if (atom_list[atom_n]!=GlobalAddAtom(str[atom_n])) {
  81            fprintf(stderr,
  82                    "i=%d, atom_n=%d wrong fifth GlobalAddAtom(\"%s\")\n",
  83                    i, atom_n,
  84                    str[atom_n]);
  85            return 1;
  86         }
  87         GlobalDeleteAtom(atom_list[atom_n]);
  88         if (atom_list[atom_n]!=GlobalFindAtom(str[atom_n])) {
  89            fprintf(stderr,
  90                    "i=%d, atom_n=%d wrong GlobalFindAtom(\"%s\")\n",
  91                    i, atom_n,
  92                    str[atom_n]);
  93            return 1;
  94         }
  95         GlobalDeleteAtom(atom_list[atom_n]);
  96      }
  97   }
  98   return 0;
  99 }