123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388 |
- /*
- This file is part of GNUnet.
- Copyright (C) 2010-2013 Christian Grothoff (and other contributing authors)
- GNUnet is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published
- by the Free Software Foundation; either version 3, or (at your
- option) any later version.
- GNUnet is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with GNUnet; see the file COPYING. If not, write to the
- Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- Boston, MA 02111-1307, USA.
- */
- /**
- * @file ats/test_ats_solver_add_address.c
- * @brief solver test: add address, request address and wait for suggests, write data to file
- * @author Christian Grothoff
- * @author Matthias Wachs
- * @author Fabian Oehlmann
- */
- #include "platform.h"
- #include "gnunet_util_lib.h"
- #include "gnunet_testbed_service.h"
- #include "gnunet_ats_service.h"
- #include "test_ats_api_common.h"
- /**
- * Timeout task
- */
- static struct GNUNET_SCHEDULER_Task * end_task;
- /**
- * Statistics handle
- */
- struct GNUNET_STATISTICS_Handle *stats;
- /**
- * Scheduling handle
- */
- static struct GNUNET_ATS_SchedulingHandle *sched_ats;
- /**
- * Connectivity handle
- */
- static struct GNUNET_ATS_ConnectivityHandle *connect_ats;
- /**
- * Return value
- */
- static int ret;
- /**
- * Test address
- */
- static struct Test_Address test_addr;
- /**
- * Test peer
- */
- static struct PeerContext p;
- /**
- * HELLO address
- */
- struct GNUNET_HELLO_Address test_hello_address;
- /**
- * Session
- */
- static void *test_session;
- /**
- * Test ats info
- */
- struct GNUNET_ATS_Information test_ats_info[2];
- /**
- * Test ats count
- */
- uint32_t test_ats_count;
- /**
- * Seconds to run the test
- */
- static unsigned int seconds;
- /**
- * When the test starts
- */
- static struct GNUNET_TIME_Absolute time_start;
- /**
- * Whether to write a data file
- */
- static int write_data_file;
- /**
- * File name
- */
- static char *data_file_name;
- /**
- * Run name
- */
- static char *run_name;
- static int
- stat_cb(void *cls, const char *subsystem, const char *name, uint64_t value,
- int is_persistent);
- static void
- end (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Done!\n");
- if (end_task == NULL)
- {
- GNUNET_SCHEDULER_cancel (end_task);
- end_task = NULL;
- }
- if (NULL != sched_ats)
- {
- GNUNET_ATS_scheduling_done (sched_ats);
- sched_ats = NULL;
- }
- if (NULL != connect_ats)
- {
- GNUNET_ATS_connectivity_done (connect_ats);
- connect_ats = NULL;
- }
- GNUNET_STATISTICS_watch_cancel (stats, "ats", "# addresses", &stat_cb, NULL);
- if (NULL != stats)
- {
- GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
- stats = NULL;
- }
- /* Close data file */
- if (write_data_file)
- {
- GNUNET_free_non_null(data_file_name);
- }
- free_test_address (&test_addr);
- ret = 0;
- }
- static void
- end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
- {
- end (NULL, NULL);
- ret = GNUNET_SYSERR;
- }
- static void
- address_suggest_cb (void *cls,
- const struct GNUNET_PeerIdentity *peer,
- const struct GNUNET_HELLO_Address *address,
- struct Session *session,
- struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
- struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
- const struct GNUNET_ATS_Information *atsi,
- uint32_t ats_count)
- {
- struct GNUNET_TIME_Relative time_delta;
- char *data;
- struct GNUNET_DISK_FileHandle *data_file_handle;
- GNUNET_assert (NULL != address);
- GNUNET_assert (NULL == session);
- GNUNET_assert (ntohl(bandwidth_in.value__) > 0);
- GNUNET_assert (ntohl(bandwidth_out.value__) > 0);
- time_delta = GNUNET_TIME_absolute_get_difference(time_start, GNUNET_TIME_absolute_get());
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "Received suggestion for peer '%s': IN %u kb/s - OUT %u kb/s\n",
- GNUNET_i2s (&address->peer),
- (unsigned int) ntohl (bandwidth_in.value__)/1024,
- (unsigned int) ntohl (bandwidth_out.value__)/1024);
- if (write_data_file)
- {
- GNUNET_asprintf(&data,"%f\tIN %u\tOUT %u\n",
- (double) time_delta.rel_value_us / 1000000.,
- ntohl(bandwidth_in.value__)/1024,
- ntohl(bandwidth_out.value__)/1024);
- data_file_handle = GNUNET_DISK_file_open (data_file_name,
- GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_APPEND,
- GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
- if (NULL == data_file_handle)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
- "Cannot write data to file `%s'\n",
- data_file_name);
- }
- else
- {
- if (GNUNET_SYSERR == GNUNET_DISK_file_write(data_file_handle, data, strlen(data)))
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
- "Cannot write data to file `%s'\n",
- data_file_name);
- if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
- "Cannot close log file '%s'\n",
- data_file_name);
- }
- GNUNET_free(data);
- }
- }
- static int
- stat_cb(void *cls, const char *subsystem,
- const char *name, uint64_t value,
- int is_persistent)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "ATS statistics: `%s' `%s' %llu\n",
- subsystem,name,
- (unsigned long long) value);
- GNUNET_ATS_connectivity_suggest (connect_ats, &p.id);
- return GNUNET_OK;
- }
- static void
- run (void *cls, const struct GNUNET_CONFIGURATION_Handle *mycfg,
- struct GNUNET_TESTING_Peer *peer)
- {
- struct GNUNET_DISK_FileHandle *data_file_handle;
- stats = GNUNET_STATISTICS_create ("ats", mycfg);
- GNUNET_STATISTICS_watch (stats, "ats", "# addresses", &stat_cb, NULL);
- connect_ats = GNUNET_ATS_connectivity_init (mycfg);
- /* Connect to ATS scheduling */
- sched_ats = GNUNET_ATS_scheduling_init (mycfg, &address_suggest_cb, NULL);
- if (sched_ats == NULL)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not connect to ATS scheduling!\n");
- GNUNET_SCHEDULER_add_now (&end_badly, NULL);
- return;
- }
- /* Create or truncate file */
- if (write_data_file)
- {
- GNUNET_asprintf (&data_file_name, "test_convergence_%s_s%d.data", run_name, seconds);
- data_file_handle = GNUNET_DISK_file_open (data_file_name,
- GNUNET_DISK_OPEN_WRITE | GNUNET_DISK_OPEN_CREATE | GNUNET_DISK_OPEN_TRUNCATE,
- GNUNET_DISK_PERM_USER_EXEC | GNUNET_DISK_PERM_USER_READ | GNUNET_DISK_PERM_USER_WRITE);
- if (NULL == data_file_handle)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Could not open data file\n");
- GNUNET_SCHEDULER_add_now (&end_badly, NULL);
- return;
- }
- if (GNUNET_SYSERR == GNUNET_DISK_file_close (data_file_handle))
- {
- GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Cannot close log file '%s'\n",
- data_file_name);
- GNUNET_SCHEDULER_add_now (&end_badly, NULL);
- return;
- }
- }
- /* Set up peer */
- memset (&p.id, '1', sizeof (p.id));
- GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Created peer `%s'\n",
- GNUNET_i2s_full(&p.id));
- /* Prepare ATS Information */
- test_ats_info[0].type = htonl (GNUNET_ATS_NETWORK_TYPE);
- test_ats_info[0].value = htonl(GNUNET_ATS_NET_WAN);
- test_ats_info[1].type = htonl (GNUNET_ATS_QUALITY_NET_DISTANCE);
- test_ats_info[1].value = htonl(1);
- test_ats_count = 2;
- /* Adding address without session */
- test_session = NULL;
- create_test_address (&test_addr, "test", test_session, "test", strlen ("test") + 1);
- test_hello_address.peer = p.id;
- test_hello_address.transport_name = test_addr.plugin;
- test_hello_address.address = test_addr.addr;
- test_hello_address.address_length = test_addr.addr_len;
- /* Adding address */
- GNUNET_ATS_address_add (sched_ats, &test_hello_address, NULL, test_ats_info, test_ats_count);
- time_start = GNUNET_TIME_absolute_get();
- end_task = GNUNET_SCHEDULER_add_delayed(GNUNET_TIME_relative_multiply(GNUNET_TIME_relative_get_second_(), seconds), &end, NULL);
- }
- void
- test_run (void *cls, char *const *args,
- const char *cfgfile,
- const struct GNUNET_CONFIGURATION_Handle *
- cfg)
- {
- char *sep;
- char *src_filename = GNUNET_strdup (__FILE__);
- char *test_filename = cls;
- char *config_file = "none";
- char *solver;
- ret = 0;
- if (NULL == (sep = (strstr (src_filename,".c"))))
- {
- GNUNET_break (0);
- ret = -1;
- //return -1;
- }
- sep[0] = '\0';
- if (NULL != (sep = strstr (test_filename, ".exe")))
- sep[0] = '\0';
- if (NULL == (solver = strstr (test_filename, src_filename)))
- {
- GNUNET_break (0);
- ret = -1;
- }
- solver += strlen (src_filename) +1;
- if (0 == strcmp(solver, "proportional"))
- {
- config_file = "test_ats_solver_proportional.conf";
- }
- else if (0 == strcmp(solver, "mlp"))
- {
- config_file = "test_ats_solver_mlp.conf";
- }
- else if ((0 == strcmp(solver, "ril")))
- {
- config_file = "test_ats_solver_ril.conf";
- }
- else
- {
- GNUNET_break (0);
- GNUNET_free (src_filename);
- ret = 1;
- }
- GNUNET_free (src_filename);
- if (0 != GNUNET_TESTING_peer_run ("test-ats-solver",
- config_file, &run, NULL ))
- ret = GNUNET_SYSERR;
- }
- int
- main (int argc, char *argv[])
- {
- seconds = 5;
- run_name = NULL;
- static struct GNUNET_GETOPT_CommandLineOption options[] = {
- { 's', "seconds", NULL,
- gettext_noop ("seconds to run the test"),
- 1, &GNUNET_GETOPT_set_uint, &seconds },
- { 'd', "data-file", NULL,
- gettext_noop ("generate data file"),
- 0, &GNUNET_GETOPT_set_one, &write_data_file},
- { 'r', "run-name", "NAME",
- gettext_noop ("will be part of the data file name"),
- 1, &GNUNET_GETOPT_set_string, &run_name},
- GNUNET_GETOPT_OPTION_END
- };
- GNUNET_PROGRAM_run2 (argc, argv, argv[0], NULL, options, &test_run, argv[0], GNUNET_YES);
- return ret;
- }
- /* end of file test_ats_solver_convergence.c */
|