Structural changes to create libcom module
This commit is contained in:
Ralph Lange
245
test/epicsTimeTest.cpp
Normal file
245
test/epicsTimeTest.cpp
Normal file
@@ -0,0 +1,245 @@
|
||||
/*************************************************************************\
|
||||
* Copyright (c) 2006 UChicago Argonne LLC, as Operator of Argonne
|
||||
* National Laboratory.
|
||||
* Copyright (c) 2002 The Regents of the University of California, as
|
||||
* Operator of Los Alamos National Laboratory.
|
||||
* EPICS BASE is distributed subject to a Software License Agreement found
|
||||
* in file LICENSE that is included with this distribution.
|
||||
\*************************************************************************/
|
||||
/*
|
||||
* Authors: Jeff Hill, Marty Kraimer and Andrew Johnson
|
||||
*/
|
||||
#include <cstddef>
|
||||
#include <cstdio>
|
||||
#include <ctime>
|
||||
#include <cmath>
|
||||
#include <climits>
|
||||
#include <cstring>
|
||||
|
||||
#include "epicsTime.h"
|
||||
#include "epicsThread.h"
|
||||
#include "errlog.h"
|
||||
#include "epicsUnitTest.h"
|
||||
#include "testMain.h"
|
||||
|
||||
using namespace std;
|
||||
|
||||
/* The functionality of the old invalidFormatTest () and badNanosecTest ()
|
||||
* routines is incorporated into epicsTimeTest () below.
|
||||
*/
|
||||
|
||||
struct l_fp { /* NTP time stamp */
|
||||
epicsUInt32 l_ui; /* sec past NTP epoch */
|
||||
epicsUInt32 l_uf; /* fractional seconds */
|
||||
};
|
||||
|
||||
static const unsigned mSecPerSec = 1000u;
|
||||
static const unsigned uSecPerSec = 1000u * mSecPerSec;
|
||||
static const unsigned nSecPerSec = 1000u * uSecPerSec;
|
||||
static const double precisionEPICS = 1.0 / nSecPerSec;
|
||||
|
||||
MAIN(epicsTimeTest)
|
||||
{
|
||||
const int wasteTime = 100000;
|
||||
const int nTimes = 10;
|
||||
|
||||
testPlan(17 + nTimes * 19);
|
||||
|
||||
try {
|
||||
const epicsTimeStamp epochTS = {0, 0};
|
||||
epicsTime epochET = epochTS;
|
||||
struct gm_tm_nano_sec epicsEpoch = epochET;
|
||||
|
||||
testOk(epicsEpoch.ansi_tm.tm_sec == 0 &&
|
||||
epicsEpoch.ansi_tm.tm_min == 0 &&
|
||||
epicsEpoch.ansi_tm.tm_hour == 0 &&
|
||||
epicsEpoch.ansi_tm.tm_yday == 0 &&
|
||||
epicsEpoch.ansi_tm.tm_year == 90,
|
||||
"epicsTime_gmtime() for EPICS epoch");
|
||||
}
|
||||
catch ( ... ) {
|
||||
testFail("epicsTime_gmtime() failed");
|
||||
testAbort("Can't continue, check your OS!");
|
||||
}
|
||||
|
||||
{ // badNanosecTest
|
||||
static const char * pFormat = "%a %b %d %Y %H:%M:%S.%4f";
|
||||
try {
|
||||
const epicsTimeStamp badTS = {1, 1000000000};
|
||||
epicsTime ts(badTS);
|
||||
char buf [32];
|
||||
ts.strftime(buf, sizeof(buf), pFormat);
|
||||
testFail("nanosecond overflow returned \"%s\"", buf);
|
||||
}
|
||||
catch ( ... ) {
|
||||
testPass("nanosecond overflow throws");
|
||||
}
|
||||
}
|
||||
|
||||
{ // strftime() output
|
||||
char buf[80];
|
||||
epicsTime et;
|
||||
|
||||
const char * pFormat = "%Y-%m-%d %H:%M:%S.%f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "<undefined>") == 0, "undefined => '%s'", buf);
|
||||
|
||||
// This is Noon GMT, when all timezones have the same date
|
||||
const epicsTimeStamp tTS = {12*60*60, 98765432};
|
||||
et = tTS;
|
||||
pFormat = "%Y-%m-%d %S.%09f"; // %H and %M change with timezone
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "1990-01-01 00.098765432") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
pFormat = "%S.%03f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.099") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
pFormat = "%S.%04f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.0988") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
pFormat = "%S.%05f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.09877") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
pFormat = "%S.%05f %S.%05f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.09877 00.09877") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
char smbuf[5];
|
||||
pFormat = "%S.%05f";
|
||||
et.strftime(smbuf, sizeof(smbuf), pFormat);
|
||||
testOk(strcmp(smbuf, "00.*") == 0, "'%s' => '%s'", pFormat, smbuf);
|
||||
|
||||
pFormat = "%S.%03f";
|
||||
(et + 0.9).strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.999") == 0, "0.998765 => '%s'", buf);
|
||||
|
||||
pFormat = "%S.%03f";
|
||||
(et + 0.901).strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "00.999") == 0, "0.999765 => '%s'", buf);
|
||||
|
||||
pFormat = "%%S.%%05f";
|
||||
et.strftime(buf, sizeof(buf), pFormat);
|
||||
testOk(strcmp(buf, "%S.%05f") == 0, "'%s' => '%s'", pFormat, buf);
|
||||
|
||||
char bigBuf [512];
|
||||
memset(bigBuf, '\a', sizeof(bigBuf));
|
||||
bigBuf[ sizeof(bigBuf) - 1] = '\0';
|
||||
et.strftime(buf, sizeof(buf), bigBuf);
|
||||
testOk(strcmp(buf, "<invalid format>") == 0, "bad format => '%s'", buf);
|
||||
}
|
||||
|
||||
epicsTime now;
|
||||
try {
|
||||
now = epicsTime::getCurrent();
|
||||
testPass("default time provider");
|
||||
}
|
||||
catch ( ... ) {
|
||||
testFail("epicsTime::getCurrent() throws");
|
||||
testAbort("Can't continue, check your time provider");
|
||||
}
|
||||
|
||||
{
|
||||
l_fp ntp = now;
|
||||
epicsTime tsf = ntp;
|
||||
const double diff = fabs(tsf - now);
|
||||
// the difference in the precision of the two time formats
|
||||
static const double precisionNTP = 1.0 / (1.0 + 0xffffffff);
|
||||
testOk1(diff <= precisionEPICS + precisionNTP);
|
||||
}
|
||||
|
||||
testDiag("Running %d loops", nTimes);
|
||||
|
||||
const epicsTime begin = epicsTime::getCurrent();
|
||||
|
||||
for (int loop = 0; loop < nTimes; ++loop) {
|
||||
for (int i = 0; i < wasteTime; ++i) {
|
||||
now = epicsTime::getCurrent();
|
||||
}
|
||||
|
||||
const double diff = now - begin;
|
||||
|
||||
if (loop == 0) {
|
||||
testDiag ("%d calls to epicsTime::getCurrent() "
|
||||
"averaged %6.3f usec each", wasteTime,
|
||||
diff * 1e6 / wasteTime);
|
||||
}
|
||||
|
||||
epicsTime copy = now;
|
||||
testOk1(copy == now);
|
||||
testOk1(copy <= now);
|
||||
testOk1(copy >= now);
|
||||
|
||||
testOk1(now > begin);
|
||||
testOk1(now >= begin);
|
||||
testOk1(begin != now);
|
||||
testOk1(begin < now);
|
||||
testOk1(begin <= now);
|
||||
|
||||
testOk1(now - now == 0);
|
||||
testOk(fabs((now - begin) - diff) < precisionEPICS * 0.01,
|
||||
"now - begin ~= diff");
|
||||
|
||||
testOk1(begin + 0 == begin);
|
||||
testOk1(begin + diff == now);
|
||||
testOk1(now - 0 == now);
|
||||
testOk1(now - diff == begin);
|
||||
|
||||
epicsTime end = begin;
|
||||
end += diff;
|
||||
testOk(end == now, "(begin += diff) == now");
|
||||
|
||||
end = now;
|
||||
end -= diff;
|
||||
testOk(end == begin, "(now -= diff) == begin");
|
||||
|
||||
// test struct tm round-trip conversion
|
||||
local_tm_nano_sec ansiDate = begin;
|
||||
epicsTime beginANSI = ansiDate;
|
||||
testOk1(beginANSI + diff == now);
|
||||
|
||||
// test struct gmtm round-trip conversion
|
||||
gm_tm_nano_sec ansiGmDate = begin;
|
||||
epicsTime beginGMANSI = ansiGmDate;
|
||||
testOk1(beginGMANSI + diff == now);
|
||||
|
||||
// test struct timespec round-trip conversion
|
||||
struct timespec ts = begin;
|
||||
epicsTime beginTS = ts;
|
||||
testOk1(beginTS + diff == now);
|
||||
}
|
||||
|
||||
epicsTime ten_years_hence;
|
||||
try {
|
||||
now = epicsTime::getCurrent();
|
||||
ten_years_hence = now + 60 * 60 * 24 * 3652.5;
|
||||
testPass("epicsTime can represent 10 years hence");
|
||||
}
|
||||
catch ( ... ) {
|
||||
testFail("epicsTime exception for value 10 years hence");
|
||||
}
|
||||
|
||||
try {
|
||||
/* This test exists because in libCom/osi/os/posix/osdTime.cpp
|
||||
* the convertDoubleToWakeTime() routine limits the timeout delay
|
||||
* to 10 years. libCom/timer/timerQueue.cpp returns DBL_MAX for
|
||||
* queues with no timers present, and convertDoubleToWakeTime()
|
||||
* has to return an absolute Posix timestamp. On 2028-01-19 any
|
||||
* systems that still implement time_t as a signed 32-bit integer
|
||||
* will be unable to represent that timestamp, so this will fail.
|
||||
*/
|
||||
time_t_wrapper os_time_t = ten_years_hence;
|
||||
epicsTime then = os_time_t; // No fractional seconds
|
||||
double delta = ten_years_hence - then;
|
||||
|
||||
testOk(delta >= 0 && delta < 1.0,
|
||||
"OS time_t can represent 10 years hence");
|
||||
}
|
||||
catch ( ... ) {
|
||||
testFail("OS time_t conversion exception for value 10 years hence");
|
||||
}
|
||||
|
||||
return testDone();
|
||||
}
|
||||
Reference in New Issue
Block a user