rounding
[oweals/gnunet.git] / src / hostlist / test_gnunet_daemon_hostlist.c
1 /*
2      This file is part of GNUnet
3      (C) 2009 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 2, 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 hostlist/test_gnunet_daemon_hostlist.c
22  * @brief test for gnunet_daemon_hostslist.c
23  * @author Christian Grothoff
24  */
25 #include "platform.h"
26 #include "gnunet_util_lib.h"
27 #include "gnunet_arm_service.h"
28 #include "gnunet_transport_service.h"
29
30 #define VERBOSE GNUNET_NO
31
32 #define START_ARM GNUNET_YES
33
34
35 /**
36  * How long until we give up on transmitting the message?
37  */
38 #define TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 150)
39
40 static int ok;
41
42 static struct GNUNET_SCHEDULER_Handle *sched;
43
44 static GNUNET_SCHEDULER_TaskIdentifier timeout_task;
45     
46 struct PeerContext
47 {
48   struct GNUNET_CONFIGURATION_Handle *cfg;
49   struct GNUNET_TRANSPORT_Handle *th;
50   struct GNUNET_MessageHeader *hello;
51   struct GNUNET_ARM_Handle *arm;
52 #if START_ARM
53   pid_t arm_pid;
54 #endif
55 };
56
57 static struct PeerContext p1;
58
59 static struct PeerContext p2;
60
61
62 static void
63 clean_up (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
64 {
65   if (p1.th != NULL)
66     {
67       GNUNET_TRANSPORT_disconnect (p1.th);
68       p1.th = NULL;
69     }
70   if (p2.th != NULL)
71     {
72       GNUNET_TRANSPORT_disconnect (p2.th);
73       p2.th = NULL;
74     }
75   GNUNET_SCHEDULER_shutdown (sched);
76 }
77
78 /**
79  * Timeout, give up.
80  */
81 static void
82 timeout_error (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
83 {
84   timeout_task = GNUNET_SCHEDULER_NO_TASK;
85   GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
86               "Timeout trying to connect peers, test failed.\n");
87   clean_up (NULL, tc);
88 }
89
90
91 /**
92  * Function called to notify transport users that another
93  * peer connected to us.
94  *
95  * @param cls closure
96  * @param peer the peer that connected
97  * @param latency current latency of the connection
98  * @param distance in overlay hops, as given by transport plugin
99  */
100 static void
101 notify_connect (void *cls,
102                 const struct GNUNET_PeerIdentity * peer,
103                 struct GNUNET_TIME_Relative latency,
104                 unsigned int distance)
105 {
106   if (peer == NULL)
107     return;
108   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
109               "Peers connected, shutting down.\n");
110   ok = 0;
111   if (timeout_task != GNUNET_SCHEDULER_NO_TASK)
112     {
113       GNUNET_SCHEDULER_cancel (sched,
114                                timeout_task);
115       timeout_task = GNUNET_SCHEDULER_NO_TASK;
116     }
117   GNUNET_SCHEDULER_add_now (sched,
118                             &clean_up, NULL);
119 }
120
121
122 static void
123 process_hello (void *cls,
124                const struct GNUNET_MessageHeader *message)
125 {
126   struct PeerContext *p = cls;
127
128   GNUNET_TRANSPORT_get_hello_cancel (p->th, &process_hello, p);
129   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
130               "Received HELLO, starting hostlist service.\n");
131   GNUNET_ARM_start_services (p->cfg, sched, "hostlist", NULL);
132 }
133
134
135 static void
136 setup_peer (struct PeerContext *p, const char *cfgname)
137 {
138   p->cfg = GNUNET_CONFIGURATION_create ();
139 #if START_ARM
140   p->arm_pid = GNUNET_OS_start_process (NULL, NULL, "gnunet-service-arm",
141                                         "gnunet-service-arm",
142 #if VERBOSE
143                                         "-L", "DEBUG",
144 #endif
145                                         "-c", cfgname, NULL);
146 #endif
147   GNUNET_assert (GNUNET_OK == GNUNET_CONFIGURATION_load (p->cfg, cfgname));
148   GNUNET_ARM_start_services (p->cfg, sched, "core", NULL);
149   p->th = GNUNET_TRANSPORT_connect (sched, p->cfg, p, NULL, 
150                                     &notify_connect, NULL);
151   GNUNET_assert (p->th != NULL);
152   GNUNET_TRANSPORT_get_hello (p->th, &process_hello, p);
153 }
154
155
156 static void
157 waitpid_task (void *cls, 
158               const struct GNUNET_SCHEDULER_TaskContext *tc)
159 {
160   struct PeerContext *p = cls;
161
162 #if START_ARM 
163   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
164               "Killing ARM process.\n");
165   if (0 != PLIBC_KILL (p->arm_pid, SIGTERM))
166     GNUNET_log_strerror (GNUNET_ERROR_TYPE_WARNING, "kill");
167   if (GNUNET_OS_process_wait(p->arm_pid) != GNUNET_OK)
168     GNUNET_log_strerror (GNUNET_ERROR_TYPE_WARNING, "waitpid");
169   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
170               "ARM process %u stopped\n", p->arm_pid);
171 #endif
172   GNUNET_CONFIGURATION_destroy (p->cfg);
173 }
174
175
176 static void
177 stop_cb (void *cls, 
178          int success)
179 {
180   struct PeerContext *p = cls;
181
182   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
183               success 
184               ? "ARM stopped core service\n" 
185               : "ARM failed to stop core service\n");
186   GNUNET_ARM_disconnect (p->arm);
187   p->arm = NULL;
188   /* make sure this runs after all other tasks are done */
189   GNUNET_SCHEDULER_add_delayed (sched,
190                                 GNUNET_TIME_UNIT_SECONDS,
191                                 &waitpid_task, p);
192 }
193
194
195 static void
196 stop_arm (struct PeerContext *p)
197 {
198   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
199               "Asking ARM to stop core service\n");
200   p->arm = GNUNET_ARM_connect (p->cfg, sched, NULL);
201   GNUNET_ARM_stop_service (p->arm, "core", GNUNET_TIME_UNIT_SECONDS,
202                            &stop_cb, p);
203 }
204
205
206 /**
207  * Try again to connect to transport service.
208  */
209 static void
210 shutdown_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
211 {
212   stop_arm (&p1);
213   stop_arm (&p2);
214 }
215
216
217 static void
218 run (void *cls,
219      struct GNUNET_SCHEDULER_Handle *s,
220      char *const *args,
221      const char *cfgfile, 
222      const struct GNUNET_CONFIGURATION_Handle *cfg)
223 {
224   GNUNET_assert (ok == 1);
225   ok++;
226   sched = s;
227   timeout_task = GNUNET_SCHEDULER_add_delayed (sched,
228                                                TIMEOUT,
229                                                &timeout_error,
230                                                NULL);
231   GNUNET_SCHEDULER_add_delayed (sched,
232                                 GNUNET_TIME_UNIT_FOREVER_REL,
233                                 &shutdown_task,
234                                 NULL);
235   setup_peer (&p1, "test_gnunet_daemon_hostlist_peer1.conf");
236   setup_peer (&p2, "test_gnunet_daemon_hostlist_peer2.conf");
237 }
238
239
240 static int
241 check ()
242 {
243   char *const argv[] = { "test-gnunet-daemon-hostlist",
244     "-c", "test_gnunet_daemon_hostlist_data.conf",
245 #if VERBOSE
246     "-L", "DEBUG",
247 #endif
248     NULL
249   };
250   struct GNUNET_GETOPT_CommandLineOption options[] = {
251     GNUNET_GETOPT_OPTION_END
252   };
253   ok = 1;
254   GNUNET_PROGRAM_run ((sizeof (argv) / sizeof (char *)) - 1,
255                       argv, "test-gnunet-daemon-hostlist",
256                       "nohelp", options, &run, &ok);
257   return ok;
258 }
259
260
261 int
262 main (int argc, char *argv[])
263 {
264   
265   int ret;
266
267   GNUNET_DISK_directory_remove ("/tmp/test-gnunetd-hostlist-peer-1");
268   GNUNET_DISK_directory_remove ("/tmp/test-gnunetd-hostlist-peer-2");
269   GNUNET_log_setup ("test-gnunet-daemon-hostlist",
270 #if VERBOSE
271                     "DEBUG",
272 #else
273                     "WARNING",
274 #endif
275                     NULL);
276   ret = check ();
277   GNUNET_DISK_directory_remove ("/tmp/test-gnunetd-hostlist-peer-1");
278   GNUNET_DISK_directory_remove ("/tmp/test-gnunetd-hostlist-peer-2");
279   return ret; 
280 }
281
282 /* end of test_gnunet_daemon_hostlist.c */