refactoring ARM api to use new MQ
[oweals/gnunet.git] / src / testbed / test_testbed_api_operations.c
1 /*
2       This file is part of GNUnet
3       Copyright (C) 2008--2013 GNUnet e.V.
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., 51 Franklin Street, Fifth Floor,
18       Boston, MA 02110-1301, USA.
19  */
20
21 /**
22  * @file testbed/test_testbed_api_operations.c
23  * @brief tests cases for testbed_api_operations.c
24  * @author Sree Harsha Totakura
25  */
26
27 #include "platform.h"
28 #include "gnunet_util_lib.h"
29 #include "testbed_api_operations.h"
30
31 /**
32  * Generic logging shortcut
33  */
34 #define LOG(kind,...)                           \
35   GNUNET_log (kind, __VA_ARGS__)
36
37 /**
38  * Delay to start step task
39  */
40 #define STEP_DELAY                                                      \
41   GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MILLISECONDS, 500)
42
43 /**
44  * Queue A. Initially the max active is set to 2 and then reduced to 0 - this
45  * should block op2 even after op1 has finished. Later the max active is set to
46  * 2 and this should start op2
47  */
48 struct OperationQueue *q1;
49
50 /**
51  * Queue B. Max active set to 2 is not changed throughout the test
52  */
53 struct OperationQueue *q2;
54
55 /**
56  * This operation should go into both queues and block op2 until it is done
57  */
58 struct GNUNET_TESTBED_Operation *op1;
59
60 /**
61  * This operation should go into q1 and q2
62  */
63 struct GNUNET_TESTBED_Operation *op2;
64
65 /**
66  * This operation should go into both queues and should consume 2 units of
67  * resources on both queues. Since op2 needs a resource from both queues and is
68  * queues before this operation, it will be blocked until op2 is released even
69  * though q1 has enough free resources
70  */
71 struct GNUNET_TESTBED_Operation *op3;
72
73 /**
74  * Just like op3, this operation also consumes 2 units of resources on both
75  * queues. Since this is queued after op3 and both queues are at max active
76  * 2. This will be blocked until op3 is done.
77  */
78 struct GNUNET_TESTBED_Operation *op4;
79
80 /**
81  * This operation is started after op4 is released and should consume only 1
82  * resource on queue q1. It should be started along with op6 and op7
83  */
84 struct GNUNET_TESTBED_Operation *op5;
85
86 /**
87  * This operation is started after op4 is released and should consume only 1
88  * resource on q2. It should be started along with op5 and op7
89  */
90 struct GNUNET_TESTBED_Operation *op6;
91
92 /**
93  * This operation is started after op4 is released and should consume 1 resource
94  * on both queues q1 and q1. It should be started along with op5 and op6.  It is
95  * then inactivated when op6 is released.  op8's start should release this
96  * operation implicitly.
97  */
98 struct GNUNET_TESTBED_Operation *op7;
99
100 /**
101  * This operation is started after op6 is finished in step task.  It consumes 2
102  * resources on both queues q1 and q2.  This operation should evict op7.  After
103  * starting, it should be made inactive, active and inactive again in the step task.
104  */
105 struct GNUNET_TESTBED_Operation *op8;
106
107 /**
108  * This opration is started after activating op8.  It should consume a resource
109  * on queues q1 and q2.  It should not be started until op8 is again made
110  * inactive at which point it should be released.  It can be released as soon as
111  * it begins.
112  */
113 struct GNUNET_TESTBED_Operation *op9;
114
115 /**
116  * The delay task identifier
117  */
118 struct GNUNET_SCHEDULER_Task * step_task;
119
120
121 /**
122  * Enumeration of test stages
123  */
124 enum Test
125 {
126     /**
127      * Initial stage
128      */
129   TEST_INIT,
130
131     /**
132      * op1 has been started
133      */
134   TEST_OP1_STARTED,
135
136     /**
137      * op1 has been released
138      */
139   TEST_OP1_RELEASED,
140
141   /**
142    * Temporary pause where no operations should start as we set max active in q1
143    * to 0 in stage TEST_OP1_STARTED
144    */
145   TEST_PAUSE,
146
147     /**
148      * op2 has started
149      */
150   TEST_OP2_STARTED,
151
152     /**
153      * op2 released
154      */
155   TEST_OP2_RELEASED,
156
157   /**
158    * op3 has started
159    */
160   TEST_OP3_STARTED,
161
162   /**
163    * op3 has finished
164    */
165   TEST_OP3_RELEASED,
166
167   /**
168    * op4 has started
169    */
170   TEST_OP4_STARTED,
171
172   /**
173    * op4 has released
174    */
175   TEST_OP4_RELEASED,
176
177   /**
178    * op5, op6, op7 started
179    */
180   TEST_OP5_6_7_STARTED,
181
182   /**
183    * op5 has released
184    */
185   TEST_OP5_RELEASED,
186
187   /**
188    * op6 has released
189    */
190   TEST_OP6_RELEASED,
191
192   /**
193    * op8 has began waiting
194    */
195   TEST_OP8_WAITING,
196
197   /**
198    * op7 has released
199    */
200   TEST_OP7_RELEASED,
201
202   /**
203    * op8 has started
204    */
205   TEST_OP8_STARTED,
206
207   /**
208    * op8 is inactive
209    */
210   TEST_OP8_INACTIVE_1,
211
212   /**
213    * op8 is active
214    */
215   TEST_OP8_ACTIVE,
216
217   /**
218    * op8 has been released
219    */
220   TEST_OP8_RELEASED,
221
222   /**
223    * op9 has started
224    */
225   TEST_OP9_STARTED,
226
227   /**
228    * op9 has been released
229    */
230   TEST_OP9_RELEASED
231 };
232
233 /**
234  * The test result
235  */
236 enum Test result;
237
238
239 /**
240  * Function to call to start an operation once all
241  * queues the operation is part of declare that the
242  * operation can be activated.
243  */
244 static void
245 start_cb (void *cls);
246
247
248 /**
249  * Function to cancel an operation (release all associated resources).  This can
250  * be because of a call to "GNUNET_TESTBED_operation_cancel" (before the
251  * operation generated an event) or AFTER the operation generated an event due
252  * to a call to "GNUNET_TESTBED_operation_done".  Thus it is not guaranteed that
253  * a callback to the 'OperationStart' preceeds the call to 'OperationRelease'.
254  * Implementations of this function are expected to clean up whatever state is
255  * in 'cls' and release all resources associated with the operation.
256  */
257 static void
258 release_cb (void *cls);
259
260
261 /**
262  * Task to simulate artificial delay and change the test stage
263  *
264  * @param cls NULL
265  */
266 static void
267 step (void *cls)
268 {
269   GNUNET_assert (NULL != step_task);
270   step_task = NULL;
271   switch (result)
272   {
273   case TEST_OP1_STARTED:
274     GNUNET_TESTBED_operation_release_ (op1);
275     GNUNET_TESTBED_operation_queue_reset_max_active_ (q1, 0);
276     op3 = GNUNET_TESTBED_operation_create_ (&op3, &start_cb, &release_cb);
277     GNUNET_TESTBED_operation_queue_insert2_ (q1, op3, 2);
278     GNUNET_TESTBED_operation_queue_insert2_ (q2, op3, 2);
279     GNUNET_TESTBED_operation_begin_wait_ (op3);
280     op4 = GNUNET_TESTBED_operation_create_ (&op4, &start_cb, &release_cb);
281     GNUNET_TESTBED_operation_queue_insert2_ (q1, op4, 2);
282     GNUNET_TESTBED_operation_queue_insert2_ (q2, op4, 2);
283     GNUNET_TESTBED_operation_begin_wait_ (op4);
284     break;
285   case TEST_OP1_RELEASED:
286     result = TEST_PAUSE;
287     GNUNET_TESTBED_operation_queue_reset_max_active_ (q1, 2);
288     break;
289   case TEST_OP2_STARTED:
290     GNUNET_TESTBED_operation_release_ (op2);
291     break;
292   case TEST_OP3_STARTED:
293     GNUNET_TESTBED_operation_release_ (op3);
294     break;
295   case TEST_OP4_STARTED:
296     GNUNET_TESTBED_operation_release_ (op4);
297     break;
298   case TEST_OP6_RELEASED:
299     op8 = GNUNET_TESTBED_operation_create_ (&op8, &start_cb, &release_cb);
300     GNUNET_TESTBED_operation_queue_insert2_ (q1, op8, 2);
301     GNUNET_TESTBED_operation_queue_insert2_ (q2, op8, 2);
302     result = TEST_OP8_WAITING;
303     GNUNET_TESTBED_operation_begin_wait_ (op8);
304     break;
305   case TEST_OP8_STARTED:
306     GNUNET_TESTBED_operation_inactivate_ (op8);
307     result = TEST_OP8_INACTIVE_1;
308     step_task = GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
309     break;
310   case TEST_OP8_INACTIVE_1:
311     GNUNET_TESTBED_operation_activate_ (op8);
312     result = TEST_OP8_ACTIVE;
313     op9 = GNUNET_TESTBED_operation_create_ (&op9, &start_cb, &release_cb);
314     GNUNET_TESTBED_operation_queue_insert2_ (q1, op9, 1);
315     GNUNET_TESTBED_operation_queue_insert2_ (q2, op9, 1);
316     GNUNET_TESTBED_operation_begin_wait_ (op9);
317     step_task = GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
318     break;
319   case TEST_OP8_ACTIVE:
320     GNUNET_TESTBED_operation_inactivate_ (op8);
321     /* op8 should be released by now due to above call */
322     GNUNET_assert (TEST_OP8_RELEASED == result);
323     break;
324   case TEST_OP9_STARTED:
325     GNUNET_TESTBED_operation_release_ (op9);
326     break;
327   default:
328     GNUNET_assert (0);
329   }
330 }
331
332
333 /**
334  * Function to call to start an operation once all
335  * queues the operation is part of declare that the
336  * operation can be activated.
337  */
338 static void
339 start_cb (void *cls)
340 {
341   switch (result)
342   {
343   case TEST_INIT:
344     GNUNET_assert (&op1 == cls);
345     result = TEST_OP1_STARTED;
346     GNUNET_assert (NULL == step_task);
347     step_task =
348         GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
349     break;
350   case TEST_PAUSE:
351     GNUNET_assert (&op2 == cls);
352     result = TEST_OP2_STARTED;
353     GNUNET_assert (NULL == step_task);
354     step_task =
355         GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
356     break;
357   case TEST_OP2_RELEASED:
358     GNUNET_assert (&op3 == cls);
359     result = TEST_OP3_STARTED;
360     GNUNET_assert (NULL == step_task);
361     step_task =
362         GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
363     break;
364   case TEST_OP3_RELEASED:
365     GNUNET_assert (&op4 == cls);
366     result = TEST_OP4_STARTED;
367     GNUNET_assert (NULL == step_task);
368     step_task =
369         GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
370     break;
371   case TEST_OP4_RELEASED:
372   {
373     static int nops;
374
375     nops++;
376     if (nops == 3)
377     {
378       result = TEST_OP5_6_7_STARTED;
379       GNUNET_TESTBED_operation_release_ (op5);
380       op5 = NULL;
381     }
382   }
383     break;
384   case TEST_OP7_RELEASED:
385     GNUNET_assert (&op8 == cls);
386     result = TEST_OP8_STARTED;
387     step_task = GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
388     break;
389   case TEST_OP8_RELEASED:
390     GNUNET_assert (&op9 == cls);
391     result = TEST_OP9_STARTED;
392     step_task = GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
393     break;
394   default:
395     GNUNET_assert (0);
396   }
397 }
398
399
400 /**
401  * Function to cancel an operation (release all associated resources).  This can
402  * be because of a call to "GNUNET_TESTBED_operation_cancel" (before the
403  * operation generated an event) or AFTER the operation generated an event due
404  * to a call to "GNUNET_TESTBED_operation_done".  Thus it is not guaranteed that
405  * a callback to the 'OperationStart' preceeds the call to 'OperationRelease'.
406  * Implementations of this function are expected to clean up whatever state is
407  * in 'cls' and release all resources associated with the operation.
408  */
409 static void
410 release_cb (void *cls)
411 {
412   switch (result)
413   {
414   case TEST_OP1_STARTED:
415     GNUNET_assert (&op1 == cls);
416     result = TEST_OP1_RELEASED;
417     op1 = NULL;
418     step_task =
419         GNUNET_SCHEDULER_add_delayed (STEP_DELAY, &step, NULL);
420     break;
421   case TEST_OP2_STARTED:
422     GNUNET_assert (&op2 == cls);
423     result = TEST_OP2_RELEASED;
424     GNUNET_assert (NULL == step_task);
425     break;
426   case TEST_OP3_STARTED:
427     GNUNET_assert (&op3 == cls);
428     result = TEST_OP3_RELEASED;
429     GNUNET_assert (NULL == step_task);
430     break;
431   case TEST_OP4_STARTED:
432     GNUNET_assert (&op4 == cls);
433     result = TEST_OP4_RELEASED;
434     GNUNET_assert (NULL == step_task);
435     op5 = GNUNET_TESTBED_operation_create_ (&op5, &start_cb, &release_cb);
436     GNUNET_TESTBED_operation_queue_insert2_ (q1, op5, 1);
437     GNUNET_TESTBED_operation_begin_wait_ (op5);
438     op6 = GNUNET_TESTBED_operation_create_ (&op6, &start_cb, &release_cb);
439     GNUNET_TESTBED_operation_queue_insert2_ (q2, op6, 1);
440     GNUNET_TESTBED_operation_begin_wait_ (op6);
441     op7 = GNUNET_TESTBED_operation_create_ (&op7, &start_cb, &release_cb);
442     GNUNET_TESTBED_operation_queue_insert2_ (q1, op7, 1);
443     GNUNET_TESTBED_operation_queue_insert2_ (q2, op7, 1);
444     GNUNET_TESTBED_operation_begin_wait_ (op7);
445     break;
446   case TEST_OP5_6_7_STARTED:
447     result = TEST_OP5_RELEASED;
448     op5 = NULL;
449     GNUNET_TESTBED_operation_release_ (op6);
450     break;
451   case TEST_OP5_RELEASED:
452     op6 = NULL;
453     result = TEST_OP6_RELEASED;
454     GNUNET_TESTBED_operation_inactivate_ (op7);
455     step_task = GNUNET_SCHEDULER_add_now (&step, NULL);
456     break;
457   case TEST_OP8_WAITING:
458     GNUNET_assert (&op7 == cls);
459     op7 = NULL;
460     result = TEST_OP7_RELEASED;
461     break;
462   case TEST_OP8_ACTIVE:
463     result = TEST_OP8_RELEASED;
464     op8 = NULL;
465     break;
466   case TEST_OP9_STARTED:
467     GNUNET_assert (&op9 == cls);
468     result = TEST_OP9_RELEASED;
469     GNUNET_TESTBED_operation_queue_destroy_ (q1);
470     GNUNET_TESTBED_operation_queue_destroy_ (q2);
471     q1 = NULL;
472     q2 = NULL;
473     break;
474   default:
475     GNUNET_assert (0);
476   }
477 }
478
479
480 /**
481  * Main run function.
482  *
483  * @param cls NULL
484  * @param args arguments passed to GNUNET_PROGRAM_run
485  * @param cfgfile the path to configuration file
486  * @param cfg the configuration file handle
487  */
488 static void
489 run (void *cls, char *const *args, const char *cfgfile,
490      const struct GNUNET_CONFIGURATION_Handle *config)
491 {
492   q1 = GNUNET_TESTBED_operation_queue_create_ (OPERATION_QUEUE_TYPE_FIXED, 1);
493   GNUNET_assert (NULL != q1);
494   q2 = GNUNET_TESTBED_operation_queue_create_ (OPERATION_QUEUE_TYPE_FIXED, 2);
495   GNUNET_assert (NULL != q2);
496   op1 = GNUNET_TESTBED_operation_create_ (&op1, start_cb, release_cb);
497   GNUNET_assert (NULL != op1);
498   op2 = GNUNET_TESTBED_operation_create_ (&op2, start_cb, release_cb);
499   GNUNET_TESTBED_operation_queue_insert_ (q1, op1);
500   GNUNET_TESTBED_operation_queue_insert_ (q2, op1);
501   GNUNET_TESTBED_operation_begin_wait_ (op1);
502   GNUNET_TESTBED_operation_queue_insert_ (q1, op2);
503   GNUNET_TESTBED_operation_queue_insert_ (q2, op2);
504   GNUNET_TESTBED_operation_begin_wait_ (op2);
505   result = TEST_INIT;
506 }
507
508
509 /**
510  * Main function
511  */
512 int
513 main (int argc, char **argv)
514 {
515   int ret;
516   char *const argv2[] =
517       { "test_testbed_api_operations", "-c", "test_testbed_api.conf", NULL };
518   struct GNUNET_GETOPT_CommandLineOption options[] =
519       { GNUNET_GETOPT_OPTION_END };
520
521   ret =
522       GNUNET_PROGRAM_run ((sizeof (argv2) / sizeof (char *)) - 1, argv2,
523                           "test_testbed_api_operations", "nohelp", options,
524                           &run, NULL);
525   if ((GNUNET_OK != ret) || (TEST_OP9_RELEASED != result))
526     return 1;
527   op1 = NULL;
528   op2 = NULL;
529   op3 = NULL;
530   op4 = NULL;
531   op5 = NULL;
532   op6 = NULL;
533   op7 = NULL;
534   op8 = NULL;
535   op9 = NULL;
536   q1 = NULL;
537   q2 = NULL;
538   return 0;
539 }
540
541 /* end of test_testbed_api_operations.c */