URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libm/] [test/] [convert.c] - Rev 207
Compare with Previous | Blame | View Log
/* Test conversions */ #include "test.h" #include <stdlib.h> #include <errno.h> static char buffer[500]; extern double_type doubles[]; /* TEST ATOF ATOFF */ double_type *pd = doubles; void _DEFUN_VOID(test_strtod) { char *tail; double v; /* On average we'll loose 1/2 a bit, so the test is for within 1 bit */ v = strtod(pd->string, &tail); test_mok(v, pd->value, 64); test_iok(tail - pd->string, pd->endscan); } void _DEFUN_VOID(test_strtof) { char *tail; double v; /* On average we'll loose 1/2 a bit, so the test is for within 1 bit */ v = strtof(pd->string, &tail); test_mok(v, pd->value, 32); test_iok(tail - pd->string, pd->endscan); } void _DEFUN_VOID(test_atof) { test_mok(atof(pd->string), pd->value, 64); } void _DEFUN_VOID(test_atoff) { test_mok(atoff(pd->string), pd->value, 32); } static void _DEFUN(iterate,(func, name), void _EXFUN((*func),(void)) _AND char *name) { newfunc(name); pd = doubles; while (pd->string) { line(pd->line); func(); pd++; } } extern int_type ints[]; int_type *p = ints; static void _DEFUN(int_iterate,(func, name), void (*func)() _AND char *name) { newfunc(name); p = ints; while (p->string) { line(p->line); errno = 0; func(); p++; } } void _DEFUN(test_strtol_base,(base, pi, string), int base _AND int_scan_type *pi _AND char *string) { long r; char *ptr; errno = 0; r = strtol(string, &ptr, base); test_iok(r, pi->value); test_eok(errno, pi->errno_val); test_iok(ptr - string, pi->end); } void _DEFUN_VOID(test_strtol) { test_strtol_base(8,&(p->octal), p->string); test_strtol_base(10,&(p->decimal), p->string); test_strtol_base(16, &(p->hex), p->string); test_strtol_base(0, &(p->normal), p->string); test_strtol_base(26, &(p->alphabetical), p->string); } void _DEFUN_VOID(test_atoi) { test_iok(atoi(p->string), p->decimal.value); test_eok(errno, p->decimal.errno_val); } void _DEFUN_VOID(test_atol) { test_iok(atol(p->string), p->decimal.value); test_eok(errno, p->decimal.errno_val); } /* test ECVT and friends */ extern ddouble_type ddoubles[]; ddouble_type *pdd; void _DEFUN_VOID(test_ecvtbuf) { int a2,a3; char *s; s = ecvtbuf(pdd->value, pdd->e1, &a2, &a3, buffer); test_sok(s,pdd->estring); test_iok(pdd->e2,a2); test_iok(pdd->e3,a3); } void _DEFUN_VOID(test_ecvt) { int a2,a3; char *s; s = ecvt(pdd->value, pdd->e1, &a2, &a3); test_sok(s,pdd->estring); test_iok(pdd->e2,a2); test_iok(pdd->e3,a3); s = ecvtf(pdd->value, pdd->e1, &a2, &a3); test_sok(s,pdd->estring); test_iok(pdd->e2,a2); test_iok(pdd->e3,a3); } void _DEFUN_VOID(test_fcvtbuf) { int a2,a3; char *s; s = fcvtbuf(pdd->value, pdd->f1, &a2, &a3, buffer); test_scok(s,pdd->fstring,10); test_iok(pdd->f2,a2); test_iok(pdd->f3,a3); } void _DEFUN_VOID(test_gcvt) { char *s = gcvt(pdd->value, pdd->g1, buffer); test_scok(s, pdd->gstring, 9); s = gcvtf(pdd->value, pdd->g1, buffer); test_scok(s, pdd->gstring, 9); } void _DEFUN_VOID(test_fcvt) { int a2,a3; char *sd; char *sf; double v1; double v2; sd = fcvt(pdd->value, pdd->f1, &a2, &a3); test_scok(sd,pdd->fstring,10); test_iok(pdd->f2,a2); test_iok(pdd->f3,a3); /* Test the float version by converting and inspecting the numbers 3 after reconverting */ sf = fcvtf(pdd->value, pdd->f1, &a2, &a3); sscanf(sd, "%lg", &v1); sscanf(sf, "%lg", &v2); test_mok(v1, v2,32); test_iok(pdd->f2,a2); test_iok(pdd->f3,a3); } static void _DEFUN(diterate,(func, name), void (*func)() _AND char *name) { newfunc(name); pdd = ddoubles; while (pdd->estring) { line(pdd->line); errno = 0; func(); pdd++; } } void _DEFUN_VOID(deltest) { newfunc("rounding"); line(1); sprintf(buffer,"%.2f", 9.999); test_sok(buffer,"10.00"); line(2); sprintf(buffer,"%.2g", 1.0); test_sok(buffer,"1"); line(3); sprintf(buffer,"%.2g", 1.2e-6); test_sok(buffer,"1.2e-06"); line(4); sprintf(buffer,"%.0g", 1.0); test_sok(buffer,"1"); line(5); sprintf(buffer,"%.0e",1e1); test_sok(buffer,"1e+01"); line(6); sprintf(buffer, "%f", 12.3456789); test_sok(buffer, "12.345679"); line(7); sprintf(buffer, "%6.3f", 12.3456789); test_sok(buffer, "12.346"); line(8); sprintf(buffer,"%.0f", 12.3456789); test_sok(buffer,"12"); } /* Most of what sprint does is tested with the tests of fcvt/ecvt/gcvt, but here are some more */ void _DEFUN_VOID(test_sprint) { extern sprint_double_type sprint_doubles[]; sprint_double_type *s = sprint_doubles; extern sprint_int_type sprint_ints[]; sprint_int_type *si = sprint_ints; newfunc( "sprintf"); while (s->line) { line( s->line); sprintf(buffer, s->format_string, s->value); test_scok(buffer, s->result, 12); /* Only check the first 12 digs, other stuff is random */ s++; } while (si->line) { line( si->line); sprintf(buffer, si->format_string, si->value); test_sok(buffer, si->result); si++; } } /* Scanf calls strtod etc tested elsewhere, but also has some pattern matching skills */ void _DEFUN_VOID(test_scan) { int i,j; extern sprint_double_type sprint_doubles[]; sprint_double_type *s = sprint_doubles; extern sprint_int_type sprint_ints[]; sprint_int_type *si = sprint_ints; newfunc( "scanf"); /* Test scanf by converting all the numbers in the sprint vectors to and from their source and making sure nothing breaks */ while (s->line) { double d0,d1; line( s->line); sscanf(s->result, "%lg", &d0); sprintf(buffer, "%20.17e", d0); sscanf(buffer, "%lg", &d1); test_mok(d0,d1, 64); s++; } /* And integers too */ while (si->line) { long d0,d1; line(si->line); sscanf(si->result, "%d", &d0); sprintf(buffer, "%d", d0); sscanf(buffer, "%d", &d1); test_iok(d0,d1); si++; } /* And the string matching */ sscanf(" 9","%d", &i); test_iok(i, 9); sscanf("foo bar 123 zap 456","foo bar %d zap %d", &i, &j); test_iok(i, 123); test_iok(j, 456); sscanf("magicXYZZYfoobar","magic%[XYZ]", buffer); test_sok("XYZZY", buffer); sscanf("magicXYZZYfoobar","%[^XYZ]", buffer); test_sok("magic", buffer); } void _DEFUN_VOID(test_cvt) { deltest(); diterate(test_fcvtbuf,"fcvtbuf"); diterate(test_fcvt,"fcvt/fcvtf"); diterate(test_gcvt,"gcvt/gcvtf"); diterate(test_ecvtbuf,"ecvtbuf"); diterate(test_ecvt,"ecvt/ecvtf"); iterate(test_strtod, "strtod"); test_scan(); test_sprint(); iterate(test_atof, "atof"); iterate(test_atoff, "atoff"); iterate(test_strtof, "strtof"); int_iterate(test_atoi,"atoi"); int_iterate(test_atol,"atol"); int_iterate(test_strtol, "strtol"); }