src/dv/test_transport_api_dv.c

   1 /*
   2      This file is part of GNUnet.
   3      (C) 2009 Christian Grothoff (and other contributing authors)
   4
   5      GNUnet is free software; you can redistribute it and/or modify
   6      it under the terms of the GNU General Public License as published
   7      by the Free Software Foundation; either version 3, or (at your
   8      option) any later version.
   9
  10      GNUnet is distributed in the hope that it will be useful, but
  11      WITHOUT ANY WARRANTY; without even the implied warranty of
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13      General Public License for more details.
  14
  15      You should have received a copy of the GNU General Public License
  16      along with GNUnet; see the file COPYING.  If not, write to the
  17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18      Boston, MA 02111-1307, USA.
  19 */
  20 /**
  21  * @file dv/test_transport_api_dv.c
  22  * @brief base testcase for testing distance vector transport
  23  */
  24 #include "platform.h"
  25 #include "gnunet_testing_lib.h"
  26 #include "gnunet_core_service.h"
  27
  28 #define VERBOSE GNUNET_NO
  29
  30 #define TEST_ALL GNUNET_NO
  31
  32 /**
  33  * How long until we fail the whole testcase?
  34  */
  35 #define TEST_TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 600)
  36
  37 /**
  38  * How long until we give up on starting the peers?
  39  */
  40 #define TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 500)
  41
  42 #define DEFAULT_NUM_PEERS 4
  43
  44 #define DEFAULT_ADDITIONAL_MESSAGES 2
  45
  46 #define MAX_OUTSTANDING_CONNECTIONS 100
  47
  48 static float fail_percentage = 0.00;
  49
  50 static int ok;
  51
  52 static unsigned long long num_additional_messages;
  53
  54 static unsigned long long num_peers;
  55
  56 static unsigned int total_connections;
  57
  58 static unsigned int failed_connections;
  59
  60 static unsigned int total_server_connections;
  61
  62 static unsigned int total_messages_received;
  63
  64 static unsigned int total_other_expected_messages;
  65
  66 static unsigned int temp_total_other_messages;
  67
  68 static unsigned int total_other_messages;
  69
  70 static unsigned int expected_messages;
  71
  72 static unsigned int expected_connections;
  73
  74 static unsigned long long peers_left;
  75
  76 static struct GNUNET_TESTING_PeerGroup *pg;
  77
  78 const struct GNUNET_CONFIGURATION_Handle *main_cfg;
  79
  80 GNUNET_SCHEDULER_TaskIdentifier die_task;
  81
  82 static char *dotOutFileName = "topology.dot";
  83
  84 static FILE *dotOutFile;
  85
  86 static char *blacklist_transports;
  87
  88 static int transmit_ready_scheduled;
  89
  90 static int transmit_ready_failed;
  91
  92 static int transmit_ready_called;
  93
  94 static enum GNUNET_TESTING_Topology topology;
  95
  96 static enum GNUNET_TESTING_Topology blacklist_topology = GNUNET_TESTING_TOPOLOGY_NONE; /* Don't do any blacklisting */
  97
  98 static enum GNUNET_TESTING_Topology connection_topology = GNUNET_TESTING_TOPOLOGY_NONE; /* NONE actually means connect all allowed peers */
  99
 100 static enum GNUNET_TESTING_TopologyOption connect_topology_option = GNUNET_TESTING_TOPOLOGY_OPTION_ALL;
 101
 102 static double connect_topology_option_modifier = 0.0;
 103
 104 static char *test_directory;
 105
 106 struct GNUNET_CONTAINER_MultiHashMap *peer_daemon_hash;
 107
 108 #define MTYPE 12345
 109
 110 struct GNUNET_TestMessage
 111 {
 112   /**
 113    * Header of the message
 114    */
 115   struct GNUNET_MessageHeader header;
 116
 117   /**
 118    * Unique identifier for this message.
 119    */
 120   uint32_t uid;
 121 };
 122
 123 struct PeerContext
 124 {
 125   /* This is a linked list */
 126   struct PeerContext *next;
 127
 128   /**
 129    * Handle to the daemon
 130    */
 131   struct GNUNET_TESTING_Daemon *daemon;
 132
 133   /* Handle to the peer core */
 134   struct GNUNET_CORE_Handle *peer_handle;
 135 };
 136
 137 static struct PeerContext *all_peers;
 138
 139 struct TestMessageContext
 140 {
 141   /* This is a linked list */
 142   struct TestMessageContext *next;
 143
 144   /* Handle to the sending peer core */
 145   struct GNUNET_CORE_Handle *peer1handle;
 146
 147   /* Handle to the receiving peer core */
 148   struct GNUNET_CORE_Handle *peer2handle;
 149
 150   /* Handle to the sending peer daemon */
 151   struct GNUNET_TESTING_Daemon *peer1;
 152
 153   /* Handle to the receiving peer daemon */
 154   struct GNUNET_TESTING_Daemon *peer2;
 155
 156   /* Identifier for this message, so we don't disconnect other peers! */
 157   uint32_t uid;
 158
 159   /* Task for disconnecting cores, allow task to be cancelled on shutdown */
 160   GNUNET_SCHEDULER_TaskIdentifier disconnect_task;
 161 };
 162
 163 static struct TestMessageContext *test_messages;
 164
 165 static struct TestMessageContext *other_test_messages;
 166
 167 /**
 168  * Check whether peers successfully shut down.
 169  */
 170 void shutdown_callback (void *cls,
 171                         const char *emsg)
 172 {
 173   if (emsg != NULL)
 174     {
 175 #if VERBOSE
 176       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 177                   "Shutdown of peers failed!\n");
 178 #endif
 179       if (ok == 0)
 180         ok = 666;
 181     }
 182   else
 183     {
 184 #if VERBOSE
 185       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 186                   "All peers successfully shut down!\n");
 187 #endif
 188     }
 189 }
 190
 191 static void
 192 finish_testing ()
 193 {
 194   GNUNET_assert (pg != NULL);
 195   struct PeerContext *peer_pos;
 196   struct PeerContext *free_peer_pos;
 197   struct TestMessageContext *pos;
 198   struct TestMessageContext *free_pos;
 199
 200 #if VERBOSE
 201   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 202               "Called finish testing, stopping daemons.\n");
 203 #endif
 204   peer_pos = all_peers;
 205   while (peer_pos != NULL)
 206     {
 207       if (peer_pos->peer_handle != NULL)
 208         GNUNET_CORE_disconnect(peer_pos->peer_handle);
 209       free_peer_pos = peer_pos;
 210       peer_pos = peer_pos->next;
 211       GNUNET_free(free_peer_pos);
 212     }
 213   all_peers = NULL;
 214
 215   pos = test_messages;
 216   while (pos != NULL)
 217     {
 218       if (pos->peer1handle != NULL)
 219         {
 220           GNUNET_CORE_disconnect(pos->peer1handle);
 221           pos->peer1handle = NULL;
 222         }
 223       if (pos->peer2handle != NULL)
 224         {
 225           GNUNET_CORE_disconnect(pos->peer2handle);
 226           pos->peer2handle = NULL;
 227         }
 228       free_pos = pos;
 229       pos = pos->next;
 230       if (free_pos->disconnect_task != GNUNET_SCHEDULER_NO_TASK)
 231         {
 232           GNUNET_SCHEDULER_cancel(free_pos->disconnect_task);
 233         }
 234       GNUNET_free(free_pos);
 235     }
 236
 237   pos = other_test_messages;
 238   while (pos != NULL)
 239     {
 240       if (pos->peer1handle != NULL)
 241         {
 242           GNUNET_CORE_disconnect(pos->peer1handle);
 243           pos->peer1handle = NULL;
 244         }
 245       if (pos->peer2handle != NULL)
 246         {
 247           GNUNET_CORE_disconnect(pos->peer2handle);
 248           pos->peer2handle = NULL;
 249         }
 250       free_pos = pos;
 251       pos = pos->next;
 252       if (free_pos->disconnect_task != GNUNET_SCHEDULER_NO_TASK)
 253         {
 254           GNUNET_SCHEDULER_cancel(free_pos->disconnect_task);
 255         }
 256       GNUNET_free(free_pos);
 257     }
 258 #if VERBOSE
 259           GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 260                       "transmit_ready's scheduled %d, failed %d, transmit_ready's called %d\n", transmit_ready_scheduled, transmit_ready_failed, transmit_ready_called);
 261 #endif
 262
 263 #if VERBOSE
 264           GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 265                       "Calling daemons_stop\n");
 266 #endif
 267   GNUNET_TESTING_daemons_stop (pg, TIMEOUT, &shutdown_callback, NULL);
 268 #if VERBOSE
 269           GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 270                       "daemons_stop finished\n");
 271 #endif
 272   if (dotOutFile != NULL)
 273     {
 274       fprintf(dotOutFile, "}");
 275       fclose(dotOutFile);
 276     }
 277
 278   ok = 0;
 279 }
 280
 281
 282 static void
 283 disconnect_cores (void *cls, const struct GNUNET_SCHEDULER_TaskContext * tc)
 284 {
 285   struct TestMessageContext *pos = cls;
 286
 287   /* Disconnect from the respective cores */
 288 #if VERBOSE
 289   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 290               "Disconnecting from peer 1 `%4s'\n", GNUNET_i2s (&pos->peer1->id));
 291 #endif
 292   if (pos->peer1handle != NULL)
 293     GNUNET_CORE_disconnect(pos->peer1handle);
 294 #if VERBOSE
 295   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 296               "Disconnecting from peer 2 `%4s'\n", GNUNET_i2s (&pos->peer2->id));
 297 #endif
 298   if (pos->peer2handle != NULL)
 299     GNUNET_CORE_disconnect(pos->peer2handle);
 300   /* Set handles to NULL so test case can be ended properly */
 301   pos->peer1handle = NULL;
 302   pos->peer2handle = NULL;
 303   pos->disconnect_task = GNUNET_SCHEDULER_NO_TASK;
 304   /* Decrement total connections so new can be established */
 305   total_server_connections -= 2;
 306 }
 307
 308 static void
 309 end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext * tc)
 310 {
 311   char *msg = cls;
 312   GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
 313               "End badly was called (%s)... stopping daemons.\n", msg);
 314   struct TestMessageContext *pos;
 315   struct TestMessageContext *free_pos;
 316   struct PeerContext * peer_pos;
 317   struct PeerContext * free_peer_pos;
 318
 319   peer_pos = all_peers;
 320   while (peer_pos != NULL)
 321     {
 322       if (peer_pos->peer_handle != NULL)
 323         GNUNET_CORE_disconnect(peer_pos->peer_handle);
 324       free_peer_pos = peer_pos;
 325       peer_pos = peer_pos->next;
 326       GNUNET_free(free_peer_pos);
 327     }
 328   all_peers = NULL;
 329
 330   pos = test_messages;
 331   while (pos != NULL)
 332     {
 333       if (pos->peer1handle != NULL)
 334         {
 335           GNUNET_CORE_disconnect(pos->peer1handle);
 336           pos->peer1handle = NULL;
 337         }
 338       if (pos->peer2handle != NULL)
 339         {
 340           GNUNET_CORE_disconnect(pos->peer2handle);
 341           pos->peer2handle = NULL;
 342         }
 343       free_pos = pos;
 344       pos = pos->next;
 345       GNUNET_free(free_pos);
 346     }
 347
 348   pos = other_test_messages;
 349   while (pos != NULL)
 350     {
 351       if (pos->peer1handle != NULL)
 352         {
 353           GNUNET_CORE_disconnect(pos->peer1handle);
 354           pos->peer1handle = NULL;
 355         }
 356       if (pos->peer2handle != NULL)
 357         {
 358           GNUNET_CORE_disconnect(pos->peer2handle);
 359           pos->peer2handle = NULL;
 360         }
 361       free_pos = pos;
 362       pos = pos->next;
 363       if (free_pos->disconnect_task != GNUNET_SCHEDULER_NO_TASK)
 364         {
 365           GNUNET_SCHEDULER_cancel(free_pos->disconnect_task);
 366         }
 367       GNUNET_free(free_pos);
 368     }
 369
 370   if (pg != NULL)
 371     {
 372       GNUNET_TESTING_daemons_stop (pg, TIMEOUT, &shutdown_callback, NULL);
 373       ok = 7331;                /* Opposite of leet */
 374     }
 375   else
 376     ok = 401;                   /* Never got peers started */
 377
 378   if (dotOutFile != NULL)
 379     {
 380       fprintf(dotOutFile, "}");
 381       fclose(dotOutFile);
 382     }
 383 }
 384
 385 static void
 386 send_other_messages (void *cls, const struct GNUNET_SCHEDULER_TaskContext * tc);
 387
 388 /**
 389  * Get distance information from 'atsi'.
 390  *
 391  * @param atsi performance data
 392  * @return connected transport distance
 393  */
 394 static uint32_t
 395 get_atsi_distance (const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 396 {
 397   while ( (ntohl (atsi->type) != GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR) &&
 398           (ntohl (atsi->type) != GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE) )
 399     atsi++;
 400   if (ntohl (atsi->type) == GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR)
 401     {
 402       GNUNET_break (0);
 403       /* FIXME: we do not have distance data? Assume direct neighbor. */
 404       return 1;
 405     }
 406   return ntohl (atsi->value);
 407 }
 408
 409 static int
 410 process_mtype (void *cls,
 411                const struct GNUNET_PeerIdentity *peer,
 412                const struct GNUNET_MessageHeader *message,
 413                const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 414 {
 415   struct TestMessageContext *pos = cls;
 416   struct GNUNET_TestMessage *msg = (struct GNUNET_TestMessage *)message;
 417 #if VERBOSE
 418   uint32_t distance;
 419 #endif
 420   if (pos->uid != ntohl(msg->uid))
 421     return GNUNET_OK;
 422
 423 #if VERBOSE
 424   distance = get_atsi_distance(atsi);
 425 #endif
 426   GNUNET_assert(0 == memcmp(peer, &pos->peer1->id, sizeof(struct GNUNET_PeerIdentity)));
 427   if (total_other_expected_messages == 0)
 428     {
 429       total_messages_received++;
 430 #if VERBOSE
 431       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 432                   "Received message from `%4s', type %d, uid %u, distance %u.\n", GNUNET_i2s (peer), ntohs(message->type), ntohl(msg->uid), distance);
 433       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 434                   "Total messages received %d, expected %d.\n", total_messages_received, expected_messages);
 435 #endif
 436     }
 437   else
 438     {
 439       total_other_messages++;
 440 #if VERBOSE
 441       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 442                   "Received message from `%4s', type %d, uid %u, distance %u.\n", GNUNET_i2s (peer), ntohs(message->type), ntohl(msg->uid), distance);
 443       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 444                   "Total messages received %d, expected %d.\n", total_other_messages, total_other_expected_messages);
 445 #endif
 446     }
 447
 448   if ((total_messages_received == expected_messages) && (total_other_messages == 0))
 449     {
 450       GNUNET_SCHEDULER_cancel (die_task);
 451       die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 452                                                &end_badly, "waiting for DV peers to connect!");
 453       /*
 454       if ((num_peers == 3) && (total_other_expected_messages == 2))
 455         {
 456           GNUNET_SCHEDULER_add_now (&send_other_messages, NULL);
 457         }
 458       else
 459         {
 460           GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 20), &send_other_messages, NULL);
 461         }*/
 462     }
 463   else if ((total_other_expected_messages > 0) && (total_other_messages == total_other_expected_messages))
 464     {
 465       GNUNET_SCHEDULER_cancel (die_task);
 466       GNUNET_SCHEDULER_add_now (&finish_testing, NULL);
 467     }
 468   else
 469     {
 470       pos->disconnect_task = GNUNET_SCHEDULER_add_now(&disconnect_cores, pos);
 471     }
 472
 473   return GNUNET_OK;
 474 }
 475
 476 static size_t
 477 transmit_ready (void *cls, size_t size, void *buf)
 478 {
 479   struct GNUNET_TestMessage *m;
 480   struct TestMessageContext *pos = cls;
 481
 482   GNUNET_assert (buf != NULL);
 483   m = (struct GNUNET_TestMessage *) buf;
 484   m->header.type = htons (MTYPE);
 485   m->header.size = htons (sizeof (struct GNUNET_TestMessage));
 486   m->uid = htonl(pos->uid);
 487   transmit_ready_called++;
 488 #if VERBOSE
 489   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 490               "transmit ready for peer %s\ntransmit_ready's scheduled %d, transmit_ready's called %d\n", GNUNET_i2s(&pos->peer1->id), transmit_ready_scheduled, transmit_ready_called);
 491 #endif
 492   return sizeof (struct GNUNET_TestMessage);
 493 }
 494
 495
 496 static struct GNUNET_CORE_MessageHandler no_handlers[] = {
 497   {NULL, 0, 0}
 498 };
 499
 500 static struct GNUNET_CORE_MessageHandler handlers[] = {
 501   {&process_mtype, MTYPE, sizeof (struct GNUNET_TestMessage)},
 502   {NULL, 0, 0}
 503 };
 504
 505 /**
 506  * Notify of all peer1's peers, once peer 2 is found, schedule connect
 507  * to peer two for message send.
 508  *
 509  * @param cls closure
 510  * @param peer peer identity this notification is about
 511  * @param atsi performance data for the connection
 512  */
 513 static void connect_notify_peer2 (void *cls,
 514                                   const struct
 515                                   GNUNET_PeerIdentity *peer,
 516                                   const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 517 {
 518   struct TestMessageContext *pos = cls;
 519
 520   if (0 == memcmp(&pos->peer1->id, peer, sizeof(struct GNUNET_PeerIdentity)))
 521     {
 522 #if VERBOSE
 523       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 524                   "Core connection from `%s' to `%4s' verfied, sending message!\n",
 525                   GNUNET_i2s(&pos->peer2->id), GNUNET_h2s (&peer->hashPubKey));
 526 #endif
 527       if (NULL == GNUNET_CORE_notify_transmit_ready (pos->peer1handle,
 528                                                      0,
 529                                                      TIMEOUT,
 530                                                      &pos->peer2->id,
 531                                                      sizeof (struct GNUNET_TestMessage),
 532                                                      &transmit_ready, pos))
 533         {
 534           /* This probably shouldn't happen, but it does (timing issue?) */
 535           GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
 536                       "RECEIVED NULL when asking core (1) for transmission to peer `%4s'\n",
 537                       GNUNET_i2s (&pos->peer2->id));
 538           transmit_ready_failed++;
 539           total_other_expected_messages--;
 540         }
 541       else
 542         {
 543           transmit_ready_scheduled++;
 544         }
 545     }
 546 }
 547
 548 static void
 549 init_notify_peer2 (void *cls,
 550              struct GNUNET_CORE_Handle *server,
 551              const struct GNUNET_PeerIdentity *my_identity,
 552              const struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded *publicKey)
 553 {
 554 #if VERBOSE
 555   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 556               "Core connection to `%4s' established, awaiting connections.\n",
 557               GNUNET_i2s (my_identity));
 558 #endif
 559   total_server_connections++;
 560 }
 561
 562 /**
 563  * Notify of all peer1's peers, once peer 2 is found, schedule connect
 564  * to peer two for message send.
 565  *
 566  * @param cls closure
 567  * @param peer peer identity this notification is about
 568  * @param atsi performance data for the connection
 569  */
 570 static void connect_notify_peer1 (void *cls,
 571                                   const struct
 572                                   GNUNET_PeerIdentity *peer,
 573                                   const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 574 {
 575   struct TestMessageContext *pos = cls;
 576
 577   if (0 == memcmp(&pos->peer2->id, peer, sizeof(struct GNUNET_PeerIdentity)))
 578     {
 579 #if VERBOSE
 580       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 581                   "Core connection from `%s' to `%4s' verified.\n",
 582                   GNUNET_i2s(&pos->peer1->id), GNUNET_h2s (&peer->hashPubKey));
 583 #endif
 584       /*
 585        * Connect to the receiving peer
 586        */
 587       pos->peer2handle = GNUNET_CORE_connect (pos->peer2->cfg,
 588                                               1,
 589                                               pos,
 590                                               &init_notify_peer2,
 591                                               &connect_notify_peer2,
 592                                               NULL,
 593                                               NULL, NULL,
 594                                               GNUNET_YES, NULL, GNUNET_YES, handlers);
 595     }
 596 }
 597
 598 static void
 599 init_notify_peer1 (void *cls,
 600              struct GNUNET_CORE_Handle *server,
 601              const struct GNUNET_PeerIdentity *my_identity,
 602              const struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded *publicKey)
 603 {
 604   total_server_connections++;
 605 #if VERBOSE
 606   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 607               "Core connection to `%4s' established, awaiting connections...\n",
 608               GNUNET_i2s (my_identity));
 609 #endif
 610 }
 611
 612
 613 static void
 614 send_test_messages (void *cls, const struct GNUNET_SCHEDULER_TaskContext * tc)
 615 {
 616   struct TestMessageContext *pos = cls;
 617
 618   if ((tc->reason == GNUNET_SCHEDULER_REASON_SHUTDOWN) || (cls == NULL))
 619     return;
 620
 621   if (die_task == GNUNET_SCHEDULER_NO_TASK)
 622     {
 623       die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 624                                                &end_badly, "from create topology (timeout)");
 625     }
 626
 627   if (total_server_connections >= MAX_OUTSTANDING_CONNECTIONS)
 628     {
 629       GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 1),
 630                                     &send_test_messages, pos);
 631       return; /* Otherwise we'll double schedule messages here! */
 632     }
 633 #if VERBOSE
 634   GNUNET_log(GNUNET_ERROR_TYPE_DEBUG, "Attempting to send test message from %s to %s\n", pos->peer1->shortname, pos->peer2->shortname);
 635 #endif
 636   /*
 637    * Connect to the sending peer
 638    */
 639   pos->peer1handle = GNUNET_CORE_connect (pos->peer1->cfg,
 640                                           1,
 641                                           pos,
 642                                           &init_notify_peer1,
 643                                           &connect_notify_peer1,
 644                                           NULL,
 645                                           NULL,
 646                                           NULL,
 647                                           GNUNET_NO, NULL, GNUNET_NO, no_handlers);
 648
 649   GNUNET_assert(pos->peer1handle != NULL);
 650
 651   if (total_server_connections < MAX_OUTSTANDING_CONNECTIONS)
 652     {
 653       GNUNET_SCHEDULER_add_now (&send_test_messages, pos->next);
 654     }
 655   else
 656     {
 657       GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 1),
 658                                     &send_test_messages, pos->next);
 659     }
 660 }
 661
 662 static void
 663 send_other_messages (void *cls, const struct GNUNET_SCHEDULER_TaskContext * tc)
 664 {
 665   struct TestMessageContext *pos;
 666   struct TestMessageContext *free_pos;
 667   struct PeerContext *peer_pos;
 668 #if TEST_ALL
 669   struct PeerContext *inner_peer_pos;
 670   struct TestMessageContext *temp_context;
 671 #endif
 672   peer_pos = all_peers;
 673   while (peer_pos != NULL)
 674     {
 675       if (peer_pos->peer_handle != NULL)
 676         {
 677           GNUNET_CORE_disconnect(peer_pos->peer_handle);
 678           peer_pos->peer_handle = NULL;
 679         }
 680 #if TEST_ALL
 681       inner_peer_pos = all_peers;
 682       while (inner_peer_pos != NULL)
 683         {
 684           if (inner_peer_pos != peer_pos)
 685           {
 686             temp_total_other_messages++;
 687             temp_context = GNUNET_malloc(sizeof(struct TestMessageContext));
 688             temp_context->peer1 = peer_pos->daemon;
 689             temp_context->peer2 = inner_peer_pos->daemon;
 690             temp_context->next = other_test_messages;
 691             temp_context->uid = total_connections + temp_total_other_messages;
 692             temp_context->disconnect_task = GNUNET_SCHEDULER_NO_TASK;
 693             other_test_messages = temp_context;
 694           }
 695           inner_peer_pos = inner_peer_pos->next;
 696         }
 697 #endif
 698       peer_pos = peer_pos->next;
 699     }
 700   all_peers = NULL;
 701
 702   pos = test_messages;
 703   while (pos != NULL)
 704     {
 705       if (pos->peer1handle != NULL)
 706         {
 707           GNUNET_CORE_disconnect(pos->peer1handle);
 708           pos->peer1handle = NULL;
 709         }
 710       if (pos->peer2handle != NULL)
 711         {
 712           GNUNET_CORE_disconnect(pos->peer2handle);
 713           pos->peer2handle = NULL;
 714         }
 715       free_pos = pos;
 716       pos = pos->next;
 717       if (free_pos->disconnect_task != GNUNET_SCHEDULER_NO_TASK)
 718         {
 719           GNUNET_SCHEDULER_cancel(free_pos->disconnect_task);
 720         }
 721       GNUNET_free(free_pos);
 722     }
 723   test_messages = NULL;
 724
 725   total_other_expected_messages = temp_total_other_messages;
 726   if (total_other_expected_messages == 0)
 727     {
 728       GNUNET_SCHEDULER_add_now (&end_badly, "send_other_messages had 0 messages to send, no DV connections made!");
 729     }
 730 #if VERBOSE
 731   GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "Preparing to send %d other test messages\n", total_other_expected_messages);
 732 #endif
 733
 734   GNUNET_SCHEDULER_add_now (&send_test_messages, other_test_messages);
 735   GNUNET_SCHEDULER_cancel(die_task);
 736   die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 250), &end_badly, "from send_other_messages");
 737 }
 738
 739 void
 740 topology_callback (void *cls,
 741                    const struct GNUNET_PeerIdentity *first,
 742                    const struct GNUNET_PeerIdentity *second,
 743                    uint32_t distance,
 744                    const struct GNUNET_CONFIGURATION_Handle *first_cfg,
 745                    const struct GNUNET_CONFIGURATION_Handle *second_cfg,
 746                    struct GNUNET_TESTING_Daemon *first_daemon,
 747                    struct GNUNET_TESTING_Daemon *second_daemon,
 748                    const char *emsg)
 749 {
 750   struct TestMessageContext *temp_context;
 751   if (emsg == NULL)
 752     {
 753       total_connections++;
 754 #if VERBOSE
 755       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "connected peer %s to peer %s, distance %u\n",
 756                first_daemon->shortname,
 757                second_daemon->shortname,
 758                distance);
 759 #endif
 760       temp_context = GNUNET_malloc(sizeof(struct TestMessageContext));
 761       temp_context->peer1 = first_daemon;
 762       temp_context->peer2 = second_daemon;
 763       temp_context->next = test_messages;
 764       temp_context->uid = total_connections;
 765       temp_context->disconnect_task = GNUNET_SCHEDULER_NO_TASK;
 766       test_messages = temp_context;
 767       expected_messages++;
 768     }
 769 #if VERBOSE
 770   else
 771     {
 772       failed_connections++;
 773       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Failed to connect peer %s to peer %s with error :\n%s\n",
 774                first_daemon->shortname,
 775                second_daemon->shortname, emsg);
 776     }
 777 #endif
 778
 779   if (total_connections == expected_connections)
 780     {
 781 #if VERBOSE
 782       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 783                   "Created %u total connections, which is our target number!  Calling send messages.\n",
 784                   total_connections);
 785 #endif
 786
 787       GNUNET_SCHEDULER_cancel (die_task);
 788       die_task = GNUNET_SCHEDULER_NO_TASK;
 789       GNUNET_SCHEDULER_add_now (&send_test_messages, test_messages);
 790     }
 791   else if (total_connections + failed_connections == expected_connections)
 792     {
 793       if (failed_connections < (unsigned int)(fail_percentage * total_connections))
 794         {
 795           GNUNET_SCHEDULER_cancel (die_task);
 796           die_task = GNUNET_SCHEDULER_NO_TASK;
 797           GNUNET_SCHEDULER_add_now (&send_test_messages, test_messages);
 798         }
 799       else
 800         {
 801           GNUNET_SCHEDULER_cancel (die_task);
 802           die_task = GNUNET_SCHEDULER_add_now (&end_badly, "from topology_callback (too many failed connections)");
 803         }
 804     }
 805   else
 806     {
 807 #if VERBOSE
 808       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 809                   "Have %d total connections, %d failed connections, Want %d (at least %d)\n",
 810                   total_connections, failed_connections, expected_connections, expected_connections - (unsigned int)(fail_percentage * expected_connections));
 811 #endif
 812     }
 813 }
 814
 815 static void
 816 connect_topology ()
 817 {
 818   expected_connections = -1;
 819   if ((pg != NULL) && (peers_left == 0))
 820     {
 821       expected_connections = GNUNET_TESTING_connect_topology (pg, connection_topology, connect_topology_option, connect_topology_option_modifier, NULL, NULL);
 822 #if VERBOSE
 823       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 824                   "Have %d expected connections\n", expected_connections);
 825 #endif
 826     }
 827
 828   GNUNET_SCHEDULER_cancel (die_task);
 829   if (expected_connections == GNUNET_SYSERR)
 830     {
 831       die_task = GNUNET_SCHEDULER_add_now (&end_badly, "from connect topology (bad return)");
 832     }
 833
 834   die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 835                                            &end_badly, "from connect topology (timeout)");
 836 }
 837
 838 static void
 839 create_topology ()
 840 {
 841   peers_left = num_peers; /* Reset counter */
 842   if (GNUNET_TESTING_create_topology (pg, topology, blacklist_topology, blacklist_transports) != GNUNET_SYSERR)
 843     {
 844 #if VERBOSE
 845       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 846                   "Topology set up, now starting peers!\n");
 847 #endif
 848       GNUNET_TESTING_daemons_continue_startup(pg);
 849     }
 850   else
 851     {
 852       GNUNET_SCHEDULER_cancel (die_task);
 853       die_task = GNUNET_SCHEDULER_add_now (&end_badly, "from create topology (bad return)");
 854     }
 855   GNUNET_SCHEDULER_cancel (die_task);
 856   die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 857                                            &end_badly, "from continue startup (timeout)");
 858 }
 859
 860 /**
 861  * Method called whenever a given peer connects.
 862  *
 863  * @param cls closure
 864  * @param peer peer identity this notification is about
 865  * @param latency reported latency of the connection with 'other'
 866  * @param distance reported distance (DV) to 'other'
 867  */
 868 static void all_connect_handler (void *cls,
 869                                  const struct
 870                                  GNUNET_PeerIdentity * peer,
 871                                  const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 872 {
 873   struct GNUNET_TESTING_Daemon *d = cls;
 874   struct GNUNET_TESTING_Daemon *second_daemon;
 875   char *second_shortname = strdup(GNUNET_i2s(peer));
 876 #if !TEST_ALL
 877   struct TestMessageContext *temp_context;
 878 #endif
 879   uint32_t distance;
 880   distance = get_atsi_distance(atsi);
 881
 882 #if VERBOSE
 883   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "connected peer %s to peer %s, distance %u\n",
 884            d->shortname,
 885            second_shortname,
 886            distance);
 887 #endif
 888
 889   second_daemon = GNUNET_CONTAINER_multihashmap_get(peer_daemon_hash, &peer->hashPubKey);
 890
 891   if (second_daemon == NULL)
 892     {
 893       GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "Couldn't find second peer!\n");
 894       GNUNET_free(second_shortname);
 895       return;
 896     }
 897 #if !TEST_ALL
 898   if (distance > 1)
 899     {
 900       temp_total_other_messages++;
 901       temp_context = GNUNET_malloc(sizeof(struct TestMessageContext));
 902       temp_context->peer1 = d;
 903       temp_context->peer2 = second_daemon;
 904       temp_context->next = other_test_messages;
 905       temp_context->uid = total_connections + temp_total_other_messages;
 906       temp_context->disconnect_task = GNUNET_SCHEDULER_NO_TASK;
 907       other_test_messages = temp_context;
 908     }
 909 #endif
 910
 911   if (dotOutFile != NULL)
 912     {
 913       if (distance == 1)
 914         fprintf(dotOutFile, "\tn%s -- n%s;\n", d->shortname, second_shortname);
 915       else if (distance == 2)
 916         fprintf(dotOutFile, "\tn%s -- n%s [color=blue];\n", d->shortname, second_shortname);
 917       else if (distance == 3)
 918         fprintf(dotOutFile, "\tn%s -- n%s [color=red];\n", d->shortname, second_shortname);
 919       else if (distance == 4)
 920         fprintf(dotOutFile, "\tn%s -- n%s [color=green];\n", d->shortname, second_shortname);
 921       else
 922         fprintf(dotOutFile, "\tn%s -- n%s [color=brown];\n", d->shortname, second_shortname);
 923     }
 924   GNUNET_free(second_shortname);
 925
 926   if (temp_total_other_messages == num_additional_messages)
 927     {
 928       GNUNET_SCHEDULER_add_now (&send_other_messages, NULL);
 929     }
 930 }
 931
 932 static void
 933 peers_started_callback (void *cls,
 934        const struct GNUNET_PeerIdentity *id,
 935        const struct GNUNET_CONFIGURATION_Handle *cfg,
 936        struct GNUNET_TESTING_Daemon *d, const char *emsg)
 937 {
 938   struct PeerContext *new_peer;
 939   if (emsg != NULL)
 940     {
 941       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Failed to start daemon with error: `%s'\n",
 942                   emsg);
 943       return;
 944     }
 945   GNUNET_assert (id != NULL);
 946 #if VERBOSE
 947   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Started daemon %llu out of %llu\n",
 948               (num_peers - peers_left) + 1, num_peers);
 949 #endif
 950   GNUNET_assert(GNUNET_SYSERR != GNUNET_CONTAINER_multihashmap_put(peer_daemon_hash, &id->hashPubKey, d, GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY));
 951
 952   new_peer = GNUNET_malloc(sizeof(struct PeerContext));
 953   new_peer->peer_handle = GNUNET_CORE_connect(cfg,
 954                                               1,
 955                                               d, NULL,
 956                                               &all_connect_handler,
 957                                               NULL, NULL, NULL,
 958                                               GNUNET_NO, NULL, GNUNET_NO,
 959                                               no_handlers);
 960   new_peer->daemon = d;
 961   new_peer->next = all_peers;
 962   all_peers = new_peer;
 963   peers_left--;
 964
 965   if (peers_left == 0)
 966     {
 967 #if VERBOSE
 968       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 969                   "All %d daemons started, now creating topology!\n",
 970                   num_peers);
 971 #endif
 972       GNUNET_SCHEDULER_cancel (die_task);
 973       /* Set up task in case topology creation doesn't finish
 974        * within a reasonable amount of time */
 975       die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
 976                                                (GNUNET_TIME_UNIT_MINUTES, 5),
 977                                                &end_badly, "from peers_started_callback");
 978
 979       connect_topology ();
 980       ok = 0;
 981     }
 982 }
 983
 984 /**
 985  * Callback indicating that the hostkey was created for a peer.
 986  *
 987  * @param cls NULL
 988  * @param id the peer identity
 989  * @param d the daemon handle (pretty useless at this point, remove?)
 990  * @param emsg non-null on failure
 991  */
 992 void hostkey_callback (void *cls,
 993                        const struct GNUNET_PeerIdentity *id,
 994                        struct GNUNET_TESTING_Daemon *d,
 995                        const char *emsg)
 996 {
 997   if (emsg != NULL)
 998     {
 999       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "Hostkey callback received error: %s\n", emsg);
1000     }
1001
1002 #if VERBOSE
1003     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1004                 "Hostkey created for peer `%s'\n",
1005                 GNUNET_i2s(id));
1006 #endif
1007     peers_left--;
1008     if (peers_left == 0)
1009       {
1010 #if VERBOSE
1011         GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1012                     "All %d hostkeys created, now creating topology!\n",
1013                     num_peers);
1014 #endif
1015         GNUNET_SCHEDULER_cancel (die_task);
1016         /* Set up task in case topology creation doesn't finish
1017          * within a reasonable amount of time */
1018         die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
1019                                                  (GNUNET_TIME_UNIT_MINUTES, 5),
1020                                                  &end_badly, "from hostkey_callback");
1021         GNUNET_SCHEDULER_add_now(&create_topology, NULL);
1022         ok = 0;
1023       }
1024 }
1025
1026 static void
1027 run (void *cls,
1028      char *const *args,
1029      const char *cfgfile, const struct GNUNET_CONFIGURATION_Handle *cfg)
1030 {
1031   char * topology_str;
1032   char * connect_topology_str;
1033   char * blacklist_topology_str;
1034   char * connect_topology_option_str;
1035   char * connect_topology_option_modifier_string;
1036   ok = 1;
1037
1038   dotOutFile = fopen (dotOutFileName, "w");
1039   if (dotOutFile != NULL)
1040     {
1041       fprintf (dotOutFile, "strict graph G {\n");
1042     }
1043
1044 #if VERBOSE
1045   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1046               "Starting daemons based on config file %s\n", cfgfile);
1047 #endif
1048
1049   if (GNUNET_YES != GNUNET_CONFIGURATION_get_value_string(cfg, "paths", "servicehome", &test_directory))
1050     {
1051       ok = 404;
1052       return;
1053     }
1054
1055   if ((GNUNET_YES ==
1056       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "topology",
1057                                             &topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&topology, topology_str)))
1058     {
1059       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1060                   "Invalid topology `%s' given for section %s option %s\n", topology_str, "TESTING", "TOPOLOGY");
1061       topology = GNUNET_TESTING_TOPOLOGY_CLIQUE; /* Defaults to NONE, so set better default here */
1062     }
1063
1064   if ((GNUNET_YES ==
1065       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "connect_topology",
1066                                             &connect_topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&connection_topology, connect_topology_str)))
1067     {
1068       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1069                   "Invalid connect topology `%s' given for section %s option %s\n", connect_topology_str, "TESTING", "CONNECT_TOPOLOGY");
1070     }
1071   GNUNET_free_non_null(connect_topology_str);
1072   if ((GNUNET_YES ==
1073       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "connect_topology_option",
1074                                             &connect_topology_option_str)) && (GNUNET_NO == GNUNET_TESTING_topology_option_get(&connect_topology_option, connect_topology_option_str)))
1075     {
1076       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1077                   "Invalid connect topology option `%s' given for section %s option %s\n", connect_topology_option_str, "TESTING", "CONNECT_TOPOLOGY_OPTION");
1078       connect_topology_option = GNUNET_TESTING_TOPOLOGY_OPTION_ALL; /* Defaults to NONE, set to ALL */
1079     }
1080   GNUNET_free_non_null(connect_topology_option_str);
1081   if (GNUNET_YES ==
1082         GNUNET_CONFIGURATION_get_value_string (cfg, "testing", "connect_topology_option_modifier",
1083                                                &connect_topology_option_modifier_string))
1084     {
1085       if (sscanf(connect_topology_option_modifier_string, "%lf", &connect_topology_option_modifier) != 1)
1086       {
1087         GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1088         _("Invalid value `%s' for option `%s' in section `%s': expected float\n"),
1089         connect_topology_option_modifier_string,
1090         "connect_topology_option_modifier",
1091         "TESTING");
1092       }
1093       GNUNET_free (connect_topology_option_modifier_string);
1094     }
1095
1096   if (GNUNET_YES != GNUNET_CONFIGURATION_get_value_string (cfg, "testing", "blacklist_transports",
1097                                          &blacklist_transports))
1098     blacklist_transports = NULL;
1099
1100   if ((GNUNET_YES ==
1101       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "blacklist_topology",
1102                                             &blacklist_topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&blacklist_topology, blacklist_topology_str)))
1103     {
1104       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1105                   "Invalid topology `%s' given for section %s option %s\n", topology_str, "TESTING", "BLACKLIST_TOPOLOGY");
1106     }
1107   GNUNET_free_non_null(topology_str);
1108   GNUNET_free_non_null(blacklist_topology_str);
1109   if (GNUNET_SYSERR ==
1110       GNUNET_CONFIGURATION_get_value_number (cfg, "testing", "num_peers",
1111                                              &num_peers))
1112     num_peers = DEFAULT_NUM_PEERS;
1113
1114   if (GNUNET_SYSERR ==
1115       GNUNET_CONFIGURATION_get_value_number (cfg, "testing", "additional_messages",
1116                                              &num_additional_messages))
1117     num_additional_messages = DEFAULT_ADDITIONAL_MESSAGES;
1118
1119   main_cfg = cfg;
1120
1121   GNUNET_assert(num_peers > 0 && num_peers < (unsigned int)-1);
1122   peers_left = num_peers;
1123
1124   /* Set up a task to end testing if peer start fails */
1125   die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
1126                                            (GNUNET_TIME_UNIT_MINUTES, 5),
1127                                            &end_badly, "didn't start all daemons in reasonable amount of time!!!");
1128
1129   peer_daemon_hash = GNUNET_CONTAINER_multihashmap_create(peers_left);
1130   pg = GNUNET_TESTING_daemons_start (cfg,
1131                                      peers_left, TIMEOUT, &hostkey_callback, NULL, &peers_started_callback, NULL,
1132                                      &topology_callback, NULL, NULL);
1133
1134 }
1135
1136 static int
1137 check ()
1138 {
1139   int ret;
1140   char *const argv[] = {"test-transport-dv",
1141     "-c",
1142     "test_transport_dv_data.conf",
1143 #if VERBOSE
1144     "-L", "DEBUG",
1145 #endif
1146     NULL
1147   };
1148   struct GNUNET_GETOPT_CommandLineOption options[] = {
1149     GNUNET_GETOPT_OPTION_END
1150   };
1151   ret = GNUNET_PROGRAM_run ((sizeof (argv) / sizeof (char *)) - 1,
1152                       argv, "test-transport-dv", "nohelp",
1153                       options, &run, &ok);
1154   if (ret != GNUNET_OK)
1155     {
1156       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "`test-transport-dv': Failed with error code %d\n", ret);
1157     }
1158   return ok;
1159 }
1160
1161 int
1162 main (int argc, char *argv[])
1163 {
1164   int ret;
1165
1166   GNUNET_log_setup ("test-transport-dv",
1167 #if VERBOSE
1168                     "DEBUG",
1169 #else
1170                     "WARNING",
1171 #endif
1172                     NULL);
1173   ret = check ();
1174   /**
1175    * Need to remove base directory, subdirectories taken care
1176    * of by the testing framework.
1177    */
1178   if (GNUNET_DISK_directory_remove (test_directory) != GNUNET_OK)
1179     {
1180       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "Failed to remove testing directory %s\n", test_directory);
1181     }
1182   return ret;
1183 }
1184
1185 /* end of test_transport_api_dv.c */