zoom/zoomtst7.c

   1 /*
   2  * $Id: zoomtst7.c,v 1.6 2001-11-15 08:58:29 adam Exp $
   3  *
   4  * API test..
   5  */
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <assert.h>
  10
  11 #include <yaz/xmalloc.h>
  12 #include <yaz/nmem.h>
  13
  14 #include <yaz/zoom.h>
  15
  16 int main(int argc, char **argv)
  17 {
  18     int i, j, block;
  19     Z3950_connection z;
  20     Z3950_resultset r[10];  /* and result sets .. */
  21     Z3950_options o;
  22
  23     o = Z3950_options_create ();
  24
  25     z = Z3950_connection_new ("localhost", 9999);
  26     if (Z3950_connection_error (z, 0, 0))
  27     {
  28         printf ("error - couldn't connect?\n");
  29         exit (1);
  30     }
  31
  32     Z3950_connection_destroy (z);
  33
  34     for (block = 0; block < 3; block++)
  35     {
  36         switch (block)
  37         {
  38         case 0:
  39             printf ("blocking - not calling Z3950_events\n");
  40             break;
  41         case 1:
  42             printf ("blocking - calling Z3950_events\n");
  43             break;
  44         case 2:
  45             printf ("non-blocking - calling Z3950_events\n");
  46             break;
  47         }
  48         if (block > 1)
  49             Z3950_options_set (o, "async", "1");
  50         for (i = 0; i<10; i++)
  51         {
  52             char host[40];
  53             printf ("session %2d", i);
  54             sprintf (host, "localhost:9999/%d", i);
  55             z = Z3950_connection_create (o);
  56             Z3950_connection_connect (z, host, 0);
  57
  58             for (j = 0; j < 10; j++)
  59             {
  60                 Z3950_record recs[2];
  61                 char query[40];
  62                 Z3950_query s = Z3950_query_create ();
  63
  64                 sprintf (query, "i%dr%d", i, j);
  65
  66                 if (Z3950_query_prefix (s, query))
  67                 {
  68                     printf ("bad PQF: %s\n", query);
  69                     exit (2);
  70                 }
  71                 Z3950_options_set (o, "start", "0");
  72                 Z3950_options_set (o, "count", "0");
  73
  74                 r[j] = Z3950_connection_search (z, s); /* non-piggy */
  75
  76                 Z3950_resultset_records (r[j], recs, 0, 2);  /* first two */
  77
  78                 Z3950_resultset_records (r[j], recs, 1, 2);  /* third */
  79
  80                 Z3950_resultset_records (r[j], recs, 0, 0);  /* ignored */
  81
  82                 if (Z3950_resultset_size (r[j]) > 2)
  83                 {
  84                     if (!recs[0])
  85                     {
  86                         fprintf (stderr, "\nrecord missing\n");
  87                         exit (1);
  88                     }
  89                 }
  90
  91                 Z3950_query_destroy (s);
  92
  93                 putchar ('.');
  94                 if (block > 0)
  95                     while (Z3950_event (1, &z))
  96                         ;
  97             }
  98             for (j = 0; j<i; j++)
  99                 Z3950_resultset_destroy (r[j]);
 100             Z3950_connection_destroy (z);
 101             for (; j < 10; j++)
 102                 Z3950_resultset_destroy (r[j]);
 103             printf ("10 searches, 20 presents done\n");
 104         }
 105
 106         for (i = 0; i<1; i++)
 107         {
 108             Z3950_query q = Z3950_query_create ();
 109             char host[40];
 110
 111             printf ("session %2d", i+10);
 112             sprintf (host, "localhost:9999/%d", i);
 113             z = Z3950_connection_create (o);
 114             Z3950_connection_connect (z, host, 0);
 115
 116             for (j = 0; j < 10; j++)
 117             {
 118                 char query[40];
 119
 120                 sprintf (query, "i%dr%d", i, j);
 121
 122                 Z3950_options_set (o, "count", "0");
 123
 124                 r[j] = Z3950_connection_search_pqf (z, query);
 125
 126                 putchar ('.');
 127                 if (block > 0)
 128                     while (Z3950_event (1, &z))
 129                         ;
 130             }
 131             Z3950_connection_destroy (z);
 132
 133             for (j = 0; j < 10; j++)
 134             {
 135                 Z3950_resultset_records (r[j], 0, 0, 1);
 136                 if (block > 0)
 137                     while (Z3950_event (1, &z))
 138                         ;
 139             }
 140             for (j = 0; j < 10; j++)
 141                 Z3950_resultset_destroy (r[j]);
 142             Z3950_query_destroy (q);
 143             printf ("10 searches, 10 ignored presents done\n");
 144         }
 145     }
 146     Z3950_options_destroy (o);
 147     xmalloc_trav("");
 148     nmem_exit();
 149     xmalloc_trav("");
 150     exit (0);
 151 }
 152