9985939ae0b2f6ec6c8503d3ceba0b6f5cdf7694
[oweals/gnunet.git] / src / dht / test_dht_twopeer_path_tracking.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 dht/test_dht_twopeer_path_tracking.c
22  * @brief testcase for testing DHT service with
23  *        two running peers, logging the path of the dht requests.
24  */
25 #include "platform.h"
26 #include "gnunet_testing_lib.h"
27 #include "gnunet_core_service.h"
28 #include "gnunet_dht_service.h"
29
30 /* DEFINES */
31 #define VERBOSE GNUNET_NO
32
33 /* Timeout for entire testcase */
34 #define TIMEOUT GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MINUTES, 5)
35
36 /* Timeout for waiting for replies to get requests */
37 #define GET_TIMEOUT GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 30)
38
39 /* If number of peers not in config file, use this number */
40 #define DEFAULT_NUM_PEERS 2
41
42 /* Globals */
43
44 /**
45  * Directory to store temp data in, defined in config file
46  */
47 static char *test_directory;
48
49 /**
50  * Variable used to store the number of connections we should wait for.
51  */
52 static unsigned int expected_connections;
53
54 /**
55  * Variable used to keep track of how many peers aren't yet started.
56  */
57 static unsigned long long peers_left;
58
59 /**
60  * Handle to the set of all peers run for this test.
61  */
62 static struct GNUNET_TESTING_PeerGroup *pg;
63
64 /**
65  * Global handle we will use for GET requests.
66  */
67 struct GNUNET_DHT_GetHandle *global_get_handle;
68
69
70 /**
71  * Total number of peers to run, set based on config file.
72  */
73 static unsigned long long num_peers;
74
75 /**
76  * Global used to count how many connections we have currently
77  * been notified about (how many times has topology_callback been called
78  * with success?)
79  */
80 static unsigned int total_connections;
81
82 /**
83  * Global used to count how many failed connections we have
84  * been notified about (how many times has topology_callback
85  * been called with failure?)
86  */
87 static unsigned int failed_connections;
88
89 /* Task handle to use to schedule test failure */
90 GNUNET_SCHEDULER_TaskIdentifier die_task;
91
92 /* Global return value (0 for success, anything else for failure) */
93 static int ok;
94
95 /**
96  * Peer identity of the first peer started.
97  */
98 static struct GNUNET_PeerIdentity peer1id;
99
100 /**
101  * Peer identity of the second peer started.
102  */
103 static struct GNUNET_PeerIdentity peer2id;
104
105 /**
106  * Handle to the first peers DHT service (via the API)
107  */
108 static struct GNUNET_DHT_Handle *peer1dht;
109
110 /**
111  * Handle to the second peers DHT service (via the API)
112  */
113 static struct GNUNET_DHT_Handle *peer2dht;
114
115 /**
116  * Check whether peers successfully shut down.
117  */
118 void
119 shutdown_callback (void *cls, const char *emsg)
120 {
121   if (emsg != NULL)
122   {
123     if (ok == 0)
124       ok = 2;
125   }
126 }
127
128 /**
129  * Function scheduled to be run on the successful completion of this
130  * testcase.  Specifically, called when our get request completes.
131  */
132 static void
133 finish_testing (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
134 {
135   GNUNET_assert (pg != NULL);
136   GNUNET_assert (peer1dht != NULL);
137   GNUNET_assert (peer2dht != NULL);
138   GNUNET_DHT_disconnect (peer1dht);
139   GNUNET_DHT_disconnect (peer2dht);
140   GNUNET_TESTING_daemons_stop (pg, TIMEOUT, &shutdown_callback, NULL);
141   ok = 0;
142 }
143
144 /**
145  * Continuation for the GNUNET_DHT_get_stop call, so that we don't shut
146  * down the peers without freeing memory associated with GET request.
147  */
148 static void
149 end_badly_cont (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
150 {
151   if (peer1dht != NULL)
152     GNUNET_DHT_disconnect (peer1dht);
153
154   if (peer2dht != NULL)
155     GNUNET_DHT_disconnect (peer2dht);
156
157   if (pg != NULL)
158     GNUNET_TESTING_daemons_stop (pg, TIMEOUT, &shutdown_callback, NULL);
159 }
160
161 /**
162  * Check if the get_handle is being used, if so stop the request.  Either
163  * way, schedule the end_badly_cont function which actually shuts down the
164  * test.
165  */
166 static void
167 end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
168 {
169   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Failing test with error: `%s'!\n",
170               (char *) cls);
171   if (global_get_handle != NULL)
172   {
173     GNUNET_DHT_get_stop (global_get_handle);
174     global_get_handle = NULL;
175   }
176   GNUNET_SCHEDULER_add_now (&end_badly_cont, NULL);
177   ok = 1;
178 }
179
180 /**
181  * Iterator called if the GET request initiated returns a response.
182  *
183  * @param cls closure
184  * @param exp when will this value expire
185  * @param key key of the result
186  * @param type type of the result
187  * @param size number of bytes in data
188  * @param data pointer to the result data
189  */
190 void
191 get_result_iterator (void *cls, struct GNUNET_TIME_Absolute exp,
192                      const GNUNET_HashCode * key,
193                      const struct GNUNET_PeerIdentity *const *get_path,
194                      const struct GNUNET_PeerIdentity *const *put_path,
195                      enum GNUNET_BLOCK_Type type, size_t size, const void *data)
196 {
197   GNUNET_HashCode original_key; /* Key data was stored data under */
198   char original_data[4];        /* Made up data that was stored */
199
200   memset (&original_key, 42, sizeof (GNUNET_HashCode)); /* Set the key to what it was set to previously */
201   memset (original_data, 43, sizeof (original_data));
202 #if VERBOSE
203   unsigned int i;
204 #endif
205
206   if ((0 != memcmp (&original_key, key, sizeof (GNUNET_HashCode))) ||
207       (0 != memcmp (original_data, data, sizeof (original_data))))
208   {
209     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
210                 "Key or data is not the same as was inserted!\n");
211     GNUNET_SCHEDULER_cancel (die_task);
212     GNUNET_SCHEDULER_add_now (&end_badly,
213                               "key or data mismatch in get response!\n");
214     return;
215   }
216
217 #if VERBOSE
218   if (put_path != NULL)
219   {
220     fprintf (stderr, "PUT Path: ");
221     for (i = 0; put_path[i] != NULL; i++)
222       fprintf (stderr, "%s%s", i == 0 ? "" : "->", GNUNET_i2s (put_path[i]));
223     fprintf (stderr, "\n");
224   }
225   if (get_path != NULL)
226   {
227     fprintf (stderr, "GET Path: ");
228     for (i = 0; get_path[i] != NULL; i++)
229       fprintf (stderr, "%s%s", i == 0 ? "" : "->", GNUNET_i2s (get_path[i]));
230     fprintf (stderr, "\n");
231   }
232 #endif
233
234   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Received correct GET response!\n");
235   GNUNET_SCHEDULER_cancel (die_task);
236   GNUNET_DHT_get_stop (global_get_handle);
237   GNUNET_SCHEDULER_add_now (&finish_testing, NULL);
238 }
239
240 /**
241  * Start the GET request for the same key/data that was inserted.
242  */
243 static void
244 do_get (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
245 {
246   GNUNET_HashCode key;          /* Key for data lookup */
247
248   memset (&key, 42, sizeof (GNUNET_HashCode));  /* Set the key to the same thing as when data was inserted */
249   global_get_handle =
250       GNUNET_DHT_get_start (peer2dht, GNUNET_TIME_relative_get_forever (),
251                             GNUNET_BLOCK_TYPE_TEST, &key,
252                             DEFAULT_GET_REPLICATION, GNUNET_DHT_RO_RECORD_ROUTE,
253                             NULL, 0, NULL, 0, &get_result_iterator, NULL);
254 }
255
256 /**
257  * Called when the PUT request has been transmitted to the DHT service.
258  * Schedule the GET request for some time in the future.
259  */
260 static void
261 put_finished (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
262 {
263   GNUNET_SCHEDULER_cancel (die_task);
264   die_task =
265       GNUNET_SCHEDULER_add_delayed (GET_TIMEOUT, &end_badly,
266                                     "waiting for get response (data not found)");
267   GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
268                                 (GNUNET_TIME_UNIT_SECONDS, 10), &do_get, NULL);
269 }
270
271 /**
272  * Set up some data, and call API PUT function
273  */
274 static void
275 do_put (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
276 {
277   GNUNET_HashCode key;          /* Made up key to store data under */
278   char data[4];                 /* Made up data to store */
279
280   memset (&key, 42, sizeof (GNUNET_HashCode));  /* Set the key to something simple so we can issue GET request */
281   memset (data, 43, sizeof (data));
282
283   /* Insert the data at the first peer */
284   GNUNET_DHT_put (peer1dht, &key, DEFAULT_PUT_REPLICATION,
285                   GNUNET_DHT_RO_RECORD_ROUTE, GNUNET_BLOCK_TYPE_TEST,
286                   sizeof (data), data, GNUNET_TIME_UNIT_FOREVER_ABS,
287                   GNUNET_TIME_UNIT_FOREVER_REL, &put_finished, NULL);
288 }
289
290 /**
291  * This function is called whenever a connection attempt is finished between two of
292  * the started peers (started with GNUNET_TESTING_daemons_start).  The total
293  * number of times this function is called should equal the number returned
294  * from the GNUNET_TESTING_connect_topology call.
295  *
296  * The emsg variable is NULL on success (peers connected), and non-NULL on
297  * failure (peers failed to connect).
298  */
299 void
300 topology_callback (void *cls, const struct GNUNET_PeerIdentity *first,
301                    const struct GNUNET_PeerIdentity *second, uint32_t distance,
302                    const struct GNUNET_CONFIGURATION_Handle *first_cfg,
303                    const struct GNUNET_CONFIGURATION_Handle *second_cfg,
304                    struct GNUNET_TESTING_Daemon *first_daemon,
305                    struct GNUNET_TESTING_Daemon *second_daemon,
306                    const char *emsg)
307 {
308   if (emsg == NULL)
309   {
310     total_connections++;
311 #if VERBOSE
312     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
313                 "connected peer %s to peer %s, distance %u\n",
314                 first_daemon->shortname, second_daemon->shortname, distance);
315 #endif
316   }
317 #if VERBOSE
318   else
319   {
320     failed_connections++;
321     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
322                 "Failed to connect peer %s to peer %s with error :\n%s\n",
323                 first_daemon->shortname, second_daemon->shortname, emsg);
324   }
325 #endif
326
327   if (total_connections == expected_connections)
328   {
329 #if VERBOSE
330     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
331                 "Created %d total connections, which is our target number!  Starting next phase of testing.\n",
332                 total_connections);
333 #endif
334     GNUNET_SCHEDULER_cancel (die_task);
335     die_task =
336         GNUNET_SCHEDULER_add_delayed (TIMEOUT, &end_badly, "from test gets");
337
338     GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_relative_multiply
339                                   (GNUNET_TIME_UNIT_SECONDS, 2), &do_put, NULL);
340   }
341   else if (total_connections + failed_connections == expected_connections)
342   {
343     GNUNET_SCHEDULER_cancel (die_task);
344     die_task =
345         GNUNET_SCHEDULER_add_now (&end_badly,
346                                   "from topology_callback (too many failed connections)");
347   }
348 }
349
350
351 /**
352  * Callback which is called whenever a peer is started (as a result of the
353  * GNUNET_TESTING_daemons_start call.
354  *
355  * @param cls closure argument given to GNUNET_TESTING_daemons_start
356  * @param id the GNUNET_PeerIdentity of the started peer
357  * @param cfg the configuration for this specific peer (needed to connect
358  *            to the DHT)
359  * @param d the handle to the daemon started
360  * @param emsg NULL if peer started, non-NULL on error
361  */
362 static void
363 peers_started_callback (void *cls, const struct GNUNET_PeerIdentity *id,
364                         const struct GNUNET_CONFIGURATION_Handle *cfg,
365                         struct GNUNET_TESTING_Daemon *d, const char *emsg)
366 {
367   if (emsg != NULL)
368   {
369     GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
370                 "Failed to start daemon with error: `%s'\n", emsg);
371     return;
372   }
373   GNUNET_assert (id != NULL);
374
375   /* This is the first peer started */
376   if (peers_left == num_peers)
377   {
378     memcpy (&peer1id, id, sizeof (struct GNUNET_PeerIdentity)); /* Save the peer id */
379     peer1dht = GNUNET_DHT_connect (cfg, 100);   /* Connect to the first peers DHT service */
380     if (peer1dht == NULL)       /* If DHT connect failed */
381     {
382       GNUNET_SCHEDULER_cancel (die_task);
383       GNUNET_SCHEDULER_add_now (&end_badly, "Failed to get dht handle!\n");
384     }
385   }
386   else                          /* This is the second peer started */
387   {
388     memcpy (&peer2id, id, sizeof (struct GNUNET_PeerIdentity)); /* Same as for first peer... */
389     peer2dht = GNUNET_DHT_connect (cfg, 100);
390     if (peer2dht == NULL)
391     {
392       GNUNET_SCHEDULER_cancel (die_task);
393       GNUNET_SCHEDULER_add_now (&end_badly, "Failed to get dht handle!\n");
394     }
395   }
396
397   /* Decrement number of peers left to start */
398   peers_left--;
399
400   if (peers_left == 0)          /* Indicates all peers started */
401   {
402 #if VERBOSE
403     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
404                 "All %d daemons started, now connecting peers!\n", num_peers);
405 #endif
406     expected_connections = -1;
407     if ((pg != NULL))           /* Sanity check */
408     {
409       /* Connect peers in a "straight line" topology, return the number of expected connections */
410       expected_connections =
411           GNUNET_TESTING_connect_topology (pg, GNUNET_TESTING_TOPOLOGY_LINE,
412                                            GNUNET_TESTING_TOPOLOGY_OPTION_ALL,
413                                            0.0, TIMEOUT, 2, NULL, NULL);
414     }
415
416     /* Cancel current timeout fail task */
417     GNUNET_SCHEDULER_cancel (die_task);
418     if (expected_connections == GNUNET_SYSERR)  /* Some error happened */
419       die_task =
420           GNUNET_SCHEDULER_add_now (&end_badly,
421                                     "from connect topology (bad return)");
422
423     /* Schedule timeout on failure task */
424     die_task =
425         GNUNET_SCHEDULER_add_delayed (TIMEOUT, &end_badly,
426                                       "from connect topology (timeout)");
427     ok = 0;
428   }
429 }
430
431 static void
432 run (void *cls, char *const *args, const char *cfgfile,
433      const struct GNUNET_CONFIGURATION_Handle *cfg)
434 {
435
436   /* Get path from configuration file */
437   if (GNUNET_YES !=
438       GNUNET_CONFIGURATION_get_value_string (cfg, "paths", "servicehome",
439                                              &test_directory))
440   {
441     ok = 404;
442     return;
443   }
444
445   /* Get number of peers to start from configuration (should be two) */
446   if (GNUNET_SYSERR ==
447       GNUNET_CONFIGURATION_get_value_number (cfg, "testing", "num_peers",
448                                              &num_peers))
449     num_peers = DEFAULT_NUM_PEERS;
450
451   /* Set peers_left so we know when all peers started */
452   peers_left = num_peers;
453
454   /* Set up a task to end testing if peer start fails */
455   die_task =
456       GNUNET_SCHEDULER_add_delayed (TIMEOUT, &end_badly,
457                                     "didn't start all daemons in reasonable amount of time!!!");
458
459   /* Start num_peers peers, call peers_started_callback on peer start, topology_callback on peer connect */
460   /* Read the API documentation for other parameters! */
461   pg = GNUNET_TESTING_daemons_start (cfg, peers_left,   /* Total number of peers */
462                                      peers_left,        /* Number of outstanding connections */
463                                      peers_left,        /* Number of parallel ssh connections, or peers being started at once */
464                                      TIMEOUT, NULL, NULL,
465                                      &peers_started_callback, NULL,
466                                      &topology_callback, NULL, NULL);
467
468 }
469
470 static int
471 check ()
472 {
473   int ret;
474
475   /* Arguments for GNUNET_PROGRAM_run */
476   char *const argv[] = { "test-dht-twopeer-put-get",    /* Name to give running binary */
477     "-c",
478     "test_dht_twopeer_data.conf",       /* Config file to use */
479 #if VERBOSE
480     "-L", "DEBUG",
481 #endif
482     NULL
483   };
484   struct GNUNET_GETOPT_CommandLineOption options[] = {
485     GNUNET_GETOPT_OPTION_END
486   };
487   /* Run the run function as a new program */
488   ret =
489       GNUNET_PROGRAM_run ((sizeof (argv) / sizeof (char *)) - 1, argv,
490                           "test-dht-twopeer-put-get", "nohelp", options, &run,
491                           &ok);
492   if (ret != GNUNET_OK)
493   {
494     GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
495                 "`test-dht-twopeer': Failed with error code %d\n", ret);
496   }
497   return ok;
498 }
499
500 int
501 main (int argc, char *argv[])
502 {
503   int ret;
504
505   GNUNET_log_setup ("test-dht-twopeer",
506 #if VERBOSE
507                     "DEBUG",
508 #else
509                     "WARNING",
510 #endif
511                     NULL);
512   ret = check ();
513   /**
514    * Need to remove base directory, subdirectories taken care
515    * of by the testing framework.
516    */
517   if (GNUNET_DISK_directory_remove (test_directory) != GNUNET_OK)
518   {
519     GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
520                 "Failed to remove testing directory %s\n", test_directory);
521   }
522   return ret;
523 }
524
525 /* end of test_dht_twopeer_put_get.c */