mpi/ec: fix when 'unsigned long' is 32-bit but limb size is 64-bit
[libgcrypt.git] / tests / version.c
1 /* version.c  -  This version test should be run first.
2    Copyright (C) 2007 Free Software Foundation, Inc.
3
4    This file is part of Libgcrypt.
5
6    Libgcrypt is free software; you can redistribute it and/or modify
7    it under the terms of the GNU Lesser General Public License as
8    published by the Free Software Foundation; either version 2.1 of
9    the License, or (at your option) any later version.
10
11    Libgcrypt is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU Lesser General Public License for more details.
15
16    You should have received a copy of the GNU Lesser General Public
17    License along with this program; if not, write to the Free Software
18    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
19    USA.  */
20
21 /* This test should be run first because due to a failing config.links
22    script or bad configure parameters the just build libgcrypt may
23    crash in case MPI function for specific CPU revisions have been
24    enabled.  Running this test first will print out information so to
25    make it easier to figure out the problem. */
26
27
28 #ifdef HAVE_CONFIG_H
29 #include <config.h>
30 #endif
31 #include <stdio.h>
32 #include <stdlib.h>
33 #include <string.h>
34 #include <stdarg.h>
35 #include <errno.h>
36
37 #include "../src/gcrypt-int.h"
38
39 #define PGM "version"
40 #include "t-common.h"
41
42 static void
43 test_get_config (void)
44 {
45   char *string;
46   const char *s;
47   int i;
48
49   string = gcry_get_config (0, NULL);
50   if (!string)
51     fail ("gcry_get_config does not return anything: %s\n",
52           gpg_strerror (gpg_error_from_syserror ()));
53   else if ( !strchr (string, '\n') )
54     fail ("gcry_get_config(0, NULL) did not return multiple lines\n");
55
56   xfree (string);
57   string = gcry_get_config (0, "version");
58   if (!string)
59     fail ("gcry_get_config(\"version\") returned NULL: %s\n",
60           gpg_strerror (gpg_error_from_syserror ()));
61   else if ( strchr (string, '\n') )
62     fail ("gcry_get_config(\"version\") returned more than one line\n");
63   else if ( strncmp (string, "version:", 8) )
64     fail ("gcry_get_config(\"version\") returned wrong line\n");
65
66   /* Test an item which is not the first.  */
67   xfree (string);
68   string = gcry_get_config (0, "cpu-arch");
69   if (!string)
70     fail ("gcry_get_config(\"cpu-arch\") returned NULL: %s\n",
71           gpg_strerror (gpg_error_from_syserror ()));
72   else if ( strchr (string, '\n') )
73     fail ("gcry_get_config(\"cpu-arch\") returned more than one line\n");
74   else if ( strncmp (string, "cpu-arch:", 9) )
75     fail ("gcry_get_config(\"cpu-arch\") returned wrong line\n");
76
77   /* Test that an unknown item return sthe correct error.  */
78   xfree (string);
79   string = gcry_get_config (0, "no-such-item");
80   if (string)
81     fail ("gcry_get_config(\"no-such-item\") returned something\n");
82   else if (errno)
83     fail ("gcry_get_config(\"no-such-item\") returned wrong error: %s\n",
84           gpg_strerror (gpg_error_from_syserror ()));
85
86   /* Check the rng-type.  */
87   xfree (string);
88   string = gcry_get_config (0, "rng-type");
89   if (!string)
90     fail ("gcry_get_config(\"rng-type\") not returned\n");
91   else
92     {
93       for (i=0, s = string; *s; s++)
94         if (*s == ':')
95           i++;
96       if (i < 5)
97         fail ("gcry_get_config(\"rng-type\") has not enough fields\n");
98     }
99
100
101   xfree (string);
102 }
103
104
105 int
106 main (int argc, char **argv)
107 {
108   int last_argc = -1;
109
110   if (argc)
111     { argc--; argv++; }
112
113   while (argc && last_argc != argc )
114     {
115       last_argc = argc;
116       if (!strcmp (*argv, "--"))
117         {
118           argc--; argv++;
119           break;
120         }
121       else if (!strcmp (*argv, "--verbose"))
122         {
123           verbose++;
124           argc--; argv++;
125         }
126       else if (!strcmp (*argv, "--debug"))
127         {
128           /* Dummy option */
129           argc--; argv++;
130         }
131       else if (!strcmp (*argv, "--disable-hwf"))
132         {
133           argc--;
134           argv++;
135           if (argc)
136             {
137               if (gcry_control (GCRYCTL_DISABLE_HWF, *argv, NULL))
138                 fprintf (stderr,
139                         PGM
140                         ": unknown hardware feature '%s' - option ignored\n",
141                         *argv);
142               argc--;
143               argv++;
144             }
145         }
146     }
147
148   xgcry_control (GCRYCTL_SET_VERBOSITY, (int)verbose);
149
150   xgcry_control (GCRYCTL_DISABLE_SECMEM, 0);
151   if (strcmp (GCRYPT_VERSION, gcry_check_version (NULL)))
152     {
153       int oops = !gcry_check_version (GCRYPT_VERSION);
154       fprintf (stderr, PGM ": %sversion mismatch; pgm=%s, library=%s\n",
155                oops? "":"warning: ", GCRYPT_VERSION, gcry_check_version (NULL));
156       if (oops)
157         exit (1);
158     }
159
160   xgcry_control (GCRYCTL_PRINT_CONFIG, NULL);
161
162   test_get_config ();
163
164
165   return 0;
166 }