EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

compare performance of different data types

Browse Source
This commit is contained in:
zimoch
2018-06-19 15:03:04 +02:00
parent 162fa7b329
commit 5bb231d8e8
1 changed files with 44 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
streamApp/tests/testPerformance Normal file → Executable file
View File

@ -14,13 +14,29 @@ set records {
field (NELM, "1048576") field (NELM, "1048576")
field (INP, "@test.proto test1 device") field (INP, "@test.proto test1 device")
} }
record (waveform, "DZ:test2")
{
field (DTYP, "stream")
field (FTVL, "LONG")
field (NELM, "1048576")
field (INP, "@test.proto test2 device")
}
record (waveform, "DZ:test3")
{
field (DTYP, "stream")
field (FTVL, "STRING")
field (NELM, "1048576")
field (INP, "@test.proto test3 device")
}
} }
set protocol { set protocol {
replyTimeout =600000; replyTimeout =600000;
Terminator = LF; Terminator = LF;
Separator = ","; Separator = " ";
test1 {in "%f"; out "%(NORD)d";} test1 {in "%f"; out "%(NORD)d";}
test2 {in "%i"; out "%(NORD)d";}
test3 {in "%s"; out "%(NORD)d";}
} }
set startup { set startup {
@ -28,27 +44,42 @@ set startup {
set debug 0 set debug 0
set message "3.1415" set message "314156"
set size 1 set size 1
set timeout 600000 set timeout 600000
set type(1) "double"
set type(2) "long "
set type(3) "string"
startioc startioc
process DZ:test1
send "$message\n" send "$message\n"
process DZ:test1
assure "$size\n"
send "$message\n"
process DZ:test2
assure "$size\n"
send "$message\n"
process DZ:test3
assure "$size\n" assure "$size\n"
ioccmd {var streamDebug 0} ioccmd {var streamDebug 0}
for {set log 1} {$log <= 21} {incr log} { for {set log 1} {$log <= 21} {incr log} {
set output "$message\n" foreach n { 1 2 3 } {
set starttime [clock clicks] send "$message\n"
send $output
process DZ:test1 # make sure all output is available before we start
assure "$size\n" after 100
set duration [expr [clock clicks] - $starttime]
set performance($size) [expr $duration*1.0/$size] set starttime [clock clicks]
puts [format "size %7d duration: %8d time/element: %6.1f" $size $duration $performance($size)] process DZ:test$n
if {$performance($size) > $performance(1)} {incr faults} assure "$size\n"
set message "$message,$message" set duration [expr [clock clicks] - $starttime]
set performance($size) [expr $duration*1.0/$size]
puts [format "%7d %s %9d ticks %9.2f ticks/element" $size $type($n) $duration $performance($size)]
if {$performance($size) > $performance(1)} {incr faults}
}
set message "$message $message"
set size [expr $size*2] set size [expr $size*2]
} }