-disable for now
[oweals/gnunet.git] / src / gns / test_gns_simple_shorten.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 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., 59 Temple Place - Suite 330,
18      Boston, MA 02111-1307, USA.
19 */
20 /**
21  * @file gns/test_gns_simple_shorten.c
22  * @brief basic shorten test for gns api
23  *
24  */
25 #include "platform.h"
26 #include "gnunet_testing_lib-new.h"
27 #include "gnunet_core_service.h"
28 #include "block_dns.h"
29 #include "gnunet_signatures.h"
30 #include "gnunet_namestore_service.h"
31 #include "../namestore/namestore.h"
32 #include "gnunet_dnsparser_lib.h"
33 #include "gnunet_gns_service.h"
34
35 /* DEFINES */
36 #define VERBOSE GNUNET_YES
37
38 /* Timeout for entire testcase */
39 #define TIMEOUT GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 20)
40
41 /* If number of peers not in config file, use this number */
42 #define DEFAULT_NUM_PEERS 2
43
44 /* test records to resolve */
45 #define TEST_DOMAIN "www.alice.bob.gads"
46 #define TEST_IP "127.0.0.1"
47 #define TEST_RECORD_NAME "www"
48
49 #define TEST_AUTHORITY_BOB "bob"
50 #define TEST_AUTHORITY_ALICE "alice"
51 #define TEST_ALICE_PSEU "carol"
52 #define TEST_EXPECTED_RESULT "www.carol.gads"
53
54 #define KEYFILE_BOB "../namestore/zonefiles/HGU0A0VCU334DN7F2I9UIUMVQMM7JMSD142LIMNUGTTV9R0CF4EG.zkey"
55 #define KEYFILE_ALICE "../namestore/zonefiles/N0UJMP015AFUNR2BTNM3FKPBLG38913BL8IDMCO2H0A1LIB81960.zkey"
56
57
58 /* Task handle to use to schedule test failure */
59 GNUNET_SCHEDULER_TaskIdentifier die_task;
60
61 /* Global return value (0 for success, anything else for failure) */
62 static int ok;
63
64 static struct GNUNET_NAMESTORE_Handle *namestore_handle;
65
66 static struct GNUNET_GNS_Handle *gns_handle;
67
68 const struct GNUNET_CONFIGURATION_Handle *cfg;
69
70 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded priv_pkey;
71 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded short_pkey;
72 struct GNUNET_CRYPTO_RsaPrivateKey *priv_key;
73 struct GNUNET_CRYPTO_RsaPrivateKey *short_key;
74
75 struct GNUNET_CRYPTO_ShortHashCode priv_zone;
76 struct GNUNET_CRYPTO_ShortHashCode short_zone;
77
78
79 /**
80  * Check if the get_handle is being used, if so stop the request.  Either
81  * way, schedule the end_badly_cont function which actually shuts down the
82  * test.
83  */
84 static void
85 end_badly (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
86 {
87   die_task = GNUNET_SCHEDULER_NO_TASK;
88   GNUNET_SCHEDULER_shutdown ();
89   ok = 1;
90 }
91
92 void end_badly_now ()
93 {
94   GNUNET_SCHEDULER_cancel (die_task);
95   die_task = GNUNET_SCHEDULER_add_now (&end_badly, NULL);
96 }
97
98
99 /**
100  * Called when gns shorten finishes
101  */
102 static void
103 process_shorten_result(void* cls, const char* sname)
104 {
105   GNUNET_GNS_disconnect(gns_handle);
106
107   if (GNUNET_SCHEDULER_NO_TASK != die_task)
108   {
109       GNUNET_SCHEDULER_cancel (die_task);
110       die_task = GNUNET_SCHEDULER_NO_TASK;
111   }
112
113   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
114               "Disconnecting from namestore\n");
115   GNUNET_NAMESTORE_disconnect (namestore_handle);
116
117   if (sname == NULL)
118   {
119     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
120                 "Shorten test failed!\n");
121     ok = 1;
122   }
123   else
124   {
125     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
126                 "%s shortened to %s\n", (char*)cls, sname);
127     if (0 != strcmp(sname, TEST_EXPECTED_RESULT))
128     {
129       GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
130                   "Shorten test failed! (wanted: %s got: %s\n",
131                   (char*)cls, sname);
132       ok = 1;
133     }
134
135     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Shorten test succeeded!\n");
136     ok = 0;
137   }
138
139   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Shutting down peer!\n");
140   GNUNET_SCHEDULER_shutdown ();
141 }
142
143 /**
144  * Function scheduled to be run on the successful start of services
145  * tries to shorten the name TEST_DOMAIN using gns
146  */
147 static void
148 commence_testing (void *cls, int32_t success, const char *emsg)
149 {
150   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
151               "Connecting to gns\n");
152   gns_handle = GNUNET_GNS_connect(cfg);
153   if (NULL == gns_handle)
154   {
155     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
156                 "Failed to connect to gns\n");
157     end_badly_now ();
158     return;
159   }
160
161   GNUNET_assert (NULL != GNUNET_GNS_shorten (gns_handle, TEST_DOMAIN,
162                       &priv_zone,
163                       &short_zone,
164                       &process_shorten_result,
165                       TEST_DOMAIN));
166 }
167
168
169
170 void do_check (void *cls,
171               const struct GNUNET_CONFIGURATION_Handle *ccfg,
172               struct GNUNET_TESTING_Peer *peer)
173 {
174   struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded our_pkey;
175   struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded alice_pkey;
176   struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded bob_pkey;
177   struct GNUNET_CRYPTO_RsaPrivateKey *our_key;
178   struct GNUNET_CRYPTO_RsaPrivateKey *alice_key;
179   struct GNUNET_CRYPTO_RsaPrivateKey *bob_key;
180   struct GNUNET_CRYPTO_ShortHashCode bob_hash;
181   struct GNUNET_CRYPTO_ShortHashCode alice_hash;
182   struct GNUNET_CRYPTO_RsaSignature *sig;
183   char* our_keyfile;
184   char* private_keyfile;
185   char* shorten_keyfile;
186
187   cfg = ccfg;
188   die_task = GNUNET_SCHEDULER_add_delayed (TIMEOUT, &end_badly, NULL);
189   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Running test\n");
190
191
192   /* put records into namestore */
193   namestore_handle = GNUNET_NAMESTORE_connect(cfg);
194   if (NULL == namestore_handle)
195   {
196     GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Failed to connect to namestore\n");
197     end_badly_now ();
198     return;
199   }
200
201   if (GNUNET_OK != GNUNET_CONFIGURATION_get_value_filename (cfg, "gns",
202                                                           "ZONEKEY",
203                                                           &our_keyfile))
204   {
205     GNUNET_log(GNUNET_ERROR_TYPE_ERROR, "Failed to get key from cfg\n");
206     end_badly_now ();
207     return;
208   }
209   
210   if (GNUNET_OK != GNUNET_CONFIGURATION_get_value_filename (cfg, "gns",
211                                                             "SHORTEN_ZONEKEY",
212                                                             &shorten_keyfile))
213   {
214     GNUNET_log(GNUNET_ERROR_TYPE_ERROR,
215                "Failed to get shorten zone key from cfg\n");
216     end_badly_now ();
217     return;
218   }
219   
220   if (GNUNET_OK != GNUNET_CONFIGURATION_get_value_filename (cfg, "gns",
221                                                             "PRIVATE_ZONEKEY",
222                                                             &private_keyfile))
223   {
224     GNUNET_log(GNUNET_ERROR_TYPE_ERROR,
225                "Failed to get private zone key from cfg\n");
226     end_badly_now ();
227     return;
228   }
229
230   our_key = GNUNET_CRYPTO_rsa_key_create_from_file (our_keyfile);
231   GNUNET_free(our_keyfile);
232
233   bob_key = GNUNET_CRYPTO_rsa_key_create_from_file (KEYFILE_BOB);
234   alice_key = GNUNET_CRYPTO_rsa_key_create_from_file (KEYFILE_ALICE);
235   priv_key = GNUNET_CRYPTO_rsa_key_create_from_file (private_keyfile);
236   short_key = GNUNET_CRYPTO_rsa_key_create_from_file (shorten_keyfile);
237
238   GNUNET_free(shorten_keyfile);
239   GNUNET_free(private_keyfile);
240   
241   GNUNET_CRYPTO_rsa_key_get_public (our_key, &our_pkey);
242   GNUNET_CRYPTO_rsa_key_get_public (alice_key, &alice_pkey);
243   GNUNET_CRYPTO_rsa_key_get_public (bob_key, &bob_pkey);
244   GNUNET_CRYPTO_rsa_key_get_public (priv_key, &priv_pkey);
245   GNUNET_CRYPTO_rsa_key_get_public (short_key, &short_pkey);
246
247   GNUNET_CRYPTO_short_hash(&priv_pkey, sizeof(priv_pkey), &priv_zone);
248   GNUNET_CRYPTO_short_hash(&short_pkey, sizeof(short_pkey), &short_zone);
249
250   struct GNUNET_NAMESTORE_RecordData rd;
251   char* ip = TEST_IP;
252   struct in_addr *web = GNUNET_malloc(sizeof(struct in_addr));
253   rd.expiration_time = UINT64_MAX;
254   GNUNET_assert(1 == inet_pton (AF_INET, ip, web));
255   
256   GNUNET_CRYPTO_short_hash(&bob_pkey, sizeof(bob_pkey), &bob_hash);
257
258   rd.data_size = sizeof(struct GNUNET_CRYPTO_ShortHashCode);
259   rd.data = &bob_hash;
260   rd.record_type = GNUNET_GNS_RECORD_PKEY;
261   rd.flags = GNUNET_NAMESTORE_RF_AUTHORITY;
262   
263   /* put bob into our zone */
264   GNUNET_NAMESTORE_record_create (namestore_handle,
265                                   our_key,
266                                   TEST_AUTHORITY_BOB,
267                                   &rd,
268                                   NULL,
269                                   NULL);
270   
271   /* put alice into bobs zone */
272   GNUNET_CRYPTO_short_hash(&alice_pkey, sizeof(alice_pkey), &alice_hash);
273   rd.data = &alice_hash;
274   sig = GNUNET_NAMESTORE_create_signature(bob_key,
275                                           GNUNET_TIME_UNIT_FOREVER_ABS,
276                                           TEST_AUTHORITY_ALICE,
277                                           &rd, 1);
278
279   GNUNET_NAMESTORE_record_put (namestore_handle,
280                                &bob_pkey,
281                                TEST_AUTHORITY_ALICE,
282                                GNUNET_TIME_UNIT_FOREVER_ABS,
283                                1,
284                                &rd,
285                                sig,
286                                NULL,
287                                NULL);
288   GNUNET_free(sig);
289   /* put www A record and PSEU into alice's zone */
290
291   rd.data_size = sizeof(struct in_addr);
292   rd.data = web;
293   rd.record_type = GNUNET_DNSPARSER_TYPE_A;
294   sig = GNUNET_NAMESTORE_create_signature(alice_key,
295                                           GNUNET_TIME_UNIT_FOREVER_ABS,
296                                           TEST_RECORD_NAME,
297                                           &rd, 1);
298
299   GNUNET_NAMESTORE_record_put (namestore_handle,
300                                &alice_pkey,
301                                TEST_RECORD_NAME,
302                                GNUNET_TIME_UNIT_FOREVER_ABS,
303                                1,
304                                &rd,
305                                sig,
306                                NULL,
307                                NULL);
308   
309   rd.data_size = sizeof(struct GNUNET_CRYPTO_ShortHashCode);
310   rd.data = &alice_hash;
311   rd.record_type = GNUNET_GNS_RECORD_PKEY;
312   GNUNET_free(sig);
313
314   GNUNET_NAMESTORE_record_create (namestore_handle,
315                                our_key,
316                                TEST_ALICE_PSEU,
317                                &rd,
318                                &commence_testing,
319                                NULL);
320
321   GNUNET_free(web);
322   GNUNET_CRYPTO_rsa_key_free(our_key);
323   GNUNET_CRYPTO_rsa_key_free(bob_key);
324   GNUNET_CRYPTO_rsa_key_free(alice_key);
325   GNUNET_CRYPTO_rsa_key_free(priv_key);
326   GNUNET_CRYPTO_rsa_key_free(short_key);
327
328 }
329
330 int
331 main (int argc, char *argv[])
332 {
333   ok = 1;
334
335   GNUNET_log_setup ("test-gns-simple-shorten",
336 #if VERBOSE
337                     "DEBUG",
338 #else
339                     "WARNING",
340 #endif
341                     NULL);
342
343   GNUNET_TESTING_peer_run ("test-gns-simple-shorten", "test_gns_simple_lookup.conf", &do_check, NULL);
344   return ok;
345 }
346
347 /* end of test_gns_twopeer.c */