[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet] branch master updated: meson: add remaining consensus tests
From: |
gnunet |
Subject: |
[gnunet] branch master updated: meson: add remaining consensus tests |
Date: |
Sun, 15 Oct 2023 10:27:58 +0200 |
This is an automated email from the git hooks/post-receive script.
martin-schanzenbach pushed a commit to branch master
in repository gnunet.
The following commit(s) were added to refs/heads/master by this push:
new e52de4ccf meson: add remaining consensus tests
e52de4ccf is described below
commit e52de4ccfc76441465af6e0858a1b29589c1f738
Author: Martin Schanzenbach <schanzen@gnunet.org>
AuthorDate: Sun Oct 15 10:27:53 2023 +0200
meson: add remaining consensus tests
---
src/consensus/Makefile.am | 15 +-
src/consensus/gnunet-consensus-profiler.c | 586 ------------------------------
src/consensus/meson.build | 18 +
3 files changed, 19 insertions(+), 600 deletions(-)
diff --git a/src/consensus/Makefile.am b/src/consensus/Makefile.am
index f77f49f94..49d111538 100644
--- a/src/consensus/Makefile.am
+++ b/src/consensus/Makefile.am
@@ -18,9 +18,6 @@ endif
libexec_PROGRAMS = \
gnunet-service-consensus
-#noinst_PROGRAMS = \
-# gnunet-consensus-profiler
-
if ENABLE_MALICIOUS
libexec_PROGRAMS += \
gnunet-service-evil-consensus
@@ -38,16 +35,6 @@ check-python-style:
lib_LTLIBRARIES = \
libgnunetconsensus.la
-# TNG
-#gnunet_consensus_profiler_SOURCES = \
-# gnunet-consensus-profiler.c
-#gnunet_consensus_profiler_LDADD = \
-# $(top_builddir)/src/util/libgnunetutil.la \
-# libgnunetconsensus.la \
-# $(top_builddir)/src/testing/libgnunettesting.la \
-# $(top_builddir)/src/testbed/libgnunettestbed.la \
-# $(GN_LIBINTL)
-
gnunet_service_consensus_SOURCES = \
gnunet-service-consensus.c
gnunet_service_consensus_LDADD = \
@@ -94,7 +81,7 @@ libgnunet_plugin_block_consensus_la_LDFLAGS = \
check_PROGRAMS = \
- # test_consensus_api
+ test_consensus_api
if ENABLE_TEST_RUN
AM_TESTS_ENVIRONMENT=export GNUNET_PREFIX=$${GNUNET_PREFIX:-@libdir@};export
PATH=$${GNUNET_PREFIX:-@prefix@}/bin:$$PATH;unset XDG_DATA_HOME;unset
XDG_CONFIG_HOME;
diff --git a/src/consensus/gnunet-consensus-profiler.c
b/src/consensus/gnunet-consensus-profiler.c
deleted file mode 100644
index 535837008..000000000
--- a/src/consensus/gnunet-consensus-profiler.c
+++ /dev/null
@@ -1,586 +0,0 @@
-/*
- This file is part of GNUnet
- Copyright (C) 2012 GNUnet e.V.
-
- GNUnet is free software: you can redistribute it and/or modify it
- under the terms of the GNU Affero General Public License as published
- by the Free Software Foundation, either version 3 of the License,
- 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
- Affero General Public License for more details.
-
- You should have received a copy of the GNU Affero General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
-
- SPDX-License-Identifier: AGPL3.0-or-later
- */
-
-/**
- * @file consensus/gnunet-consensus-profiler.c
- * @brief profiling tool for gnunet-consensus
- * @author Florian Dold
- */
-#include "platform.h"
-#include "gnunet_util_lib.h"
-#include "gnunet_time_lib.h"
-#include "gnunet_consensus_service.h"
-#include "gnunet_testbed_service.h"
-
-static unsigned int num_peers = 2;
-
-static unsigned int replication = 1;
-
-static unsigned int num_values = 5;
-
-static struct GNUNET_TIME_Relative conclude_timeout;
-
-static struct GNUNET_TIME_Relative consensus_delay;
-
-static struct GNUNET_CONSENSUS_Handle **consensus_handles;
-
-static struct GNUNET_TESTBED_Operation **testbed_operations;
-
-static unsigned int num_connected_handles;
-
-static struct GNUNET_TESTBED_Peer **peers;
-
-static struct GNUNET_PeerIdentity *peer_ids;
-
-static unsigned int num_retrieved_peer_ids;
-
-static struct GNUNET_HashCode session_id;
-
-static unsigned int peers_done = 0;
-
-static int dist_static;
-
-static unsigned *results_for_peer;
-
-/**
- * The profiler will write statistics
- * for all peers to the file with this name.
- */
-static char *statistics_filename;
-
-/**
- * The profiler will write statistics
- * for all peers to this file.
- */
-static FILE *statistics_file;
-
-static int verbose;
-
-/**
- * Start time for all consensuses.
- */
-static struct GNUNET_TIME_Absolute start;
-
-/**
- * Deadline for all consensuses.
- */
-static struct GNUNET_TIME_Absolute deadline;
-
-
-/**
- * Signature of the event handler function called by the
- * respective event controller.
- *
- * @param cls closure
- * @param event information about the event
- */
-static void
-controller_cb (void *cls,
- const struct GNUNET_TESTBED_EventInformation *event)
-{
- GNUNET_assert (0);
-}
-
-
-static void
-statistics_done_cb (void *cls,
- struct
- GNUNET_TESTBED_Operation
- *op,
- const char *emsg)
-{
- GNUNET_assert (NULL == emsg);
- GNUNET_TESTBED_operation_done (op);
- if (NULL != statistics_file)
- fclose (statistics_file);
- GNUNET_log (GNUNET_ERROR_TYPE_INFO, "got statistics, shutting down\n");
- GNUNET_SCHEDULER_shutdown ();
-}
-
-
-/**
- * Callback function to process statistic values from all peers.
- *
- * @param cls closure
- * @param peer the peer the statistic belong to
- * @param subsystem name of subsystem that created the statistic
- * @param name the name of the datum
- * @param value the current value
- * @param is_persistent #GNUNET_YES if the value is persistent, #GNUNET_NO if
not
- * @return #GNUNET_OK to continue, #GNUNET_SYSERR to abort iteration
- */
-static int
-statistics_cb (void *cls,
- const struct GNUNET_TESTBED_Peer *peer,
- const char *subsystem,
- const char *name,
- uint64_t value,
- int is_persistent)
-{
- if (NULL != statistics_file)
- {
- fprintf (statistics_file, "P%u\t%s\t%s\t%lu\n", GNUNET_TESTBED_get_index (
- peer), subsystem, name, (unsigned long) value);
- }
- return GNUNET_OK;
-}
-
-
-static void
-destroy (void *cls)
-{
- struct GNUNET_CONSENSUS_Handle *consensus = cls;
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "destroying consensus\n");
- GNUNET_CONSENSUS_destroy (consensus);
- peers_done++;
- if (peers_done == num_peers)
- {
- unsigned int i;
- for (i = 0; i < num_peers; i++)
- GNUNET_TESTBED_operation_done (testbed_operations[i]);
- for (i = 0; i < num_peers; i++)
- printf ("P%u got %u of %u elements\n",
- i,
- results_for_peer[i],
- num_values);
- if (NULL != statistics_filename)
- statistics_file = fopen (statistics_filename, "w");
- GNUNET_TESTBED_get_statistics (num_peers, peers, NULL, NULL,
- statistics_cb,
- statistics_done_cb,
- NULL);
- }
-}
-
-
-/**
- * Called when a conclusion was successful.
- *
- * @param cls closure, the consensus handle
- * @return #GNUNET_YES if more consensus groups should be offered,
- * #GNUNET_NO if not
- */
-static void
-conclude_cb (void *cls)
-{
- struct GNUNET_CONSENSUS_Handle **chp = cls;
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "consensus %d done\n",
- (int) (chp - consensus_handles));
- GNUNET_SCHEDULER_add_now (destroy, *chp);
-}
-
-
-static void
-generate_indices (int *indices)
-{
- int j;
-
- j = 0;
- while (j < replication)
- {
- int n;
- int k;
- int repeat;
- n = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, num_peers);
- repeat = GNUNET_NO;
- for (k = 0; k < j; k++)
- if (indices[k] == n)
- {
- repeat = GNUNET_YES;
- break;
- }
- if (GNUNET_NO == repeat)
- indices[j++] = n;
- }
-}
-
-
-static void
-do_consensus ()
-{
- int unique_indices[replication];
- unsigned int i;
- unsigned int j;
- struct GNUNET_HashCode val;
- struct GNUNET_SET_Element element;
-
- if (dist_static)
- {
- for (i = 0; i < num_values; i++)
- {
- GNUNET_CRYPTO_hash_create_random (GNUNET_CRYPTO_QUALITY_WEAK, &val);
-
- element.data = &val;
- element.size = sizeof(val);
- for (j = 0; j < replication; j++)
- {
- GNUNET_CONSENSUS_insert (consensus_handles[j],
- &element,
- NULL, NULL);
- }
- }
- }
- else
- {
- for (i = 0; i < num_values; i++)
- {
- generate_indices (unique_indices);
- GNUNET_CRYPTO_hash_create_random (GNUNET_CRYPTO_QUALITY_WEAK, &val);
-
- element.data = &val;
- element.size = sizeof(val);
- for (j = 0; j < replication; j++)
- {
- int cid;
-
- cid = unique_indices[j];
- GNUNET_CONSENSUS_insert (consensus_handles[cid],
- &element,
- NULL, NULL);
- }
- }
- }
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "all elements inserted, calling conclude\n");
-
- for (i = 0; i < num_peers; i++)
- GNUNET_CONSENSUS_conclude (consensus_handles[i],
- conclude_cb, &consensus_handles[i]);
-}
-
-
-/**
- * Callback to be called when a service connect operation is completed
- *
- * @param cls the callback closure from functions generating an operation
- * @param op the operation that has been finished
- * @param ca_result the service handle returned from
GNUNET_TESTBED_ConnectAdapter()
- * @param emsg error message in case the operation has failed; will be NULL if
- * operation has executed successfully.
- */
-static void
-connect_complete (void *cls,
- struct GNUNET_TESTBED_Operation *op,
- void *ca_result,
- const char *emsg)
-{
- if (NULL != emsg)
- {
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
- "testbed connect emsg: %s\n",
- emsg);
- GNUNET_assert (0);
- }
-
- num_connected_handles++;
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "connect complete\n");
-
- if (num_connected_handles == num_peers)
- {
- do_consensus ();
- }
-}
-
-
-static void
-new_element_cb (void *cls,
- const struct GNUNET_SET_Element *element)
-{
- struct GNUNET_CONSENSUS_Handle **chp = cls;
- int idx = chp - consensus_handles;
-
- GNUNET_assert (NULL != cls);
-
- results_for_peer[idx]++;
-
- GNUNET_assert (sizeof(struct GNUNET_HashCode) == element->size);
-
- if (GNUNET_YES == verbose)
- {
- printf ("P%d received %s\n",
- idx,
- GNUNET_h2s ((struct GNUNET_HashCode *) element->data));
- }
-}
-
-
-/**
- * Adapter function called to establish a connection to
- * a service.
- *
- * @param cls closure
- * @param cfg configuration of the peer to connect to; will be available until
- * GNUNET_TESTBED_operation_done() is called on the operation returned
- * from GNUNET_TESTBED_service_connect()
- * @return service handle to return in 'op_result', NULL on error
- */
-static void *
-connect_adapter (void *cls,
- const struct GNUNET_CONFIGURATION_Handle *cfg)
-{
- struct GNUNET_CONSENSUS_Handle **chp = cls;
- struct GNUNET_CONSENSUS_Handle *consensus;
-
- chp = (struct GNUNET_CONSENSUS_Handle **) cls;
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "connect adapter, %d peers\n",
- num_peers);
- consensus = GNUNET_CONSENSUS_create (cfg,
- num_peers, peer_ids,
- &session_id,
- start,
- deadline,
- &new_element_cb, chp);
- *chp = (struct GNUNET_CONSENSUS_Handle *) consensus;
- return consensus;
-}
-
-
-/**
- * Adapter function called to destroy a connection to
- * a service.
- *
- * @param cls closure
- * @param op_result service handle returned from the connect adapter
- */
-static void
-disconnect_adapter (void *cls, void *op_result)
-{
- /* FIXME: what to do here? */
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "disconnect adapter called\n");
-}
-
-
-/**
- * Callback to be called when the requested peer information is available
- *
- * @param cb_cls the closure from GNUNET_TESTBED_peer_get_information()
- * @param op the operation this callback corresponds to
- * @param pinfo the result; will be NULL if the operation has failed
- * @param emsg error message if the operation has failed; will be NULL if the
- * operation is successful
- */
-static void
-peer_info_cb (void *cb_cls,
- struct GNUNET_TESTBED_Operation *op,
- const struct GNUNET_TESTBED_PeerInformation *pinfo,
- const char *emsg)
-{
- struct GNUNET_PeerIdentity *p;
- int i;
-
- GNUNET_assert (NULL == emsg);
-
- p = (struct GNUNET_PeerIdentity *) cb_cls;
-
- if (pinfo->pit == GNUNET_TESTBED_PIT_IDENTITY)
- {
- *p = *pinfo->result.id;
- num_retrieved_peer_ids++;
- if (num_retrieved_peer_ids == num_peers)
- for (i = 0; i < num_peers; i++)
- testbed_operations[i] =
- GNUNET_TESTBED_service_connect (NULL, peers[i], "consensus",
- connect_complete, NULL,
- connect_adapter, disconnect_adapter,
- &consensus_handles[i]);
- }
- else
- {
- GNUNET_assert (0);
- }
-
- GNUNET_TESTBED_operation_done (op);
-}
-
-
-/**
- * Signature of a main function for a testcase.
- *
- * @param cls closure
- * @param h the run handle
- * @param num_peers number of peers in 'peers'
- * @param started_peers handle to peers run in the testbed. NULL upon timeout
(see
- * GNUNET_TESTBED_test_run()).
- * @param links_succeeded the number of overlay link connection attempts that
- * succeeded
- * @param links_failed the number of overlay link connection attempts that
- * failed
- */
-static void
-test_master (void *cls,
- struct GNUNET_TESTBED_RunHandle *h,
- unsigned int num_peers,
- struct GNUNET_TESTBED_Peer **started_peers,
- unsigned int links_succeeded,
- unsigned int links_failed)
-{
- int i;
-
- GNUNET_log_setup ("gnunet-consensus", "INFO", NULL);
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO, "test master\n");
-
- peers = started_peers;
-
- peer_ids = GNUNET_malloc (num_peers * sizeof(struct GNUNET_PeerIdentity));
-
- results_for_peer = GNUNET_malloc (num_peers * sizeof(unsigned int));
- consensus_handles = GNUNET_malloc (num_peers * sizeof(struct
- ConsensusHandle *));
- testbed_operations = GNUNET_malloc (num_peers * sizeof(struct
- ConsensusHandle *));
-
- for (i = 0; i < num_peers; i++)
- GNUNET_TESTBED_peer_get_information (peers[i],
- GNUNET_TESTBED_PIT_IDENTITY,
- peer_info_cb,
- &peer_ids[i]);
-}
-
-
-static void
-run (void *cls, char *const *args, const char *cfgfile,
- const struct GNUNET_CONFIGURATION_Handle *cfg)
-{
- static char *session_str = "gnunet-consensus/test";
- char *topology;
- int topology_cmp_result;
-
- if (GNUNET_OK != GNUNET_CONFIGURATION_get_value_string (cfg, "testbed",
- "OVERLAY_TOPOLOGY",
- &topology))
- {
- fprintf (stderr,
- "'OVERLAY_TOPOLOGY' not found in 'testbed' config section, "
- "seems like you passed the wrong configuration file\n");
- return;
- }
-
- topology_cmp_result = strcasecmp (topology, "NONE");
- GNUNET_free (topology);
-
- if (0 == topology_cmp_result)
- {
- fprintf (stderr,
- "'OVERLAY_TOPOLOGY' set to 'NONE', "
- "seems like you passed the wrong configuration file\n");
- return;
- }
-
- if (num_peers < replication)
- {
- fprintf (stderr, "k must be <=n\n");
- return;
- }
-
- start = GNUNET_TIME_absolute_add (GNUNET_TIME_absolute_get (),
- consensus_delay);
- deadline = GNUNET_TIME_absolute_add (start, conclude_timeout);
-
- GNUNET_log (GNUNET_ERROR_TYPE_INFO,
- "running gnunet-consensus\n");
-
- GNUNET_CRYPTO_hash (session_str, strlen (session_str), &session_id);
-
- (void) GNUNET_TESTBED_test_run ("gnunet-consensus",
- cfgfile,
- num_peers,
- 0,
- controller_cb,
- NULL,
- test_master,
- NULL);
-}
-
-
-int
-main (int argc, char **argv)
-{
- struct GNUNET_GETOPT_CommandLineOption options[] = {
- GNUNET_GETOPT_option_uint ('n',
- "num-peers",
- NULL,
- gettext_noop ("number of peers in consensus"),
- &num_peers),
-
- GNUNET_GETOPT_option_uint ('k',
- "value-replication",
- NULL,
- gettext_noop (
- "how many peers (random selection without
replacement) receive one value?"),
- &replication),
-
- GNUNET_GETOPT_option_uint ('x',
- "num-values",
- NULL,
- gettext_noop ("number of values"),
- &num_values),
-
- GNUNET_GETOPT_option_relative_time ('t',
- "timeout",
- NULL,
- gettext_noop ("consensus timeout"),
- &conclude_timeout),
-
-
- GNUNET_GETOPT_option_relative_time ('d',
- "delay",
- NULL,
- gettext_noop (
- "delay until consensus starts"),
- &consensus_delay),
-
- GNUNET_GETOPT_option_filename ('s',
- "statistics",
- "FILENAME",
- gettext_noop ("write statistics to file"),
- &statistics_filename),
-
- GNUNET_GETOPT_option_flag ('S',
- "dist-static",
- gettext_noop (
- "distribute elements to a static subset of
good peers"),
- &dist_static),
-
- GNUNET_GETOPT_option_flag ('V',
- "verbose",
- gettext_noop (
- "be more verbose (print received values)"),
- &verbose),
-
- GNUNET_GETOPT_OPTION_END
- };
-
- conclude_timeout = GNUNET_TIME_UNIT_SECONDS;
- GNUNET_PROGRAM_run2 (argc, argv, "gnunet-consensus-profiler",
- "help",
- options, &run, NULL, GNUNET_YES);
- return 0;
-}
diff --git a/src/consensus/meson.build b/src/consensus/meson.build
index b67017ab3..c162231d6 100644
--- a/src/consensus/meson.build
+++ b/src/consensus/meson.build
@@ -46,3 +46,21 @@ executable ('gnunet-service-consensus',
install: true,
install_dir: get_option('libdir') / 'gnunet' / 'libexec')
+# FIXME do we need evil stuff and ENABLE_MALICIOUS?
+
+testconsensusapi = executable ('test_consensus_api',
+ ['test_consensus_api.c'],
+ dependencies: [libgnunetconsensus_dep,
+ libgnunetutil_dep,
+ libgnunettesting_dep],
+ include_directories: [incdir, configuration_inc],
+ install: false)
+
+configure_file(input : 'test_consensus.conf',
+ output : 'test_consensus.conf',
+ configuration : cdata,
+ install: false)
+
+test('test_consensus_api', testconsensusapi,
+ workdir: meson.current_build_dir(),
+ suite: 'consensus')
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [gnunet] branch master updated: meson: add remaining consensus tests,
gnunet <=