Return to t-cmp.c CVS log

Up to [local] / OpenXM / src / kan96xx / gmp-2.0.2-ssh-2 / mpq / tests

Annotation of OpenXM/src/kan96xx/gmp-2.0.2-ssh-2/mpq/tests/t-cmp.c, Revision 1.1.1.1

1.1       takayama    1: /* Test mpq_cmp.
                      2:
                      3: Copyright (C) 1996 Free Software Foundation, Inc.
                      4:
                      5: This file is part of the GNU MP Library.
                      6:
                      7: The GNU MP Library is free software; you can redistribute it and/or modify
                      8: it under the terms of the GNU Library General Public License as published by
                      9: the Free Software Foundation; either version 2 of the License, or (at your
                     10: option) any later version.
                     11:
                     12: The GNU MP Library is distributed in the hope that it will be useful, but
                     13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     14: or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
                     15: License for more details.
                     16:
                     17: You should have received a copy of the GNU Library General Public License
                     18: along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
                     19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
                     20: MA 02111-1307, USA. */
                     21:
                     22: #include <stdio.h>
                     23: #include "gmp.h"
                     24: #include "gmp-impl.h"
                     25: #include "urandom.h"
                     26:
                     27: #define NUM(x) (&((x)->_mp_num))
                     28: #define DEN(x) (&((x)->_mp_den))
                     29:
                     30: #define SGN(x) ((x) < 0 ? -1 : (x) > 0 ? 1 : 0)
                     31:
                     32: ref_mpq_cmp (a, b)
                     33:      mpq_t a, b;
                     34: {
                     35:   mpz_t ai, bi;
                     36:   int cc;
                     37:
                     38:   mpz_init (ai);
                     39:   mpz_init (bi);
                     40:
                     41:   mpz_mul (ai, NUM (a), DEN (b));
                     42:   mpz_mul (bi, NUM (b), DEN (a));
                     43:   cc = mpz_cmp (ai, bi);
                     44:   mpz_clear (ai);
                     45:   mpz_clear (bi);
                     46:   return cc;
                     47: }
                     48:
                     49: #ifndef SIZE
                     50: #define SIZE 8 /* increasing this lowers the probabilty of finding an error */
                     51: #endif
                     52:
                     53: main (argc, argv)
                     54:      int argc;
                     55:      char **argv;
                     56: {
                     57:   mpq_t a, b;
                     58:   mp_size_t size;
                     59:   int reps = 100000;
                     60:   int i;
                     61:   int cc, ccref;
                     62:
                     63:   if (argc == 2)
                     64:      reps = atoi (argv[1]);
                     65:
                     66:   mpq_init (a);
                     67:   mpq_init (b);
                     68:
                     69:   for (i = 0; i < reps; i++)
                     70:     {
                     71:       size = urandom () % SIZE - SIZE/2;
                     72:       mpz_random2 (NUM (a), size);
                     73:       do
                     74:        {
                     75:          size = urandom () % SIZE - SIZE/2;
                     76:          mpz_random2 (DEN (a), size);
                     77:        }
                     78:       while (mpz_cmp_ui (DEN (a), 0) == 0);
                     79:
                     80:       size = urandom () % SIZE - SIZE/2;
                     81:       mpz_random2 (NUM (b), size);
                     82:       do
                     83:        {
                     84:          size = urandom () % SIZE - SIZE/2;
                     85:          mpz_random2 (DEN (b), size);
                     86:        }
                     87:       while (mpz_cmp_ui (DEN (b), 0) == 0);
                     88:
                     89:       mpq_canonicalize (a);
                     90:       mpq_canonicalize (b);
                     91:
                     92:       ccref = ref_mpq_cmp (a, b);
                     93:       cc = mpq_cmp (a, b);
                     94:
                     95:       if (SGN (ccref) != SGN (cc))
                     96:        abort ();
                     97:     }
                     98:
                     99:   exit (0);
                    100: }
                    101:
                    102: dump (x)
                    103:      mpq_t x;
                    104: {
                    105:   mpz_out_str (stdout, 10, NUM (x));
                    106:   printf ("/");
                    107:   mpz_out_str (stdout, 10, DEN (x));
                    108:   printf ("\n");
                    109: }