xref: /netbsd-src/external/lgpl3/gmp/dist/tests/rand/t-urbui.c (revision cef8759bd76c1b621f8eab8faa6f208faabc2e15)
1 /* Test gmp_urandomb_ui.
2 
3 Copyright 2003, 2005 Free Software Foundation, Inc.
4 
5 This file is part of the GNU MP Library test suite.
6 
7 The GNU MP Library test suite is free software; you can redistribute it
8 and/or modify it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 3 of the License,
10 or (at your option) any later version.
11 
12 The GNU MP Library test suite is distributed in the hope that it will be
13 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
15 Public License for more details.
16 
17 You should have received a copy of the GNU General Public License along with
18 the GNU MP Library test suite.  If not, see https://www.gnu.org/licenses/.  */
19 
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include "gmp.h"
23 #include "gmp-impl.h"
24 #include "tests.h"
25 
26 /* Expect numbers generated by rstate to obey the number of bits requested.
27    No point testing bits==BITS_PER_ULONG, since any return is acceptable in
28    that case.  */
29 void
30 check_one (const char *name, gmp_randstate_ptr rstate)
31 {
32   unsigned long  bits, limit, got;
33   int    i;
34 
35   for (bits = 0; bits < BITS_PER_ULONG; bits++)
36     {
37       /* will demand got < limit */
38       limit = (1UL << bits);
39 
40       for (i = 0; i < 5; i++)
41         {
42           got = gmp_urandomb_ui (rstate, bits);
43           if (got >= limit)
44             {
45               printf ("Return value out of range:\n");
46               printf ("  algorithm: %s\n", name);
47               printf ("  bits:  %lu\n", bits);
48               printf ("  limit: %#lx\n", limit);
49               printf ("  got:   %#lx\n", got);
50               abort ();
51             }
52         }
53     }
54 }
55 
56 int
57 main (int argc, char *argv[])
58 {
59   tests_start ();
60 
61   call_rand_algs (check_one);
62 
63   tests_end ();
64   exit (0);
65 }
66