epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

libCom/test: cvtFastTest improve output

Browse Source
This commit is contained in:
Michael Davidsaver
2017-05-05 20:54:19 -04:00
parent 3f49787be1
commit 9621ff1552
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/libCom/test/cvtFastTest.c
View File

@@ -21,16 +21,14 @@
#define tryIString(typ, lit, siz) \
len = cvt##typ##ToString(lit, buf); \
if (!testOk(len == siz, "cvt"#typ"ToString(" #lit ") == " #siz)) \
testDiag("length returned was %u", (unsigned) len); \
testOk(len == siz, "cvt"#typ"ToString(" #lit ") == " #siz " (%u) -> \"%s\"", (unsigned)len, buf); \
status = epicsParse##typ(buf, &val_##typ, 10, NULL); \
testOk(!status, "epicsParse"#typ"('%s') OK", buf); \
testOk(val_##typ == lit, #lit " => '%s'", buf);
#define tryFString(typ, lit, prec, siz) \
len = cvt##typ##ToString(lit, buf, prec); \
if (!testOk(len == siz, "cvt"#typ"ToString(" #lit ", %d) == " #siz, prec)) \
testDiag("length returned was %u", (unsigned) len); \
testOk(len == siz, "cvt"#typ"ToString(" #lit ", %d) == " #siz " (%u) -> \"%s\"", prec, (unsigned)len, buf); \
status = epicsParse##typ(buf, &val_##typ, NULL); \
testOk(!status, "epicsParse"#typ"('%s') OK", buf); \
testOk(fabs(val_##typ - lit) < 0.5 * pow(10, -prec), #lit " => '%s'", buf);