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

455
streamApp/tests/testInteger Executable file
View File

@ -0,0 +1,455 @@
#!/usr/bin/env tclsh
source streamtestlib.tcl
# Define records, protocol and startup (text goes to files)
# The asynPort "device" is connected to a network TCP socket
# Talk to the socket with send/receive/assure
# Send commands to the ioc shell with ioccmd
set records {
record (ai, "DZ:test1")
{
field (DTYP, "stream")
field (INP, "@test.proto test1 device")
}
record (ai, "DZ:test2")
{
field (DTYP, "stream")
field (INP, "@test.proto test2 device")
}
record (ai, "DZ:test3")
{
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")
}
record (ai, "DZ:test8")
{
field (DTYP, "stream")
field (INP, "@test.proto test8 device")
}
record (ai, "DZ:test9")
{
field (DTYP, "stream")
field (INP, "@test.proto test9 device")
}
record (ai, "DZ:test10")
{
field (DTYP, "stream")
field (INP, "@test.proto test10 device")
}
}
set protocol {
Terminator = LF;
extraInput=ignore;
@mismatch {out "mismatch";}
test1 {in "%i"; out "%i"; }
test2 {in "%d"; out "%d"; }
test3 {in "%u"; out "%u"; }
test4 {in "%x"; out "%x"; }
test5 {in "%o"; out "%o"; }
test6 {in "%4i"; out "%i"; }
test7 {in "% 4i"; out "%i"; }
test8 {in "%#i"; out "%i"; }
test9 {in "%-x"; out "%i"; }
test10 {in "%-o"; out "%i"; }
}
set startup {
}
set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test1.PROC 1}
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test1.PROC 1}
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "-0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
send "-0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send " 0x12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "0xffffffff\n"
assure "ffffffff\n"
ioccmd {dbpf DZ:test4.PROC 1}
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test5.PROC 1}
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test5.PROC 1}
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "-12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test6.PROC 1}
send " 12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test6.PROC 1}
send " -12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
send " 0x12345\n"
assure "18\n"
ioccmd {dbpf DZ:test6.PROC 1}
send " 012345\n"
assure "83\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "-0x12345\n"
assure "-1\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "0xffffffff\n"
assure "255\n"
ioccmd {dbpf DZ:test6.PROC 1}
send "-0xffffffff\n"
assure "-15\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "-12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test7.PROC 1}
send " 12345\n"
assure "1\n"
ioccmd {dbpf DZ:test7.PROC 1}
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
send " 0x12345\n"
assure "1\n"
ioccmd {dbpf DZ:test7.PROC 1}
send " 012345\n"
assure "10\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "-0x12345\n"
assure "-1\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "0xffffffff\n"
assure "255\n"
ioccmd {dbpf DZ:test7.PROC 1}
send "-0xffffffff\n"
assure "-15\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "- 12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test8.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test8.PROC 1}
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test8.PROC 1}
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test8.PROC 1}
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "-12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send " 12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send " -12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send " 012345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test9.PROC 1}
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "12345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "-12345\n"
assure "-5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
send " 12345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
send " -12345\n"
assure "-5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "-0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
send "-0xffffffff\n"
assure "0\n"
finish