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

*** empty log message ***

Browse Source
This commit is contained in:
zimoch
2010-11-29 15:21:34 +00:00
parent 0155d5ab69
commit 8c619d3350
10 changed files with 1005 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
streamApp/tests/testTimestamp
View File

@ -22,13 +22,37 @@ set records {
field (DTYP, "stream")
field (INP, "@test.proto test3 device")
}
record (ai, "DZ:test4")
{
field (DTYP, "stream")
field (INP, "@test.proto test4 device")
}
record (ai, "DZ:test5")
{
field (DTYP, "stream")
field (INP, "@test.proto test5 device")
}
record (ai, "DZ:test6")
{
field (DTYP, "stream")
field (INP, "@test.proto test6 device")
}
record (ai, "DZ:test7")
{
field (DTYP, "stream")
field (INP, "@test.proto test7 device")
}
}
set protocol {
Terminator = LF;
test1 {out "%T(%d.%m.%Y %H:%M:%.2S %z)"; }
test2 {out "?"; in "%T"; out "%.0f %T"; }
test3 {out "?"; in "%(TIME)T(%Ed. %B %Y %H:%M:%.S%+0100) %f"; out "%(TIME)T %f"; }
test2 {in "%T"; out "%.0f %T"; }
test3 {in "%(TIME)T(%Ed. %B %Y %H:%M:%.S) %f"; out "%(TIME)T(%d.%m.%Y %H:%M:%.2S %z)"; }
test4 {in "%(TIME)T(%c) %f"; out "%(TIME)T(%a %d.%m.%Y %H:%M:%.2S %z)"; }
test5 {in "%T(%H %p)"; out "%T(%H)"; }
test6 {in "%T(%p %H)"; out "%T(%H)"; }
test7 {in "%T(%d.%m.%Y %T %z)"; out "%T(%d.%m.%Y %T %z) %.6f"; }
}
set startup {
@ -36,23 +60,93 @@ set startup {
set debug 0
package require Epics
proc checkTS {pv timestamp} {
global faults
pvget $pv
array set PV [pvinfo $pv]
if {$PV(TIME) != $timestamp} {
puts "expected timestamp: $timestamp"
puts "received timestamp: $PV(TIME)"
incr faults
}
}
startioc
ioccmd {dbpf DZ:test1 1044068706.789}
assure "01.02.2003 04:05:06.79 +0100\n"
ioccmd {dbpf DZ:test1 1057025106.789}
assure "01.07.2003 04:05:06.79 +0200\n"
ioccmd {dbpf DZ:test2.PROC 1}
assure "?\n"
send "2003-02-01 04:05:06 +0100\n"
assure "1044068706 2003-02-01 04:05:06 +0100\n";
send "2003-02-01 04:05:06\n"
assure "1044068706 2003-02-01 04:05:06\n";
ioccmd {dbpf DZ:test3.PROC 1}
assure "?\n"
send "1. Feb 2003 04:05:06.789 3.1415\n"
assure "2003-02-01 04:05:06 +0100 3.141500\n";
send "1. February 2003 04:05:06.789 3.1415\n"
assure "01.02.2003 04:05:06.79 +0100\n";
checkTS DZ:test3 "02/01/03 04:05:06.789000000"
package require Epics
array set PV [pvinfo DZ:test3.TSE]
if {$PV(VAL) != -2 || $PV(TIME) != "02/01/03 04:05:06.789000000"} {incr faults}
ioccmd {dbpf DZ:test3.PROC 1}
send "1. July 2003 04:05:06.789123 3.1415\n"
assure "01.07.2003 04:05:06.79 +0200\n";
checkTS DZ:test3 "07/01/03 04:05:06.789123000"
ioccmd {dbpf DZ:test4.PROC 1}
send "mon jan 2 04:05:06 2003 3.1415\n"
assure "Thu 02.01.2003 04:05:06.00 +0100\n";
checkTS DZ:test4 "01/02/03 04:05:06.000000000"
ioccmd {dbpf DZ:test5.PROC 1}
send "12 a\n"
assure "00\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "01 a\n"
assure "01\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "2 a\n"
assure "02\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "11 a\n"
assure "11\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "12 p\n"
assure "12\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "01 p\n"
assure "13\n";
ioccmd {dbpf DZ:test5.PROC 1}
send "11 p\n"
assure "23\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "am 12\n"
assure "00\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "Am 01\n"
assure "01\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "aM 2\n"
assure "02\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "AM 11\n"
assure "11\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "p 12\n"
assure "12\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "P 01\n"
assure "13\n";
ioccmd {dbpf DZ:test6.PROC 1}
send "PM 11\n"
assure "23\n";
ioccmd {dbpf DZ:test7.PROC 1}
send "1.2.2010 13:56:32 +0000\n"
assure "01.02.2010 12:56:32 +0100 1265032592.000000\n";
ioccmd {dbpf DZ:test7.PROC 1}
send "1.7.2010 13:56:32 +0000\n"
assure "01.07.2010 13:56:32 +0200 1277992592.000000\n";
finish