2 This file is part of GNUnet.
3 Copyright (C) 2010-2015 Christian Grothoff (and other contributing authors)
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.
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.
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.
21 * @file ats/test_ats_lib.c
22 * @brief test ATS library with a generic interpreter for running ATS tests
23 * @author Christian Grothoff
26 #include "gnunet_util_lib.h"
27 #include "gnunet_ats_service.h"
28 #include "gnunet_testing_lib.h"
29 #include "test_ats_lib.h"
32 * Information about the last address suggestion we got for a peer.
34 struct AddressSuggestData
37 * Which session were we given?
39 struct Session *session;
42 * What address was assigned?
44 struct GNUNET_HELLO_Address *address;
47 * Outbound bandwidth assigned.
49 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out;
52 * Inbound bandwidth assigned.
54 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in;
57 * Was the bandwidth assigned non-zero?
64 * Information about the last address information we got for an address.
66 struct AddressInformationData
69 * What address is this data about?
71 struct GNUNET_HELLO_Address *address;
74 * Which properties were given?
76 struct GNUNET_ATS_Properties properties;
79 * Outbound bandwidth reported.
81 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out;
84 * Inbound bandwidth reported.
86 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in;
89 * Was the address said to be 'active'?
98 static struct GNUNET_ATS_SchedulingHandle *sched_ats;
101 * Connectivity handle
103 static struct GNUNET_ATS_ConnectivityHandle *con_ats;
108 static struct GNUNET_ATS_PerformanceHandle *perf_ats;
111 * Handle for the interpreter task.
113 static struct GNUNET_SCHEDULER_Task *interpreter_task;
116 * Map from peer identities to the last address suggestion
117 * `struct AddressSuggestData` we got for the respective peer.
119 static struct GNUNET_CONTAINER_MultiPeerMap *p2asd;
122 * Map from peer identities to the last address information
123 * sets for all addresses of this peer. Each peer is mapped
124 * to one or more `struct AddressInformationData` entries.
126 static struct GNUNET_CONTAINER_MultiPeerMap *p2aid;
129 * Global timeout for the test.
131 static struct GNUNET_TIME_Relative TIMEOUT;
134 * Return value from #main().
139 * Current global command offset into the #commands array.
141 static unsigned int off;
144 * Commands for the current test.
146 static struct Command *test_commands;
151 * Free `struct AddressSuggestData` entry.
155 * @param value the `struct AddressSuggestData` to release
156 * @return #GNUNET_OK (continue to iterate)
160 const struct GNUNET_PeerIdentity *key,
163 struct AddressSuggestData *asd = value;
165 GNUNET_assert (GNUNET_YES ==
166 GNUNET_CONTAINER_multipeermap_remove (p2asd,
169 GNUNET_free (asd->address);
176 * Free `struct AddressInformationData` entry.
180 * @param value the `struct AddressSuggestData` to release
181 * @return #GNUNET_OK (continue to iterate)
185 const struct GNUNET_PeerIdentity *key,
188 struct AddressInformationData *aid = value;
190 GNUNET_assert (GNUNET_YES ==
191 GNUNET_CONTAINER_multipeermap_remove (p2aid,
194 GNUNET_free (aid->address);
201 * Find latest address suggestion made for the given peer.
203 * @param pid peer to look up
204 * @return NULL if peer was never involved
206 static struct AddressSuggestData *
207 find_address_suggestion (const struct GNUNET_PeerIdentity *pid)
209 return GNUNET_CONTAINER_multipeermap_get (p2asd,
215 * Closure for #match_address()
217 struct MatchAddressContext
222 const struct GNUNET_HELLO_Address *addr;
225 * Where to return address information if found.
227 struct AddressInformationData *ret;
232 * Find matching address information.
234 * @param cls a `struct MatchAddressContext`
236 * @param value a `struct AddressInformationData`
237 * @return #GNUNET_OK if not found
240 match_address (void *cls,
241 const struct GNUNET_PeerIdentity *key,
244 struct MatchAddressContext *mac = cls;
245 struct AddressInformationData *aid = value;
247 if (0 == GNUNET_HELLO_address_cmp (mac->addr,
258 * Find latest address information made for the given address.
260 * @param addr address to look up
261 * @return NULL if peer was never involved
263 static struct AddressInformationData *
264 find_address_information (const struct GNUNET_HELLO_Address *addr)
266 struct MatchAddressContext mac;
270 GNUNET_CONTAINER_multipeermap_get_multiple (p2aid,
279 * Task run to terminate the testcase.
286 const struct GNUNET_SCHEDULER_TaskContext *tc)
289 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
290 "Test failed at stage %u %s\n",
292 (NULL != test_commands[off].label)
293 ? test_commands[off].label
295 if (NULL != interpreter_task)
297 GNUNET_SCHEDULER_cancel (interpreter_task);
298 interpreter_task = NULL;
300 if (NULL != sched_ats)
302 GNUNET_ATS_scheduling_done (sched_ats);
307 GNUNET_ATS_connectivity_done (con_ats);
310 if (NULL != perf_ats)
312 GNUNET_ATS_performance_done (perf_ats);
317 GNUNET_CONTAINER_multipeermap_iterate (p2asd,
320 GNUNET_CONTAINER_multipeermap_destroy (p2asd);
325 GNUNET_CONTAINER_multipeermap_iterate (p2aid,
328 GNUNET_CONTAINER_multipeermap_destroy (p2aid);
335 * Main interpreter loop. Runs the steps of the test.
341 interpreter (void *cls,
342 const struct GNUNET_SCHEDULER_TaskContext *tc);
346 * Run the interpreter next.
351 if (NULL != interpreter_task)
352 GNUNET_SCHEDULER_cancel (interpreter_task);
353 interpreter_task = GNUNET_SCHEDULER_add_now (&interpreter,
359 * Initialize public key of a peer based on a single number.
361 * @param pid number to use as the basis
362 * @param pk resulting fake public key
365 make_peer (uint32_t pid,
366 struct GNUNET_PeerIdentity *pk)
370 sizeof (struct GNUNET_PeerIdentity));
378 * Generate a fake address based on the given parameters.
380 * @param pid number of the peer
381 * @param num number of the address at peer @a pid
382 * @param addr_flags flags to use for the address
383 * @return the address
385 static struct GNUNET_HELLO_Address *
386 make_address (uint32_t pid,
388 enum GNUNET_HELLO_AddressInfo addr_flags)
390 struct GNUNET_PeerIdentity pk;
396 return GNUNET_HELLO_address_allocate (&pk,
405 * Our dummy sessions.
409 * Field to avoid `0 == sizeof(struct Session)`.
411 unsigned int non_empty;
416 * Create a session instance for ATS.
418 * @param i which session number to return
419 * @return NULL if @a i is 0, otherwise a pointer unique to @a i
421 static struct Session *
422 make_session (unsigned int i)
424 struct Session *baseptr = NULL;
428 /* Yes, these are *intentionally* out-of-bounds,
429 and offset from NULL, as nobody should ever
430 use those other than to compare pointers! */
436 * Find a @a code command before the global #off with the
437 * specified @a label.
439 * @param code opcode to look for
440 * @param label label to look for, NULL for none
441 * @return previous command with the matching label
443 static struct Command *
444 find_command (enum CommandCode code,
451 for (i=off-1;i>=0;i--)
452 if ( (code == test_commands[i].code) &&
453 (0 == strcmp (test_commands[i].label,
455 return &test_commands[i];
462 * Function called from #GNUNET_ATS_performance_list_addresses when
463 * we process a #CMD_LIST_ADDRESSES command.
465 * @param cls the `struct Command` that caused the call
466 * @param address the address, NULL if ATS service was disconnected
467 * @param address_active #GNUNET_YES if this address is actively used
468 * to maintain a connection to a peer;
469 * #GNUNET_NO if the address is not actively used;
470 * #GNUNET_SYSERR if this address is no longer available for ATS
471 * @param bandwidth_out assigned outbound bandwidth for the connection
472 * @param bandwidth_in assigned inbound bandwidth for the connection
473 * @param prop performance data for the address
477 const struct GNUNET_HELLO_Address *address,
479 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
480 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
481 const struct GNUNET_ATS_Properties *prop)
483 struct Command *c = cls;
484 struct CommandListAddresses *cmd = &c->details.list_addresses;
489 /* we are done with the iteration, continue to execute */
490 if ( (cmd->calls < cmd->min_calls) &&
491 (cmd->active_calls < cmd->min_active_calls) )
493 GNUNET_SCHEDULER_shutdown ();
500 switch (address_active)
512 if ( (cmd->calls > cmd->max_calls) &&
513 (cmd->active_calls < cmd->max_active_calls) )
516 GNUNET_ATS_performance_list_addresses_cancel (cmd->alh);
518 GNUNET_SCHEDULER_shutdown ();
525 * Main interpreter loop. Runs the steps of the test.
531 interpreter (void *cls,
532 const struct GNUNET_SCHEDULER_TaskContext *tc)
537 interpreter_task = NULL;
540 cmd = &test_commands[off];
541 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
545 (NULL != cmd->label) ? cmd->label : "");
550 GNUNET_SCHEDULER_shutdown ();
552 case CMD_ADD_ADDRESS:
554 struct GNUNET_HELLO_Address *addr;
555 struct Session *session;
557 addr = make_address (cmd->details.add_address.pid,
558 cmd->details.add_address.addr_num,
559 cmd->details.add_address.addr_flags);
560 session = make_session (cmd->details.add_address.session);
561 if (cmd->details.add_address.expect_fail)
562 GNUNET_log_skip (1, GNUNET_NO);
563 cmd->details.add_address.ar
564 = GNUNET_ATS_address_add (sched_ats,
567 &cmd->details.add_address.properties);
569 if (cmd->details.add_address.expect_fail)
571 GNUNET_log_skip (0, GNUNET_YES);
573 else if (NULL == cmd->details.add_address.ar)
576 GNUNET_SCHEDULER_shutdown ();
582 case CMD_DEL_ADDRESS:
586 add = find_command (CMD_ADD_ADDRESS,
587 cmd->details.del_address.add_label);
588 GNUNET_assert (NULL != add->details.add_address.ar);
589 GNUNET_ATS_address_destroy (add->details.add_address.ar);
590 add->details.add_address.ar = NULL;
594 case CMD_AWAIT_ADDRESS_SUGGESTION:
596 struct GNUNET_PeerIdentity pid;
597 struct GNUNET_HELLO_Address *addr;
599 struct AddressSuggestData *asd;
602 make_peer (cmd->details.await_address_suggestion.pid,
604 asd = find_address_suggestion (&pid);
607 if (GNUNET_NO == asd->active)
610 if (NULL != cmd->details.await_address_suggestion.add_label)
613 add = find_command (CMD_ADD_ADDRESS,
614 cmd->details.await_address_suggestion.add_label);
615 addr = make_address (add->details.add_address.pid,
616 add->details.add_address.addr_num,
617 add->details.add_address.addr_flags);
618 if ( (asd->session ==
619 make_session (add->details.add_address.session)) &&
621 GNUNET_HELLO_address_cmp (addr,
626 if (GNUNET_NO == done)
631 case CMD_AWAIT_DISCONNECT_SUGGESTION:
633 struct GNUNET_PeerIdentity pid;
634 struct AddressSuggestData *asd;
636 make_peer (cmd->details.await_disconnect_suggestion.pid,
638 asd = find_address_suggestion (&pid);
641 if (GNUNET_NO == asd->active)
646 case CMD_REQUEST_CONNECTION_START:
648 struct GNUNET_PeerIdentity pid;
650 make_peer (cmd->details.request_connection_start.pid,
652 cmd->details.request_connection_start.csh
653 = GNUNET_ATS_connectivity_suggest (con_ats,
658 case CMD_REQUEST_CONNECTION_STOP:
660 struct Command *start;
662 start = find_command (CMD_REQUEST_CONNECTION_START,
663 cmd->details.request_connection_stop.connect_label);
664 GNUNET_ATS_connectivity_suggest_cancel (start->details.request_connection_start.csh);
665 start->details.request_connection_start.csh = NULL;
669 case CMD_AWAIT_ADDRESS_INFORMATION:
671 struct AddressInformationData *aid;
673 struct Command *update;
674 struct GNUNET_HELLO_Address *addr;
675 const struct GNUNET_ATS_Properties *cmp;
677 add = find_command (CMD_ADD_ADDRESS,
678 cmd->details.await_address_information.add_label);
679 update = find_command (CMD_UPDATE_ADDRESS,
680 cmd->details.await_address_information.update_label);
681 addr = make_address (add->details.add_address.pid,
682 add->details.add_address.addr_num,
683 add->details.add_address.addr_flags);
684 aid = find_address_information (addr);
687 cmp = &add->details.add_address.properties;
689 cmp = &update->details.update_address.properties;
690 if ( (NULL != aid) &&
693 sizeof (struct GNUNET_ATS_Properties))) )
700 case CMD_UPDATE_ADDRESS:
704 add = find_command (CMD_ADD_ADDRESS,
705 cmd->details.update_address.add_label);
706 GNUNET_assert (NULL != add->details.add_address.ar);
707 GNUNET_ATS_address_update (add->details.add_address.ar,
708 &cmd->details.update_address.properties);
712 case CMD_ADD_SESSION:
715 struct Session *session;
717 add = find_command (CMD_ADD_ADDRESS,
718 cmd->details.add_session.add_label);
719 session = make_session (cmd->details.add_session.session);
720 GNUNET_assert (NULL != add->details.add_address.ar);
721 GNUNET_ATS_address_add_session (add->details.add_address.ar,
726 case CMD_DEL_SESSION:
728 struct Command *add_address;
729 struct Command *add_session;
730 struct Session *session;
732 add_session = find_command (CMD_ADD_SESSION,
733 cmd->details.del_session.add_session_label);
734 add_address = find_command (CMD_ADD_ADDRESS,
735 add_session->details.add_session.add_label);
736 GNUNET_assert (NULL != add_address->details.add_address.ar);
737 session = make_session (add_session->details.add_session.session);
738 GNUNET_ATS_address_del_session (add_address->details.add_address.ar,
743 case CMD_CHANGE_PREFERENCE:
745 struct GNUNET_PeerIdentity pid;
747 make_peer (cmd->details.change_preference.pid,
749 GNUNET_ATS_performance_change_preference (perf_ats,
751 GNUNET_ATS_PREFERENCE_END);
755 case CMD_PROVIDE_FEEDBACK:
757 struct GNUNET_PeerIdentity pid;
759 make_peer (cmd->details.provide_feedback.pid,
761 GNUNET_ATS_performance_give_feedback (perf_ats,
763 cmd->details.provide_feedback.scope,
764 GNUNET_ATS_PREFERENCE_END);
768 case CMD_LIST_ADDRESSES:
770 struct GNUNET_PeerIdentity pid;
772 make_peer (cmd->details.list_addresses.pid,
774 cmd->details.list_addresses.alh
775 = GNUNET_ATS_performance_list_addresses (perf_ats,
777 cmd->details.list_addresses.all,
788 * Signature of a function called by ATS with the current bandwidth
789 * and address preferences as determined by ATS.
791 * @param cls closure, should point to "asc-closure"
792 * @param peer for which we suggest an address, NULL if ATS connection died
793 * @param address suggested address (including peer identity of the peer),
794 * may be NULL to signal disconnect from peer
795 * @param session session to use, NULL to establish a new outgoing session
796 * @param bandwidth_out assigned outbound bandwidth for the connection,
797 * 0 to signal disconnect
798 * @param bandwidth_in assigned inbound bandwidth for the connection,
799 * 0 to signal disconnect
802 address_suggest_cb (void *cls,
803 const struct GNUNET_PeerIdentity *peer,
804 const struct GNUNET_HELLO_Address *address,
805 struct Session *session,
806 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
807 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in)
809 const char *asc_cls = cls;
810 struct AddressSuggestData *asd;
812 GNUNET_break (0 == strcmp (asc_cls, "asc-closure"));
815 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
816 "Connection to ATS died, likely a crash!\n");
817 GNUNET_SCHEDULER_shutdown ();
819 /* This is what we should do if we wanted to continue past
821 GNUNET_CONTAINER_multipeermap_iterate (p2asd,
824 GNUNET_CONTAINER_multipeermap_iterate (p2aid,
831 asd = find_address_suggestion (peer);
834 asd = GNUNET_new (struct AddressSuggestData);
835 GNUNET_assert (GNUNET_YES ==
836 GNUNET_CONTAINER_multipeermap_put (p2asd,
839 GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY));
841 if ( (0 == ntohl (bandwidth_out.value__)) &&
842 (0 == ntohl (bandwidth_in.value__)) )
843 asd->active = GNUNET_NO;
845 asd->active = GNUNET_YES;
846 asd->bandwidth_out = bandwidth_out;
847 asd->bandwidth_in = bandwidth_in;
848 asd->session = session;
849 GNUNET_free_non_null (asd->address);
852 asd->address = GNUNET_HELLO_address_copy (address);
858 * Signature of a function that is called with QoS information about an address.
860 * @param cls closure, should point to "aic-closure"
861 * @param address the address, NULL if ATS service was disconnected
862 * @param address_active #GNUNET_YES if this address is actively used
863 * to maintain a connection to a peer;
864 * #GNUNET_NO if the address is not actively used;
865 * #GNUNET_SYSERR if this address is no longer available for ATS
866 * @param bandwidth_out assigned outbound bandwidth for the connection
867 * @param bandwidth_in assigned inbound bandwidth for the connection
868 * @param prop performance data for the address
871 address_information_cb (void *cls,
872 const struct GNUNET_HELLO_Address *address,
874 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_out,
875 struct GNUNET_BANDWIDTH_Value32NBO bandwidth_in,
876 const struct GNUNET_ATS_Properties *prop)
878 const char *aic_cls = cls;
879 struct AddressInformationData *aid;
881 GNUNET_break (0 == strcmp (aic_cls, "aic-closure"));
884 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
885 "Connection to ATS died, likely a crash!\n");
886 GNUNET_CONTAINER_multipeermap_iterate (p2aid,
892 aid = find_address_information (address);
895 aid = GNUNET_new (struct AddressInformationData);
896 aid->address = GNUNET_HELLO_address_copy (address);
897 GNUNET_assert (GNUNET_YES ==
898 GNUNET_CONTAINER_multipeermap_put (p2aid,
901 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE));
903 aid->active = address_active;
904 aid->bandwidth_out = bandwidth_out;
905 aid->bandwidth_in = bandwidth_in;
906 aid->properties = *prop;
912 * Function run once the ATS service has been started.
915 * @param cfg configuration for the testcase
916 * @param peer handle to the peer
920 const struct GNUNET_CONFIGURATION_Handle *cfg,
921 struct GNUNET_TESTING_Peer *peer)
923 p2asd = GNUNET_CONTAINER_multipeermap_create (128,
925 p2aid = GNUNET_CONTAINER_multipeermap_create (128,
927 GNUNET_SCHEDULER_add_delayed (TIMEOUT,
931 sched_ats = GNUNET_ATS_scheduling_init (cfg,
934 if (NULL == sched_ats)
937 GNUNET_SCHEDULER_shutdown ();
940 con_ats = GNUNET_ATS_connectivity_init (cfg);
944 GNUNET_SCHEDULER_shutdown ();
947 perf_ats = GNUNET_ATS_performance_init (cfg,
948 &address_information_cb,
950 if (NULL == perf_ats)
953 GNUNET_SCHEDULER_shutdown ();
963 * @param argc length of @a argv
964 * @param argv command line
965 * @param cmds commands to run with the interpreter
966 * @param timeout how long is the test allowed to take?
967 * @return 0 on success
970 TEST_ATS_run (int argc,
972 struct Command *cmds,
973 struct GNUNET_TIME_Relative timeout)
975 char *test_filename = GNUNET_strdup (argv[0]);
980 test_commands = cmds;
982 if (NULL != (sep = strstr (test_filename, ".exe")))
984 underscore = strrchr (test_filename, (int) '_');
985 GNUNET_assert (NULL != underscore);
986 GNUNET_asprintf (&config_file,
987 "test_ats_api_%s.conf",
990 if (0 != GNUNET_TESTING_peer_run ("test-ats-api",
994 GNUNET_free (test_filename);
995 GNUNET_free (config_file);
999 /* end of test_ats_lib.c */