trp/test/ptbl_test.c

   1 /*
   2  * Copyright (c) 2016, JANET(UK)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  *
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  *
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * 3. Neither the name of JANET(UK) nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  22  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
  23  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  24  * COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
  25  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  26  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  27  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  29  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  31  * OF THE POSSIBILITY OF SUCH DAMAGE.
  32  *
  33  */
  34
  35 #include <stdio.h>
  36 #include <talloc.h>
  37 #include <assert.h>
  38
  39 #include <tr_gss_names.h>
  40 #include <trp_internal.h>
  41 #include <trp_ptable.h>
  42
  43
  44 /* Can't do the updates test because trps_select_updates_for_peer() is now static */
  45 #define VERIFY_UPDATES 0
  46
  47 struct peer_entry {
  48   char *server;
  49   char *gss_name;
  50   unsigned int port;
  51   unsigned int linkcost;
  52 };
  53
  54 static struct peer_entry peer_data[]={
  55   {"peer0", "trustrouter@peer0", 10000, 0x0001},
  56   {"peer1", "trustrouter@peer1", 15000, 0x0002},
  57   {"peer2", "trustrouter@peer2", 20000, 0x0004},
  58   {"peer3", "trustrouter@peer3", 25000, 0x0008},
  59   {"peer4", "trustrouter@peer4", 30000, 0x0010}
  60 };
  61 static size_t n_peers=sizeof(peer_data)/sizeof(peer_data[0]);
  62
  63 static void populate_ptable(TRPS_INSTANCE *trps)
  64 {
  65   TRP_PEER *new_peer;
  66   int i;
  67
  68   for (i=0; i<n_peers; i++) {
  69     new_peer=trp_peer_new(NULL);
  70     assert(new_peer!=NULL);
  71     trp_peer_set_server(new_peer, peer_data[i].server);
  72     assert(trp_peer_get_server(new_peer)!=NULL);
  73     trp_peer_add_gss_name(new_peer, tr_new_name(peer_data[i].gss_name));
  74     assert(trp_peer_get_gss_names(new_peer)!=NULL);
  75     trp_peer_set_port(new_peer, peer_data[i].port);
  76     trp_peer_set_linkcost(new_peer, peer_data[i].linkcost);
  77     assert(trps_add_peer(trps, new_peer)==TRP_SUCCESS);
  78   }
  79 }
  80
  81 static struct peer_entry *find_peer_entry(char *server)
  82 {
  83   int i;
  84   for (i=0; i<n_peers; i++) {
  85     if (0==strcmp(server, peer_data[i].server)) {
  86       return (peer_data+i);
  87     }
  88   }
  89   return NULL;
  90 }
  91
  92 static void verify_ptable(TRPS_INSTANCE *trps)
  93 {
  94   struct peer_entry *peer_entry=NULL;
  95   TRP_PEER *peer;
  96   char *s;
  97   TR_NAME *gssname;
  98
  99   peer=trps->ptable->head;
 100   while (peer!=NULL) {
 101     peer_entry=find_peer_entry(trp_peer_get_server(peer));
 102     assert(peer_entry!=NULL);
 103     assert(!strcmp(trp_peer_get_server(peer), peer_entry->server));
 104     assert(trp_peer_get_port(peer)==peer_entry->port);
 105     assert(trp_peer_get_linkcost(peer)==peer_entry->linkcost);
 106     assert(0<asprintf(&s, "trustrouter@%s", peer_entry->server));
 107     gssname=tr_new_name(s);
 108     free(s);
 109     assert(gssname!=NULL);
 110     assert(tr_gss_names_matches(trp_peer_get_gss_names(peer), gssname));
 111     tr_free_name(gssname);
 112     peer=peer->next;
 113   }
 114 }
 115
 116 struct route_data {
 117   char *apc;
 118   char *realm;
 119   char *peer;
 120   unsigned int metric;
 121   char *trust_router;
 122   char *next_hop;
 123   int selected;
 124   unsigned int interval;
 125   int verified; /* for testing */
 126 };
 127 static struct route_data route_table[]={
 128   {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 129   {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 130   {"apc0", "realm0", "trustrouter@peer0", 1, "tr.r0.apc0", "trustrouter@peer0", 0, 60, 0},
 131   {"apc0", "realm1", "trustrouter@peer0", 0, "tr.r1.apc0", "trustrouter@peer0", 0, 60, 0},
 132   {"apc0", "realm2", "trustrouter@peer0", 0, "tr.r2.apc0", "trustrouter@peer0", 1, 60, 0},
 133   {"apc0", "realm3", "trustrouter@peer0", 1, "tr.r3.apc0", "trustrouter@peer0", 0, 60, 0},
 134   {"apc0", "realm4", "trustrouter@peer0", 2, "tr.r4.apc0", "trustrouter@peer0", 0, 60, 0},
 135   {"apc0", "realm0", "trustrouter@peer1", 0, "tr.r0.apc0", "trustrouter@peer1", 0, 60, 0},
 136   {"apc0", "realm1", "trustrouter@peer1", 1, "tr.r1.apc0", "trustrouter@peer1", 0, 60, 0},
 137   {"apc0", "realm2", "trustrouter@peer1", 1, "tr.r2.apc0", "trustrouter@peer1", 0, 60, 0},
 138   {"apc0", "realm3", "trustrouter@peer1", 0, "tr.r3.apc0", "trustrouter@peer1", 1, 60, 0},
 139   {"apc0", "realm4", "trustrouter@peer1", 2, "tr.r4.apc0", "trustrouter@peer1", 0, 60, 0},
 140   {"apc0", "realm0", "trustrouter@peer2", 0, "tr.r0.apc0", "trustrouter@peer2", 0, 60, 0},
 141   {"apc0", "realm1", "trustrouter@peer2", 2, "tr.r1.apc0", "trustrouter@peer2", 0, 60, 0},
 142   {"apc0", "realm2", "trustrouter@peer2", 2, "tr.r2.apc0", "trustrouter@peer2", 0, 60, 0},
 143   {"apc0", "realm3", "trustrouter@peer2", 1, "tr.r3.apc0", "trustrouter@peer2", 0, 60, 0},
 144   {"apc0", "realm4", "trustrouter@peer2", 0, "tr.r4.apc0", "trustrouter@peer2", 1, 60, 0},
 145 };
 146 static size_t n_routes=sizeof(route_table)/sizeof(route_table[0]);
 147
 148 #if VERIFY_UPDATES
 149 /* These are the correct updates to select from the above route table for each peer.
 150  * The rule is: send selected route unless it is through that peer, otherwise send
 151  * the best (lowest metric) alternative route.
 152  *
 153  * In a few cases there are multiple valid options (when a two non-selected routes
 154  * exist). If these tests are failing, it may be that the trps code is selecting another
 155  * valid option, so check that. Probably ought to tweak metrics to avoid that ambiguity. */
 156 static struct route_data update_table[][10]={
 157   { /* peer0 */
 158     {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 159     {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 160     {"apc0", "realm2", "trustrouter@peer1", 1, "tr.r2.apc0", "trustrouter@peer1", 0, 60, 0},
 161     {"apc0", "realm3", "trustrouter@peer1", 0, "tr.r3.apc0", "trustrouter@peer1", 1, 60, 0},
 162     {"apc0", "realm4", "trustrouter@peer2", 0, "tr.r4.apc0", "trustrouter@peer2", 1, 60, 0},
 163     {NULL}
 164   },
 165   { /* peer1 */
 166     {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 167     {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 168     {"apc0", "realm2", "trustrouter@peer0", 0, "tr.r2.apc0", "trustrouter@peer0", 1, 60, 0},
 169     {"apc0", "realm3", "trustrouter@peer2", 1, "tr.r3.apc0", "trustrouter@peer2", 0, 60, 0},
 170     {"apc0", "realm4", "trustrouter@peer2", 0, "tr.r4.apc0", "trustrouter@peer2", 1, 60, 0},
 171     {NULL}
 172   },
 173   { /* peer2 */
 174     {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 175     {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 176     {"apc0", "realm2", "trustrouter@peer0", 0, "tr.r2.apc0", "trustrouter@peer0", 1, 60, 0},
 177     {"apc0", "realm3", "trustrouter@peer1", 0, "tr.r3.apc0", "trustrouter@peer1", 1, 60, 0},
 178     {"apc0", "realm4", "trustrouter@peer1", 2, "tr.r4.apc0", "trustrouter@peer1", 0, 60, 0},
 179     {NULL}
 180   },
 181   { /* peer3 */
 182     {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 183     {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 184     {"apc0", "realm2", "trustrouter@peer0", 0, "tr.r2.apc0", "trustrouter@peer0", 1, 60, 0},
 185     {"apc0", "realm3", "trustrouter@peer1", 0, "tr.r3.apc0", "trustrouter@peer1", 1, 60, 0},
 186     {"apc0", "realm4", "trustrouter@peer2", 0, "tr.r4.apc0", "trustrouter@peer2", 1, 60, 0},
 187     {NULL}
 188   },
 189   { /* peer4 */
 190     {"apc0", "realm0", "", 0, "tr.r0.apc0", "", 1, 60, 0},
 191     {"apc0", "realm1", "", 0, "tr.r1.apc0", "", 1, 60, 0},
 192     {"apc0", "realm2", "trustrouter@peer0", 0, "tr.r2.apc0", "trustrouter@peer0", 1, 60, 0},
 193     {"apc0", "realm3", "trustrouter@peer1", 0, "tr.r3.apc0", "trustrouter@peer1", 1, 60, 0},
 194     {"apc0", "realm4", "trustrouter@peer2", 0, "tr.r4.apc0", "trustrouter@peer2", 1, 60, 0},
 195     {NULL}
 196   }
 197 };
 198 #endif /* VERIFY_UPDATES */
 199
 200 static void populate_rtable(TRPS_INSTANCE *trps)
 201 {
 202   int i;
 203   TRP_ROUTE *new;
 204
 205   for (i=0; i<n_routes; i++) {
 206     new=trp_route_new(NULL);
 207     assert(new!=NULL);
 208     trp_route_set_comm(new, tr_new_name(route_table[i].apc));
 209     trp_route_set_realm(new, tr_new_name(route_table[i].realm));
 210     trp_route_set_peer(new, tr_new_name(route_table[i].peer));
 211     trp_route_set_metric(new, route_table[i].metric);
 212     trp_route_set_trust_router(new, tr_new_name(route_table[i].trust_router));
 213     trp_route_set_next_hop(new, tr_new_name(route_table[i].next_hop));
 214     trp_route_set_selected(new, route_table[i].selected);
 215     trp_route_set_interval(new, route_table[i].interval);
 216     /* do not set expiry */
 217     trp_rtable_add(trps->rtable, new);
 218     new=NULL;
 219   }
 220 }
 221
 222 #if VERIFY_UPDATES
 223 static void verify_update(TRP_ROUTE **updates, size_t n_updates, struct route_data *expected)
 224 {
 225   int ii,jj;
 226   int found;
 227
 228   for(jj=0; jj<n_updates; jj++) {
 229     found=0;
 230     for (ii=0; expected[ii].apc!=NULL; ii++) {
 231       if ((0==strcmp(expected[ii].apc, updates[jj]->comm->buf))
 232          &&(0==strcmp(expected[ii].realm, updates[jj]->realm->buf))
 233          &&(0==strcmp(expected[ii].peer, updates[jj]->peer->buf))
 234          &&(expected[ii].metric==updates[jj]->metric)
 235          &&(0==strcmp(expected[ii].trust_router, updates[jj]->trust_router->buf))
 236          &&(0==strcmp(expected[ii].next_hop, updates[jj]->next_hop->buf))
 237          &&(expected[ii].selected==updates[jj]->selected)
 238          &&(expected[ii].interval==updates[jj]->interval)) {
 239         assert(expected[ii].verified==0); /* should only encounter each entry once */
 240         expected[ii].verified=1;
 241         found=1;
 242         continue;
 243       }
 244     }
 245     if (!found) {
 246       printf("missing:\n%s\n", trp_route_to_str(NULL,updates[jj], " | "));
 247       assert(0);
 248     }
 249   }
 250   for(ii=0; expected[ii].apc!=NULL; ii++)
 251     assert(expected[ii].verified==1);
 252 }
 253
 254 static void verify_update_selection(TRPS_INSTANCE *trps)
 255 {
 256   int ii;
 257   TRP_ROUTE **updates=NULL;
 258   size_t n_updates;
 259   TR_NAME *gssname=NULL;
 260   char *s;
 261
 262   for (ii=0; ii<n_peers; ii++) {
 263     assert(0<asprintf(&s, "trustrouter@%s", peer_data[ii].server));
 264     assert(NULL!=(gssname=tr_new_name(s)));
 265     free(s);
 266
 267     updates=trps_select_updates_for_peer(NULL, trps, gssname, &n_updates);
 268     tr_free_name(gssname);
 269     verify_update(updates, n_updates, update_table[ii]);
 270     talloc_free(updates);
 271   }
 272 }
 273 #endif /* VERIFY_UPDATES */
 274
 275 int main(void)
 276 {
 277   TALLOC_CTX *main_ctx=talloc_new(NULL);
 278   TRPS_INSTANCE *trps;
 279   char *s;
 280
 281   trps=trps_new(main_ctx);
 282
 283   printf("\nPopulating peer table...\n");
 284   populate_ptable(trps);
 285
 286   printf("\nVerifying peer table...\n");
 287   verify_ptable(trps);
 288
 289   printf("\nPopulating route table...\n");
 290   populate_rtable(trps);
 291   s=trp_rtable_to_str(main_ctx, trps->rtable, " | ", NULL);
 292   printf("Route Table:\n%s---\n", s);
 293
 294 #if VERIFY_UPDATES
 295   printf("\nVerifying route update selection...\n");
 296   verify_update_selection(trps);
 297 #endif /* VERIFY_UPDATES */
 298
 299   printf("\nDone\n\n");
 300   talloc_report_full(main_ctx, stderr);
 301   talloc_free(main_ctx);
 302   talloc_report_full(NULL, stderr);
 303   return 0;
 304 }