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,
 174               "Received suggestion for peer '%s': IN %u kb/s - OUT %u kb/s\n",
 175               GNUNET_i2s (&address->peer),
 176               (unsigned int) ntohl (bandwidth_in.value__)/1024,
 177               (unsigned int) ntohl (bandwidth_out.value__)/1024);
 178
 179   if (write_data_file)
 180   {
 181     GNUNET_asprintf(&data,"%f\tIN %u\tOUT %u\n",
 182         (double) time_delta.rel_value_us / 1000000.,
 183               ntohl(bandwidth_in.value__)/1024,
 184               ntohl(bandwidth_out.value__)/1024);
 185     data_file_handle = GNUNET_DISK_file_open (data_file_name,
 186         GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_APPEND,
 187         GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
 188     if (NULL == data_file_handle)
 189     {
 190       GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
 191                   "Cannot write data to file `%s'\n",
 192                   data_file_name);
 193     }
 194     else
 195     {
 196       if (GNUNET_SYSERR == GNUNET_DISK_file_write(data_file_handle, data, strlen(data)))
 197         GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
 198                     "Cannot write data to file `%s'\n",
 199                     data_file_name);
 200       if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
 201         GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
 202                     "Cannot close log file '%s'\n",
 203                     data_file_name);
 204     }
 205
 206     GNUNET_free(data);
 207   }
 208 }
 209
 210
 211 static int
 212 stat_cb(void *cls, const char *subsystem,
 213         const char *name, uint64_t value,
 214         int is_persistent)
 215 {
 216   GNUNET_log (GNUNET_ERROR_TYPE_INFO,
 217               "ATS statistics: `%s' `%s' %llu\n",
 218               subsystem,name,
 219               (unsigned long long) value);
 220   GNUNET_ATS_suggest_address (sched_ats, &p.id);
 221   return GNUNET_OK;
 222 }
 223
 224
 225 static void
 226 run (void *cls, const struct GNUNET_CONFIGURATION_Handle *mycfg,
 227     struct GNUNET_TESTING_Peer *peer)
 228 {
 229   struct GNUNET_DISK_FileHandle *data_file_handle;
 230
 231   stats = GNUNET_STATISTICS_create ("ats", mycfg);
 232   GNUNET_STATISTICS_watch (stats, "ats", "# addresses", &stat_cb, NULL);
 233
 234   /* Connect to ATS scheduling */
 235   sched_ats = GNUNET_ATS_scheduling_init (mycfg, &address_suggest_cb, NULL);
 236   if (sched_ats == NULL)
 237   {
 238     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not connect to ATS scheduling!\n");
 239     GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 240     return;
 241   }
 242
 243   /* Create or truncate file */
 244   if (write_data_file)
 245   {
 246     GNUNET_asprintf (&data_file_name, "test_convergence_%s_s%d.data", run_name, seconds);
 247     data_file_handle = GNUNET_DISK_file_open (data_file_name,
 248         GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_CREATE | GNUNET_DISK_OPEN_TRUNCATE,
 249         GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
 250     if (NULL == data_file_handle)
 251     {
 252       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not open data file\n");
 253       GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 254       return;
 255     }
 256     if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
 257     {
 258       GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Cannot close log file '%s'\n",
 259               data_file_name);
 260       GNUNET_SCHEDULER_add_now (&end_badly, NULL);
 261       return;
 262     }
 263   }
 264
 265   /* Set up peer */
 266   memset (&p.id, '1', sizeof (p.id));
 267   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Created peer `%s'\n",
 268               GNUNET_i2s_full(&p.id));
 269
 270   /* Prepare ATS Information */
 271   test_ats_info[0].type = htonl (GNUNET_ATS_NETWORK_TYPE);
 272   test_ats_info[0].value = htonl(GNUNET_ATS_NET_WAN);
 273   test_ats_info[1].type = htonl (GNUNET_ATS_QUALITY_NET_DISTANCE);
 274   test_ats_info[1].value = htonl(1);
 275   test_ats_count = 2;
 276
 277   /* Adding address without session */
 278   test_session = NULL;
 279   create_test_address (&test_addr, "test", test_session, "test", strlen ("test") + 1);
 280   test_hello_address.peer = p.id;
 281   test_hello_address.transport_name = test_addr.plugin;
 282   test_hello_address.address = test_addr.addr;
 283   test_hello_address.address_length = test_addr.addr_len;
 284
 285   /* Adding address */
 286   GNUNET_ATS_address_add (sched_ats, &test_hello_address, NULL, test_ats_info, test_ats_count);
 287   time_start = GNUNET_TIME_absolute_get();
 288
 289   end_task = GNUNET_SCHEDULER_add_delayed(GNUNET_TIME_relative_multiply(GNUNET_TIME_relative_get_second_(), seconds), &end, NULL);
 290 }
 291
 292
 293 void
 294 test_run (void *cls, char *const *args,
 295     const char *cfgfile,
 296     const struct GNUNET_CONFIGURATION_Handle *
 297     cfg)
 298 {
 299   char *sep;
 300   char *src_filename = GNUNET_strdup (__FILE__);
 301   char *test_filename = cls;
 302   char *config_file = "none";
 303   char *solver;
 304
 305   ret = 0;
 306
 307   if (NULL == (sep  = (strstr (src_filename,".c"))))
 308   {
 309     GNUNET_break (0);
 310     ret = -1;
 311     //return -1;
 312   }
 313   sep[0] = '\0';
 314
 315   if (NULL != (sep = strstr (test_filename, ".exe")))
 316     sep[0] = '\0';
 317
 318   if (NULL == (solver = strstr (test_filename, src_filename)))
 319   {
 320     GNUNET_break (0);
 321     ret = -1;
 322   }
 323   solver += strlen (src_filename) +1;
 324
 325   if (0 == strcmp(solver, "proportional"))
 326   {
 327     config_file = "test_ats_solver_proportional.conf";
 328   }
 329   else if (0 == strcmp(solver, "mlp"))
 330   {
 331     config_file = "test_ats_solver_mlp.conf";
 332   }
 333   else if ((0 == strcmp(solver, "ril")))
 334   {
 335     config_file = "test_ats_solver_ril.conf";
 336   }
 337   else
 338   {
 339     GNUNET_break (0);
 340     GNUNET_free (src_filename);
 341     ret = 1;
 342   }
 343
 344   GNUNET_free (src_filename);
 345
 346   if (0 != GNUNET_TESTING_peer_run ("test-ats-solver",
 347       config_file, &run, NULL ))
 348     ret = GNUNET_SYSERR;
 349 }
 350
 351 int
 352 main (int argc, char *argv[])
 353 {
 354   seconds = 5;
 355   run_name = NULL;
 356
 357   static struct GNUNET_GETOPT_CommandLineOption options[] = {
 358       { 's', "seconds", NULL,
 359           gettext_noop ("seconds to run the test"),
 360           1, &GNUNET_GETOPT_set_uint, &seconds },
 361       { 'd', "data-file", NULL,
 362           gettext_noop ("generate data file"),
 363           0, &GNUNET_GETOPT_set_one, &write_data_file},
 364       { 'r', "run-name", "NAME",
 365           gettext_noop ("will be part of the data file name"),
 366           1, &GNUNET_GETOPT_set_string, &run_name},
 367       GNUNET_GETOPT_OPTION_END
 368   };
 369
 370   GNUNET_PROGRAM_run2 (argc, argv, argv[0], NULL, options, &test_run, argv[0], GNUNET_YES);
 371
 372   return ret;
 373 }
 374
 375 /* end of file test_ats_solver_convergence.c */