src/ats/test_ats_solver_convergence.c

   1 /*
   2  This file is part of GNUnet.
   3  (C) 2010-2013 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 ats/test_ats_solver_add_address.c
  22  * @brief solver test:  add address, request address and wait for suggests, write data to file
  23  * @author Christian Grothoff
  24  * @author Matthias Wachs
  25  * @author Fabian Oehlmann
  26  */
  27 #include "platform.h"
  28 #include "gnunet_util_lib.h"
  29 #include "gnunet_testbed_service.h"
  30 #include "gnunet_ats_service.h"
  31 #include "test_ats_api_common.h"
  32
  33 /**
  34  * Timeout task
  35  */
  36 static GNUNET_SCHEDULER_TaskIdentifier end_task;
  37
  38 /**
  39  * Statistics handle
  40  */
  41 struct GNUNET_STATISTICS_Handle *stats;
  42
  43 /**
  44  * Scheduling handle
  45  */
  46 static struct GNUNET_ATS_SchedulingHandle *sched_ats;
  47
  48 /**
  49  * Return value
  50  */
  51 static int ret;
  52
  53 /**
  54  * Test address
  55  */
  56 static struct Test_Address test_addr;
  57
  58 /**
  59  * Test peer
  60  */
  61 static struct PeerContext p;
  62
  63 /**
  64  * HELLO address
  65  */
  66 struct GNUNET_HELLO_Address test_hello_address;
  67
  68 /**
  69  * Session
  70  */
  71 static void *test_session;
  72
  73 /**
  74  * Test ats info
  75  */
  76 struct GNUNET_ATS_Information test_ats_info[2];
  77
  78 /**
  79  * Test ats count
  80  */
  81 uint32_t test_ats_count;
  82
  83 /**
  84  * Seconds to run the test
  85  */
  86 static unsigned int seconds;
  87
  88 /**
  89  * When the test starts
  90  */
  91 static struct GNUNET_TIME_Absolute time_start;
  92
  93 /**
  94  * Whether to write a data file
  95  */
  96 static int write_data_file;
  97
  98 /**
  99  * File name
 100  */
 101 static char *data_file_name;
 102
 103 /**
 104  * Run name
 105  */
 106 static char *run_name;
 107
 108 static int
 109 stat_cb(void *cls, const char *subsystem, const char *name, uint64_t value,
 110         int is_persistent);
 111
 112 static void
 113 end (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 114 {
 115   GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Done!\n");
 116   if (end_task == GNUNET_SCHEDULER_NO_TASK)
 117   {
 118     GNUNET_SCHEDULER_cancel (end_task);
 119     end_task = GNUNET_SCHEDULER_NO_TASK;
 120   }
 121
 122   if (NULL != sched_ats)
 123   {
 124     GNUNET_ATS_scheduling_done (sched_ats);
 125     sched_ats = NULL;
 126   }
 127
 128   GNUNET_STATISTICS_watch_cancel (stats, "ats", "# addresses", &stat_cb, NULL);
 129   if (NULL != stats)
 130   {
 131     GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
 132     stats = NULL;
 133   }
 134
 135   /* Close data file */
 136   if (write_data_file)
 137   {
 138     GNUNET_free_non_null(data_file_name);
 139   }
 140
 141   free_test_address (&test_addr);
 142
 143   ret = 0;
 144 }
 145
 146
 147 static void
 148 end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 149 {
 150   end (NULL, NULL);
 151   ret = GNUNET_SYSERR;
 152 }
 153
 154 static void
 155 address_suggest_cb (void *cls, const struct GNUNET_HELLO_Address *address,
 156                     struct Session *session,
 157                     struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
 158                     struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
 159                     const struct GNUNET_ATS_Information *atsi,
 160                     uint32_t ats_count)
 161 {
 162   struct GNUNET_TIME_Relative time_delta;
 163   char *data;
 164   struct GNUNET_DISK_FileHandle *data_file_handle;
 165
 166   GNUNET_assert (NULL != address);
 167   GNUNET_assert (NULL == session);
 168   GNUNET_assert (ntohl(bandwidth_in.value__) > 0);
 169   GNUNET_assert (ntohl(bandwidth_out.value__) > 0);
 170
 171   time_delta = GNUNET_TIME_absolute_get_difference(time_start, GNUNET_TIME_absolute_get());
 172
 173   GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Received suggestion for peer '%s': IN %lu - OUT %lu\n",
 174       GNUNET_i2s (&address->peer), ntohl(bandwidth_in.value__)/1024, ntohl(bandwidth_out.value__)/1024);
 175
 176   if (write_data_file)
 177   {
 178     GNUNET_asprintf(&data,"%f\tIN %u\tOUT %u\n",
 179         (double) time_delta.rel_value_us / 1000000.,
 180               ntohl(bandwidth_in.value__)/1024,
 181               ntohl(bandwidth_out.value__)/1024);
 182     data_file_handle = GNUNET_DISK_file_open (data_file_name,
 183         GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_APPEND,
 184         GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
 185     if (NULL == data_file_handle)
 186     {
 187       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Cannot write data to file `%s'\n", data_file_name);
 188     }
 189     else
 190     {
 191       if (GNUNET_SYSERR == GNUNET_DISK_file_write(data_file_handle, data, strlen(data)))
 192         GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Cannot write data to file `%s'\n", data_file_name);
 193       if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
 194         GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Cannot close log file '%s'\n",
 195                 data_file_name);
 196     }
 197
 198     GNUNET_free(data);
 199   }
 200
 201   return;
 202 }
 203
 204
 205 static int
 206 stat_cb(void *cls, const char *subsystem,
 207         const char *name, uint64_t value,
 208         int is_persistent)
 209 {
 210
 211   GNUNET_log (GNUNET_ERROR_TYPE_INFO, "ATS statistics: `%s' `%s' %llu\n",
 212       subsystem,name, value);
 213   GNUNET_ATS_suggest_address (sched_ats, &p.id);
 214   return GNUNET_OK;
 215 }
 216
 217 static void
 218 run (void *cls, const struct GNUNET_CONFIGURATION_Handle *mycfg,
 219     struct GNUNET_TESTING_Peer *peer)
 220 {
 221   struct GNUNET_DISK_FileHandle *data_file_handle;
 222
 223   stats = GNUNET_STATISTICS_create ("ats", mycfg);
 224   GNUNET_STATISTICS_watch (stats, "ats", "# addresses", &stat_cb, NULL);
 225
 226   /* Connect to ATS scheduling */
 227   sched_ats = GNUNET_ATS_scheduling_init (mycfg, &address_suggest_cb, NULL);
 228   if (sched_ats == NULL)
 229   {
 230     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not connect to ATS scheduling!\n");
 231     GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 232     return;
 233   }
 234
 235   /* Create or truncate file */
 236   if (write_data_file)
 237   {
 238     GNUNET_asprintf (&data_file_name, "test_convergence_%s_s%d.data", run_name, seconds);
 239     data_file_handle = GNUNET_DISK_file_open (data_file_name,
 240         GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_CREATE | GNUNET_DISK_OPEN_TRUNCATE,
 241         GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
 242     if (NULL == data_file_handle)
 243     {
 244       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not open data file\n");
 245       GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 246       return;
 247     }
 248     if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
 249     {
 250       GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Cannot close log file '%s'\n",
 251               data_file_name);
 252       GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 253       return;
 254     }
 255   }
 256
 257   /* Set up peer */
 258   memset (&p.id, '1', sizeof (p.id));
 259   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Created peer `%s'\n",
 260               GNUNET_i2s_full(&p.id));
 261
 262   /* Prepare ATS Information */
 263   test_ats_info[0].type = htonl (GNUNET_ATS_NETWORK_TYPE);
 264   test_ats_info[0].value = htonl(GNUNET_ATS_NET_WAN);
 265   test_ats_info[1].type = htonl (GNUNET_ATS_QUALITY_NET_DISTANCE);
 266   test_ats_info[1].value = htonl(1);
 267   test_ats_count = 2;
 268
 269   /* Adding address without session */
 270   test_session = NULL;
 271   create_test_address (&test_addr, "test", test_session, "test", strlen ("test") + 1);
 272   test_hello_address.peer = p.id;
 273   test_hello_address.transport_name = test_addr.plugin;
 274   test_hello_address.address = test_addr.addr;
 275   test_hello_address.address_length = test_addr.addr_len;
 276
 277   /* Adding address */
 278   GNUNET_ATS_address_add (sched_ats, &test_hello_address, NULL, test_ats_info, test_ats_count);
 279   time_start = GNUNET_TIME_absolute_get();
 280
 281   end_task = GNUNET_SCHEDULER_add_delayed(GNUNET_TIME_relative_multiply(GNUNET_TIME_relative_get_second_(), seconds), &end, NULL);
 282 }
 283
 284
 285 void
 286 test_run (void *cls, char *const *args,
 287     const char *cfgfile,
 288     const struct GNUNET_CONFIGURATION_Handle *
 289     cfg)
 290 {
 291   char *sep;
 292   char *src_filename = GNUNET_strdup (__FILE__);
 293   char *test_filename = cls;
 294   char *config_file = "none";
 295   char *solver;
 296
 297   ret = 0;
 298
 299   if (NULL == (sep  = (strstr (src_filename,".c"))))
 300   {
 301     GNUNET_break (0);
 302     ret = -1;
 303     //return -1;
 304   }
 305   sep[0] = '\0';
 306
 307   if (NULL != (sep = strstr (test_filename, ".exe")))
 308     sep[0] = '\0';
 309
 310   if (NULL == (solver = strstr (test_filename, src_filename)))
 311   {
 312     GNUNET_break (0);
 313     ret = -1;
 314   }
 315   solver += strlen (src_filename) +1;
 316
 317   if (0 == strcmp(solver, "proportional"))
 318   {
 319     config_file = "test_ats_solver_proportional.conf";
 320   }
 321   else if (0 == strcmp(solver, "mlp"))
 322   {
 323     config_file = "test_ats_solver_mlp.conf";
 324   }
 325   else if ((0 == strcmp(solver, "ril")))
 326   {
 327     config_file = "test_ats_solver_ril.conf";
 328   }
 329   else
 330   {
 331     GNUNET_break (0);
 332     GNUNET_free (src_filename);
 333     ret = 1;
 334   }
 335
 336   GNUNET_free (src_filename);
 337
 338   if (0 != GNUNET_TESTING_peer_run ("test-ats-solver",
 339       config_file, &run, NULL ))
 340     ret = GNUNET_SYSERR;
 341 }
 342
 343 int
 344 main (int argc, char *argv[])
 345 {
 346   seconds = 5;
 347   run_name = NULL;
 348
 349   static struct GNUNET_GETOPT_CommandLineOption options[] = {
 350       { 's', "seconds", NULL,
 351           gettext_noop ("seconds to run the test"),
 352           1, &GNUNET_GETOPT_set_uint, &seconds },
 353       { 'd', "data-file", NULL,
 354           gettext_noop ("generate data file"),
 355           0, &GNUNET_GETOPT_set_one, &write_data_file},
 356       { 'r', "run-name", "NAME",
 357           gettext_noop ("will be part of the data file name"),
 358           1, &GNUNET_GETOPT_set_string, &run_name},
 359       GNUNET_GETOPT_OPTION_END
 360   };
 361
 362   GNUNET_PROGRAM_run2 (argc, argv, argv[0], NULL, options, &test_run, argv[0], GNUNET_YES);
 363
 364   return ret;
 365 }
 366
 367 /* end of file test_ats_solver_convergence.c */