epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

added dbr_long_t readback test

Browse Source
This commit is contained in:
Jeff Hill
1999-02-12 00:26:31 +00:00
parent 2d927db988
commit 596edff56c
1 changed files with 42 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
src/ca/acctst.c
View File

@@ -7,6 +7,9 @@ static char *sccsId = "@(#) $Id$";
/*
* $Log$
* Revision 1.57 1999/01/28 21:12:16 jhill
* improved VAX floating point
*
* Revision 1.56 1998/10/27 00:47:28 jhill
* fixed warnings
*
@@ -529,7 +532,7 @@ int doacctst(char *pname)
dbr_float_t base;
unsigned long iter;
printf ("float test ");
printf ("dbr_float_t test ");
fflush (stdout);
epsil = FLT_EPSILON*4.0F;
base = FLT_MIN;
@@ -587,7 +590,7 @@ int doacctst(char *pname)
dbr_double_t base;
unsigned long iter;
printf ("double test ");
printf ("dbr_double_t test ");
fflush(stdout);
epsil = DBL_EPSILON*4;
base = DBL_MIN;
@@ -632,6 +635,43 @@ int doacctst(char *pname)
printf ("done\n");
}
/*
* Verify that we can write and then read back
* the same integer value (DBR_LONG)
*/
if (ca_read_access(chix1) && ca_write_access(chix1)) {
dbr_long_t iter, rdbk, incr;
struct dbr_ctrl_long cl;
status = ca_get (DBR_CTRL_LONG, chix1, &cl);
SEVCHK (status, "graphic long fetch failed\n");
status = ca_pend_io (10.0);
SEVCHK (status, "graphic long pend failed\n");
incr = (cl.upper_ctrl_limit - cl.lower_ctrl_limit);
if (incr>=1) {
incr /= 1000;
if (incr==0) {
incr = 1;
}
printf ("dbr_long_t test ");
fflush (stdout);
for (iter=cl.lower_ctrl_limit;
iter<=cl.upper_ctrl_limit; iter+=incr) {
status = ca_put (DBR_LONG, chix1, &iter);
status = ca_get (DBR_LONG, chix1, &rdbk);
status = ca_pend_io (10.0);
SEVCHK (status, "get pend failed\n");
assert (iter == rdbk);
printf (".");
fflush (stdout);
}
printf ("done\n");
}
}
/*
* verify we dont jam up on many uninterrupted
* solicitations