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,
 822                                                               connection_topology,
 823                                                               connect_topology_option,
 824                                                               connect_topology_option_modifier,
 825                                                               TIMEOUT,
 826                                                               12,
 827                                                               NULL, NULL);
 828 #if VERBOSE
 829       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 830                   "Have %d expected connections\n", expected_connections);
 831 #endif
 832     }
 833
 834   GNUNET_SCHEDULER_cancel (die_task);
 835   if (expected_connections == GNUNET_SYSERR)
 836     {
 837       die_task = GNUNET_SCHEDULER_add_now (&end_badly, "from connect topology (bad return)");
 838     }
 839
 840   die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 841                                            &end_badly, "from connect topology (timeout)");
 842 }
 843
 844 static void
 845 create_topology ()
 846 {
 847   peers_left = num_peers; /* Reset counter */
 848   if (GNUNET_TESTING_create_topology (pg, topology, blacklist_topology, blacklist_transports) != GNUNET_SYSERR)
 849     {
 850 #if VERBOSE
 851       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 852                   "Topology set up, now starting peers!\n");
 853 #endif
 854       GNUNET_TESTING_daemons_continue_startup(pg);
 855     }
 856   else
 857     {
 858       GNUNET_SCHEDULER_cancel (die_task);
 859       die_task = GNUNET_SCHEDULER_add_now (&end_badly, "from create topology (bad return)");
 860     }
 861   GNUNET_SCHEDULER_cancel (die_task);
 862   die_task = GNUNET_SCHEDULER_add_delayed (TEST_TIMEOUT,
 863                                            &end_badly, "from continue startup (timeout)");
 864 }
 865
 866 /**
 867  * Method called whenever a given peer connects.
 868  *
 869  * @param cls closure
 870  * @param peer peer identity this notification is about
 871  * @param latency reported latency of the connection with 'other'
 872  * @param distance reported distance (DV) to 'other'
 873  */
 874 static void all_connect_handler (void *cls,
 875                                  const struct
 876                                  GNUNET_PeerIdentity * peer,
 877                                  const struct GNUNET_TRANSPORT_ATS_Information *atsi)
 878 {
 879   struct GNUNET_TESTING_Daemon *d = cls;
 880   struct GNUNET_TESTING_Daemon *second_daemon;
 881   char *second_shortname = strdup(GNUNET_i2s(peer));
 882 #if !TEST_ALL
 883   struct TestMessageContext *temp_context;
 884 #endif
 885   uint32_t distance;
 886
 887   if (0 == memcmp(&d->id, peer, sizeof(struct GNUNET_PeerIdentity)))
 888     return;
 889
 890   distance = get_atsi_distance(atsi);
 891
 892 #if VERBOSE
 893   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "connected peer %s to peer %s, distance %u\n",
 894            d->shortname,
 895            second_shortname,
 896            distance);
 897 #endif
 898
 899   second_daemon = GNUNET_CONTAINER_multihashmap_get(peer_daemon_hash, &peer->hashPubKey);
 900
 901   if (second_daemon == NULL)
 902     {
 903       GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "Couldn't find second peer!\n");
 904       GNUNET_free(second_shortname);
 905       return;
 906     }
 907 #if !TEST_ALL
 908   if (distance > 1)
 909     {
 910       temp_total_other_messages++;
 911       temp_context = GNUNET_malloc(sizeof(struct TestMessageContext));
 912       temp_context->peer1 = d;
 913       temp_context->peer2 = second_daemon;
 914       temp_context->next = other_test_messages;
 915       temp_context->uid = total_connections + temp_total_other_messages;
 916       temp_context->disconnect_task = GNUNET_SCHEDULER_NO_TASK;
 917       other_test_messages = temp_context;
 918     }
 919 #endif
 920
 921   if (dotOutFile != NULL)
 922     {
 923       if (distance == 1)
 924         fprintf(dotOutFile, "\tn%s -- n%s;\n", d->shortname, second_shortname);
 925       else if (distance == 2)
 926         fprintf(dotOutFile, "\tn%s -- n%s [color=blue];\n", d->shortname, second_shortname);
 927       else if (distance == 3)
 928         fprintf(dotOutFile, "\tn%s -- n%s [color=red];\n", d->shortname, second_shortname);
 929       else if (distance == 4)
 930         fprintf(dotOutFile, "\tn%s -- n%s [color=green];\n", d->shortname, second_shortname);
 931       else
 932         fprintf(dotOutFile, "\tn%s -- n%s [color=brown];\n", d->shortname, second_shortname);
 933     }
 934   GNUNET_free(second_shortname);
 935
 936   if (temp_total_other_messages == num_additional_messages)
 937     {
 938       GNUNET_SCHEDULER_add_now (&send_other_messages, NULL);
 939     }
 940 }
 941
 942 static void
 943 peers_started_callback (void *cls,
 944        const struct GNUNET_PeerIdentity *id,
 945        const struct GNUNET_CONFIGURATION_Handle *cfg,
 946        struct GNUNET_TESTING_Daemon *d, const char *emsg)
 947 {
 948   struct PeerContext *new_peer;
 949   if (emsg != NULL)
 950     {
 951       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Failed to start daemon with error: `%s'\n",
 952                   emsg);
 953       return;
 954     }
 955   GNUNET_assert (id != NULL);
 956 #if VERBOSE
 957   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Started daemon %llu out of %llu\n",
 958               (num_peers - peers_left) + 1, num_peers);
 959 #endif
 960   GNUNET_assert(GNUNET_SYSERR != GNUNET_CONTAINER_multihashmap_put(peer_daemon_hash, &id->hashPubKey, d, GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY));
 961
 962   new_peer = GNUNET_malloc(sizeof(struct PeerContext));
 963   new_peer->peer_handle = GNUNET_CORE_connect(cfg,
 964                                               1,
 965                                               d, NULL,
 966                                               &all_connect_handler,
 967                                               NULL, NULL, NULL,
 968                                               GNUNET_NO, NULL, GNUNET_NO,
 969                                               no_handlers);
 970   new_peer->daemon = d;
 971   new_peer->next = all_peers;
 972   all_peers = new_peer;
 973   peers_left--;
 974
 975   if (peers_left == 0)
 976     {
 977 #if VERBOSE
 978       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 979                   "All %d daemons started, now creating topology!\n",
 980                   num_peers);
 981 #endif
 982       GNUNET_SCHEDULER_cancel (die_task);
 983       /* Set up task in case topology creation doesn't finish
 984        * within a reasonable amount of time */
 985       die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
 986                                                (GNUNET_TIME_UNIT_MINUTES, 5),
 987                                                &end_badly, "from peers_started_callback");
 988
 989       connect_topology ();
 990       ok = 0;
 991     }
 992 }
 993
 994 /**
 995  * Callback indicating that the hostkey was created for a peer.
 996  *
 997  * @param cls NULL
 998  * @param id the peer identity
 999  * @param d the daemon handle (pretty useless at this point, remove?)
1000  * @param emsg non-null on failure
1001  */
1002 void hostkey_callback (void *cls,
1003                        const struct GNUNET_PeerIdentity *id,
1004                        struct GNUNET_TESTING_Daemon *d,
1005                        const char *emsg)
1006 {
1007   if (emsg != NULL)
1008     {
1009       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "Hostkey callback received error: %s\n", emsg);
1010     }
1011
1012 #if VERBOSE
1013     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1014                 "Hostkey created for peer `%s'\n",
1015                 GNUNET_i2s(id));
1016 #endif
1017     peers_left--;
1018     if (peers_left == 0)
1019       {
1020 #if VERBOSE
1021         GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1022                     "All %d hostkeys created, now creating topology!\n",
1023                     num_peers);
1024 #endif
1025         GNUNET_SCHEDULER_cancel (die_task);
1026         /* Set up task in case topology creation doesn't finish
1027          * within a reasonable amount of time */
1028         die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
1029                                                  (GNUNET_TIME_UNIT_MINUTES, 5),
1030                                                  &end_badly, "from hostkey_callback");
1031         GNUNET_SCHEDULER_add_now(&create_topology, NULL);
1032         ok = 0;
1033       }
1034 }
1035
1036 static void
1037 run (void *cls,
1038      char *const *args,
1039      const char *cfgfile, const struct GNUNET_CONFIGURATION_Handle *cfg)
1040 {
1041   char * topology_str;
1042   char * connect_topology_str;
1043   char * blacklist_topology_str;
1044   char * connect_topology_option_str;
1045   char * connect_topology_option_modifier_string;
1046   ok = 1;
1047
1048   dotOutFile = fopen (dotOutFileName, "w");
1049   if (dotOutFile != NULL)
1050     {
1051       fprintf (dotOutFile, "strict graph G {\n");
1052     }
1053
1054 #if VERBOSE
1055   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1056               "Starting daemons based on config file %s\n", cfgfile);
1057 #endif
1058
1059   if (GNUNET_YES != GNUNET_CONFIGURATION_get_value_string(cfg, "paths", "servicehome", &test_directory))
1060     {
1061       ok = 404;
1062       return;
1063     }
1064
1065   if ((GNUNET_YES ==
1066       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "topology",
1067                                             &topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&topology, topology_str)))
1068     {
1069       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1070                   "Invalid topology `%s' given for section %s option %s\n", topology_str, "TESTING", "TOPOLOGY");
1071       topology = GNUNET_TESTING_TOPOLOGY_CLIQUE; /* Defaults to NONE, so set better default here */
1072     }
1073
1074   if ((GNUNET_YES ==
1075       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "connect_topology",
1076                                             &connect_topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&connection_topology, connect_topology_str)))
1077     {
1078       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1079                   "Invalid connect topology `%s' given for section %s option %s\n", connect_topology_str, "TESTING", "CONNECT_TOPOLOGY");
1080     }
1081   GNUNET_free_non_null(connect_topology_str);
1082   if ((GNUNET_YES ==
1083       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "connect_topology_option",
1084                                             &connect_topology_option_str)) && (GNUNET_NO == GNUNET_TESTING_topology_option_get(&connect_topology_option, connect_topology_option_str)))
1085     {
1086       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1087                   "Invalid connect topology option `%s' given for section %s option %s\n", connect_topology_option_str, "TESTING", "CONNECT_TOPOLOGY_OPTION");
1088       connect_topology_option = GNUNET_TESTING_TOPOLOGY_OPTION_ALL; /* Defaults to NONE, set to ALL */
1089     }
1090   GNUNET_free_non_null(connect_topology_option_str);
1091   if (GNUNET_YES ==
1092         GNUNET_CONFIGURATION_get_value_string (cfg, "testing", "connect_topology_option_modifier",
1093                                                &connect_topology_option_modifier_string))
1094     {
1095       if (sscanf(connect_topology_option_modifier_string, "%lf", &connect_topology_option_modifier) != 1)
1096       {
1097         GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1098         _("Invalid value `%s' for option `%s' in section `%s': expected float\n"),
1099         connect_topology_option_modifier_string,
1100         "connect_topology_option_modifier",
1101         "TESTING");
1102       }
1103       GNUNET_free (connect_topology_option_modifier_string);
1104     }
1105
1106   if (GNUNET_YES != GNUNET_CONFIGURATION_get_value_string (cfg, "testing", "blacklist_transports",
1107                                          &blacklist_transports))
1108     blacklist_transports = NULL;
1109
1110   if ((GNUNET_YES ==
1111       GNUNET_CONFIGURATION_get_value_string(cfg, "testing", "blacklist_topology",
1112                                             &blacklist_topology_str)) && (GNUNET_NO == GNUNET_TESTING_topology_get(&blacklist_topology, blacklist_topology_str)))
1113     {
1114       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1115                   "Invalid topology `%s' given for section %s option %s\n", topology_str, "TESTING", "BLACKLIST_TOPOLOGY");
1116     }
1117   GNUNET_free_non_null(topology_str);
1118   GNUNET_free_non_null(blacklist_topology_str);
1119   if (GNUNET_SYSERR ==
1120       GNUNET_CONFIGURATION_get_value_number (cfg, "testing", "num_peers",
1121                                              &num_peers))
1122     num_peers = DEFAULT_NUM_PEERS;
1123
1124   if (GNUNET_SYSERR ==
1125       GNUNET_CONFIGURATION_get_value_number (cfg, "testing", "additional_messages",
1126                                              &num_additional_messages))
1127     num_additional_messages = DEFAULT_ADDITIONAL_MESSAGES;
1128
1129   main_cfg = cfg;
1130
1131   GNUNET_assert(num_peers > 0 && num_peers < (unsigned int)-1);
1132   peers_left = num_peers;
1133
1134   /* Set up a task to end testing if peer start fails */
1135   die_task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
1136                                            (GNUNET_TIME_UNIT_MINUTES, 5),
1137                                            &end_badly, "didn't start all daemons in reasonable amount of time!!!");
1138
1139   peer_daemon_hash = GNUNET_CONTAINER_multihashmap_create(peers_left);
1140   pg = GNUNET_TESTING_daemons_start (cfg,
1141                                      peers_left,
1142                                      peers_left,
1143                                      TIMEOUT,
1144                                      &hostkey_callback,
1145                                      NULL,
1146                                      &peers_started_callback,
1147                                      NULL,
1148                                      &topology_callback,
1149                                      NULL,
1150                                      NULL);
1151
1152 }
1153
1154 static int
1155 check ()
1156 {
1157   int ret;
1158   char *const argv[] = {"test-transport-dv",
1159     "-c",
1160     "test_transport_dv_data.conf",
1161 #if VERBOSE
1162     "-L", "DEBUG",
1163 #endif
1164     NULL
1165   };
1166   struct GNUNET_GETOPT_CommandLineOption options[] = {
1167     GNUNET_GETOPT_OPTION_END
1168   };
1169   ret = GNUNET_PROGRAM_run ((sizeof (argv) / sizeof (char *)) - 1,
1170                       argv, "test-transport-dv", "nohelp",
1171                       options, &run, &ok);
1172   if (ret != GNUNET_OK)
1173     {
1174       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "`test-transport-dv': Failed with error code %d\n", ret);
1175     }
1176   return ok;
1177 }
1178
1179 int
1180 main (int argc, char *argv[])
1181 {
1182   int ret;
1183
1184   GNUNET_log_setup ("test-transport-dv",
1185 #if VERBOSE
1186                     "DEBUG",
1187 #else
1188                     "WARNING",
1189 #endif
1190                     NULL);
1191   ret = check ();
1192   /**
1193    * Need to remove base directory, subdirectories taken care
1194    * of by the testing framework.
1195    */
1196   if (GNUNET_DISK_directory_remove (test_directory) != GNUNET_OK)
1197     {
1198       GNUNET_log(GNUNET_ERROR_TYPE_WARNING, "Failed to remove testing directory %s\n", test_directory);
1199     }
1200   return ret;
1201 }
1202
1203 /* end of test_transport_api_dv.c */