|
Packit |
67cb25 |
/* err/test_errnos.c
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2007 Gerard Jungman, Brian Gough
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is free software; you can redistribute it and/or modify
|
|
Packit |
67cb25 |
* it under the terms of the GNU General Public License as published by
|
|
Packit |
67cb25 |
* the Free Software Foundation; either version 3 of the License, or (at
|
|
Packit |
67cb25 |
* your option) any later version.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is distributed in the hope that it will be useful, but
|
|
Packit |
67cb25 |
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
67cb25 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
67cb25 |
* General Public License for more details.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* You should have received a copy of the GNU General Public License
|
|
Packit |
67cb25 |
* along with this program; if not, write to the Free Software
|
|
Packit |
67cb25 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <config.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <stdio.h>
|
|
Packit |
67cb25 |
#include <stdlib.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <gsl/gsl_errno.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_test.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#define CHECK(x) errors[n].number = x ; errors[n].name = #x ; n++ ;
|
|
Packit |
67cb25 |
#define MAX_ERRS 64
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int verbose = 0 ;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
main (void)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int i, j, n = 0 ;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
struct {
|
|
Packit |
67cb25 |
int number;
|
|
Packit |
67cb25 |
const char * name;
|
|
Packit |
67cb25 |
} errors[MAX_ERRS] ;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
CHECK(GSL_SUCCESS);
|
|
Packit |
67cb25 |
CHECK(GSL_FAILURE);
|
|
Packit |
67cb25 |
CHECK(GSL_CONTINUE);
|
|
Packit |
67cb25 |
CHECK(GSL_EDOM);
|
|
Packit |
67cb25 |
CHECK(GSL_ERANGE);
|
|
Packit |
67cb25 |
CHECK(GSL_EFAULT);
|
|
Packit |
67cb25 |
CHECK(GSL_EINVAL);
|
|
Packit |
67cb25 |
CHECK(GSL_EFAILED);
|
|
Packit |
67cb25 |
CHECK(GSL_EFACTOR);
|
|
Packit |
67cb25 |
CHECK(GSL_ESANITY);
|
|
Packit |
67cb25 |
CHECK(GSL_ENOMEM);
|
|
Packit |
67cb25 |
CHECK(GSL_EBADFUNC);
|
|
Packit |
67cb25 |
CHECK(GSL_ERUNAWAY);
|
|
Packit |
67cb25 |
CHECK(GSL_EMAXITER);
|
|
Packit |
67cb25 |
CHECK(GSL_EZERODIV);
|
|
Packit |
67cb25 |
CHECK(GSL_EBADTOL);
|
|
Packit |
67cb25 |
CHECK(GSL_ETOL);
|
|
Packit |
67cb25 |
CHECK(GSL_EUNDRFLW);
|
|
Packit |
67cb25 |
CHECK(GSL_EOVRFLW);
|
|
Packit |
67cb25 |
CHECK(GSL_ELOSS);
|
|
Packit |
67cb25 |
CHECK(GSL_EROUND);
|
|
Packit |
67cb25 |
CHECK(GSL_EBADLEN);
|
|
Packit |
67cb25 |
CHECK(GSL_ENOTSQR);
|
|
Packit |
67cb25 |
CHECK(GSL_ESING);
|
|
Packit |
67cb25 |
CHECK(GSL_EDIVERGE);
|
|
Packit |
67cb25 |
CHECK(GSL_EUNSUP);
|
|
Packit |
67cb25 |
CHECK(GSL_EUNIMPL);
|
|
Packit |
67cb25 |
CHECK(GSL_ECACHE);
|
|
Packit |
67cb25 |
CHECK(GSL_ETABLE);
|
|
Packit |
67cb25 |
CHECK(GSL_ENOPROG);
|
|
Packit |
67cb25 |
CHECK(GSL_ENOPROGJ);
|
|
Packit |
67cb25 |
CHECK(GSL_ETOLF);
|
|
Packit |
67cb25 |
CHECK(GSL_ETOLX);
|
|
Packit |
67cb25 |
CHECK(GSL_ETOLG);
|
|
Packit |
67cb25 |
CHECK(GSL_EOF);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0 ; i < n ; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
if (verbose) printf ("%s = %d\n", errors[i].name, errors[i].number) ;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = 0;
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
if (j != i)
|
|
Packit |
67cb25 |
status |= (errors[i].number == errors[j].number);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
gsl_test (status, "%s is distinct from other error values",
|
|
Packit |
67cb25 |
errors[i].name);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int status = 0;
|
|
Packit |
67cb25 |
int e1 = errors[i].number ;
|
|
Packit |
67cb25 |
for (j = 0; j < n; j++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
if (j != i)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
int e2 = errors[j].number;
|
|
Packit |
67cb25 |
status |= (gsl_strerror(e1) == gsl_strerror(e2)) ;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
gsl_test (status, "%s has a distinct error message",
|
|
Packit |
67cb25 |
errors[i].name);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
exit (gsl_test_summary ());
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|