-dce
[oweals/gnunet.git] / src / util / test_crypto_random.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
22 /**
23  * @file util/test_crypto_random.c
24  * @brief testcase for crypto_random.c
25  */
26 #include "platform.h"
27 #include "gnunet_common.h"
28 #include "gnunet_crypto_lib.h"
29
30 static int
31 test (enum GNUNET_CRYPTO_Quality mode)
32 {
33
34   int buf[1024];
35   unsigned int *b2;
36   int i;
37   unsigned long long n;
38
39   for (i = 0; i < 1024; i++)
40     GNUNET_break (1024 > (buf[i] = GNUNET_CRYPTO_random_u32 (mode, 1024)));
41   for (i = 0; i < 10; i++)
42   {
43     b2 = GNUNET_CRYPTO_random_permute (mode, 1024);
44     if (0 == memcmp (b2, buf, sizeof (buf)))
45     {
46       FPRINTF (stderr, "%s",  "!");
47       GNUNET_free (b2);
48       continue;
49     }
50     GNUNET_free (b2);
51     break;
52   }
53   if (i == 10)
54     return 1;                   /* virtually impossible... */
55
56   for (n = 10; n < 1024LL * 1024LL * 1024LL; n *= 10)
57     GNUNET_break (n > GNUNET_CRYPTO_random_u64 (mode, n));
58   return 0;
59 }
60
61 int
62 main (int argc, char *argv[])
63 {
64   GNUNET_log_setup ("test-crypto-random", "WARNING", NULL);
65   if (0 != test (GNUNET_CRYPTO_QUALITY_WEAK))
66     return 1;
67   if (0 != test (GNUNET_CRYPTO_QUALITY_STRONG))
68     return 1;
69
70   return 0;
71 }