timer and timeStamp added to misc. copyright and license info added

This commit is contained in:
Marty Kraimer
2010-11-23 07:30:13 -05:00
parent 28aad96b34
commit 9db054cc54
100 changed files with 1376 additions and 7236 deletions

View File

@@ -8,3 +8,5 @@ system ("./testIntrospect.pl");
system ("./testPVData.pl");
system ("./testPVStructureArray.pl");
system ("./testPVAuxInfo.pl");
system ("./testTimeStamp.pl");
system ("./testTimer.pl");

View File

@@ -5,16 +5,16 @@ time per iteration 0.000025 microseconds
time per addTail/removeHead 0.000000 microseconds
Time test locked
diff 183.634382 milliSeconds
time per iteration 183.634382 microseconds
time per addTail/removeHead 0.091817 microseconds
diff 186.459567 milliSeconds
time per iteration 186.459567 microseconds
time per addTail/removeHead 0.093230 microseconds
Time ArrayList test
diff 647.257745 milliSeconds
time per iteration 647.257745 microseconds
time per addTail/removeHead 0.323629 microseconds
diff 652.028489 milliSeconds
time per iteration 652.028489 microseconds
time per addTail/removeHead 0.326014 microseconds
Time ArrayList test locked
diff 810.656009 milliSeconds
time per iteration 810.656009 microseconds
time per addTail/removeHead 0.405328 microseconds
diff 799.889631 milliSeconds
time per iteration 799.889631 microseconds
time per addTail/removeHead 0.399945 microseconds

View File

@@ -1 +1 @@
time per call 38.976797 microseconds
time per call 36.953844 microseconds

6
test/testTimeStamp Normal file
View File

@@ -0,0 +1,6 @@
diff 0.000000e+00
diff 1.000000e+00
diff -1.000000e+00
diff -1.000000e+00
diff -1.000000e-09
diff 1.000000e-01

12
test/testTimeStamp.pl Executable file
View File

@@ -0,0 +1,12 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testTimeStamp.pl
use Env;
system ("rm testTimeStamp");
system ("rm testTimeStampDiff");
system ("../bin/${EPICS_HOST_ARCH}/testTimeStamp testTimeStamp testTimeStampAux");
system ("diff testTimeStamp testTimeStampGold >> testTimeStampDiff");
if(-z "testTimeStampDiff") {
print "testTimeStamp OK\n";
} else {
print "testTimeStamp Failed\n";
}

1
test/testTimeStampAux Normal file
View File

@@ -0,0 +1 @@
current 1290514910 631889964 milliSec 1290514910631

0
test/testTimeStampDiff Normal file
View File

6
test/testTimeStampGold Normal file
View File

@@ -0,0 +1,6 @@
diff 0.000000e+00
diff 1.000000e+00
diff -1.000000e+00
diff -1.000000e+00
diff -1.000000e-09
diff 1.000000e-01

4
test/testTimer Normal file
View File

@@ -0,0 +1,4 @@
event: totalConstruct 15 totalDestruct 15
thread: totalConstruct 3 totalDestruct 3
timerNode: totalConstruct 6 totalDestruct 6
timer: totalConstruct 3 totalDestruct 3

12
test/testTimer.pl Executable file
View File

@@ -0,0 +1,12 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # testTimer.pl
use Env;
system ("rm testTimer");
system ("rm testTimerDiff");
system ("../bin/${EPICS_HOST_ARCH}/testTimer testTimer testTimerAux");
system ("diff testTimer testTimerGold >> testTimerDiff");
if(-z "testTimerDiff") {
print "testTimer OK\n";
} else {
print "testTimer Failed\n";
}

6
test/testTimerAux Normal file
View File

@@ -0,0 +1,6 @@
one requested 0.400000 diff 0.400227 seconds
two requested 0.200000 diff 0.200181 seconds
one requested 0.200000 diff 0.200259 seconds
two requested 0.400000 diff 0.400413 seconds
one requested 0.000000 diff 0.000058 seconds
two requested 0.000000 diff 0.000082 seconds

0
test/testTimerDiff Normal file
View File

4
test/testTimerGold Normal file
View File

@@ -0,0 +1,4 @@
event: totalConstruct 15 totalDestruct 15
thread: totalConstruct 3 totalDestruct 3
timerNode: totalConstruct 6 totalDestruct 6
timer: totalConstruct 3 totalDestruct 3