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

simplify most commonly uses test commands

Browse Source
This commit is contained in:
zimoch
2018-06-19 14:41:25 +02:00
parent f462a35db3
commit f94e8bc746
32 changed files with 348 additions and 340 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
streamApp/tests/streamtestlib.tcl
View File

@ -95,6 +95,14 @@ proc ioccmd {command} {
puts $ioc $command
}
proc process {record} {
ioccmd "dbpf $record.PROC 1"
}
proc put {record value} {
ioccmd "dbpf $record \"$value\""
}
proc send {string} {
global sock lastsent
set lastsent $string

16
streamApp/tests/test64Bit
View File

@ -71,24 +71,24 @@ set startup {
set debug 0
startioc
ioccmd {dbpf DZ:ao -1}
put DZ:ao -1
assure "ao -1.000 -1 -1.000 -1\n"
ioccmd {dbpf DZ:longout -1}
put DZ:longout -1
assure "longout -1 -1\n"
ioccmd {dbpf DZ:bo 1}
put DZ:bo 1
assure "bo 4294967295 ffffffff 11111111111111111111111111111111\n"
ioccmd {dbpf DZ:mbbo -1}
put DZ:mbbo -1
assure "mbbo 4294967295 ffffffff 11111111111111111111111111111111\n"
ioccmd {dbpf DZ:mbboDirect.B0 1}
put DZ:mbboDirect.B0 1
assure "mbboDirect 1 1 1\n"
#Writing to mbboDirect.VAL is not supported by EPICS
#ioccmd {dbpf DZ:mbboDirect -1}
#put DZ:mbboDirect -1
#assure "mbboDirect 65535 ffff 1111111111111111\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "ai?\n"
send "-1\n"
assure "ai -1\n"
ioccmd {dbpf DZ:longin.PROC 1}
process DZ:longin
assure "longin?\n"
send "-1\n"
assure "longin -1\n"

4
streamApp/tests/testBo
View File

@ -27,9 +27,9 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 0}
put DZ:test1 0
assure "0 \x00 OFF"
ioccmd {dbpf DZ:test1 1}
put DZ:test1 1
assure "1 \x01 ON"
finish

36
streamApp/tests/testCharset
View File

@ -46,61 +46,61 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "This is a test\n"
assure "This| is a test\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "Test123]bla\n"
assure "Test123|]bla\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "Test123456\n"
assure "Test12345|6\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "Test43210\n"
assure "Test4321|0\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "test-bla\n"
assure "test|-bla\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " Space first\n"
assure "| Space first\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "This is a test\n"
assure "This is a test|\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "Test]xx123bla\n"
assure "Test]xx|123bla\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "test-bla\n"
assure "test|-bla\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " Space first\n"
assure " Space first|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "this is a test\n"
assure "this is a test|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "test]xx123bla\n"
assure "test|]xx123bla\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "test-bla\n"
assure "test-bla|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " Space first\n"
assure " |Space first\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "this is a test\n"
assure "this is a test|\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "test]xx123bla\n"
assure "test|]xx123bla\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "test-bla\n"
assure "test|-bla\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " Space first\n"
assure " |Space first\n"

2
streamApp/tests/testChecksum
View File

@ -242,7 +242,7 @@ set startup {
set debug 0
startioc
ioccmd {dbpf DZ:test1 "123456789"}
put DZ:test1 "123456789"
assure "sum 123456789 \xDD\n"
send "sum 123456789 \xDD\n"
assure "sum8 123456789 \xDD\n"

6
streamApp/tests/testCompare
View File

@ -27,15 +27,15 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 3.14}
put DZ:test1 3.14
assure "set 3.14\n"
send "ack 3.14 X\n"
assure "OK\n"
ioccmd {dbpf DZ:test1 0}
put DZ:test1 0
assure "set 0.00\n"
send "ack 0.00 X\n"
assure "OK\n"
ioccmd {dbpf DZ:test1 1}
put DZ:test1 1
assure "set 1.00\n"
send "ack 1.0 X\n"
assure "mismatch\n"

8
streamApp/tests/testDefaultInput
View File

@ -32,22 +32,22 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "integer\n";
send "n: -12 xx\n";
assure "n = -12\n";
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "integer\n";
send "n: xx\n";
assure "n = 0\n";
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
assure "double\n";
send "n: 3.1415 xx\n";
assure "n = 3.1415\n";
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
assure "double\n";
send "n: xx\n";
assure "n = 0.0000\n";

46
streamApp/tests/testDouble
View File

@ -46,76 +46,76 @@ startioc
set inf [format %f inf]
if [catch {set nan [format %f nan]}] {set nan nan}
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "3.14159265359\n"
assure "|3.141593| 3.141593|3.14| 3.14159 | 3.141593|+3.141593|3.1 |3.141593|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-3.14159265359\n"
assure "|-3.141593| -3.141593|-3.14|-3.14159 |-3.141593|-3.141593|-3.1 |-3.141593|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "0\n"
assure "|0.000000| 0.000000|0.00| 0.00000 | 0.000000|+0.000000|0.0 |0.000000|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "NAN\n"
assure "|$nan| $nan|$nan| $nan | $nan|+$nan|$nan |$nan|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-Inf\n"
assure "|-$inf| -$inf|-$inf|-$inf |-$inf|-$inf|-$inf |-$inf|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "1e6\n"
assure "|1000000.000000|1000000.000000|1000000.00| 1000000.00000| 1000000.000000|+1000000.000000|1000000.0|1000000.000000|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " - 3.14159265359\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "bla\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " bla\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-bla\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "3.14159265359\n"
assure "|3.1415|9265359|\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 3.14159265359\n"
assure "|3.1415|9265359|\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 10blabla\n"
assure "|10|blabla|\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 1\n"
assure "|1||\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "3.14159265359\n"
assure "|3.1415|9265359|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 3.14159265359\n"
assure "|3|.14159265359|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 10blabla\n"
assure "|10|blabla|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 1\n"
assure "|1||\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "3.14159265359\n"
assure "3.141593\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " -3.14159265359\n"
assure "-3.141593\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " - 3.14159265359\n"
assure "-3.141593\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " + 3.14159265359\n"
assure "3.141593\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " +- 3.14159265359\n"
assure "mismatch\n"

44
streamApp/tests/testEnum
View File

@ -63,62 +63,62 @@ set debug 0
startioc
ioccmd {dbpf DZ:testout 0}
put DZ:testout 0
assure "zerobla\n"
ioccmd {dbpf DZ:testout 1}
put DZ:testout 1
assure "onebla\n"
ioccmd {dbpf DZ:testout 2}
put DZ:testout 2
assure "twobla\n"
ioccmd {dbpf DZ:testout1 0}
put DZ:testout1 0
assure "zerobla\n"
ioccmd {dbpf DZ:testout1 1}
put DZ:testout1 1
assure "onebla\n"
ioccmd {dbpf DZ:testout1 2}
put DZ:testout1 2
assure "twobla\n"
ioccmd {dbpf DZ:testout2 -1}
put DZ:testout2 -1
assure "zerobla\n"
ioccmd {dbpf DZ:testout2 0}
put DZ:testout2 0
assure "onebla\n"
ioccmd {dbpf DZ:testout2 5}
put DZ:testout2 5
assure "twobla\n"
ioccmd {dbpf DZ:testout2 17}
put DZ:testout2 17
assure "defaultbla\n"
ioccmd {dbpf DZ:testin.PROC 1}
process DZ:testin
send "zerobla\n"
assure "0\n"
ioccmd {dbpf DZ:testin.PROC 1}
process DZ:testin
send "onebla\n"
assure "1\n"
ioccmd {dbpf DZ:testin.PROC 1}
process DZ:testin
send "twobla\n"
assure "2\n"
ioccmd {dbpf DZ:testin1.PROC 1}
process DZ:testin1
send "zerobla\n"
assure "0\n"
ioccmd {dbpf DZ:testin1.PROC 1}
process DZ:testin1
send "onebla\n"
assure "1\n"
ioccmd {dbpf DZ:testin1.PROC 1}
process DZ:testin1
send "twobla\n"
assure "2\n"
ioccmd {dbpf DZ:testin2.PROC 1}
process DZ:testin2
send "zerobla\n"
assure "-1\n"
ioccmd {dbpf DZ:testin2.PROC 1}
process DZ:testin2
send "onebla\n"
assure "0\n"
ioccmd {dbpf DZ:testin2.PROC 1}
process DZ:testin2
send "twobla\n"
assure "5\n"
ioccmd {dbpf DZ:testin3.PROC 1}
process DZ:testin3
send "\000bla\n"
assure "0\n"
ioccmd {dbpf DZ:testin3.PROC 1}
process DZ:testin3
send "\rbla\n"
assure "1\n"
ioccmd {dbpf DZ:testin3.PROC 1}
process DZ:testin3
send "bla\n"
assure "2\n"

24
streamApp/tests/testFormatm
View File

@ -32,35 +32,35 @@ set debug 0
startioc
ioccmd {dbpf DZ:ao 0}
put DZ:ao 0
assure "'000000+00' '0000+00' '+0000+00' ' 0000+00' '+0000+00' ' 0000+00' '0000+00 '\n"
ioccmd {dbpf DZ:ao 1}
put DZ:ao 1
assure "'100000-05' '1000-03' '+1000-03' ' 1000-03' '+1000-03' ' 1000-03' '1000-03 '\n"
ioccmd {dbpf DZ:ao 1000}
put DZ:ao 1000
assure "'100000-02' '1000+00' '+1000+00' ' 1000+00' '+1000+00' ' 1000+00' '1000+00 '\n"
ioccmd {dbpf DZ:ao 1000000}
put DZ:ao 1000000
assure "'100000+01' '1000+03' '+1000+03' ' 1000+03' '+1000+03' ' 1000+03' '1000+03 '\n"
ioccmd {dbpf DZ:ao -1}
put DZ:ao -1
assure "'-100000-05' '-1000-03' '-1000-03' '-1000-03' '-1000-03' ' -1000-03' '-1000-03 '\n"
ioccmd {dbpf DZ:ao 12345}
put DZ:ao 12345
assure "'123450-01' '1235+01' '+1235+01' ' 1235+01' '+1235+01' ' 1235+01' '1235+01 '\n"
ioccmd {dbpf DZ:ao -1.2345e-15}
put DZ:ao -1.2345e-15
assure "'-123450-20' '-1235-18' '-1235-18' '-1235-18' '-1235-18' ' -1235-18' '-1235-18 '\n"
ioccmd {dbpf DZ:ao 1e-100}
put DZ:ao 1e-100
assure "'100000-105' '1000-103' '+1000-103' ' 1000-103' '+1000-103' ' 1000-103' '1000-103 '\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "+1234+56\n"
assure "1.2340e+59\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "-1234-56\n"
assure "-1.2340e-53\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "-12340000-60\n"
assure "-1.2340e-53\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "+00000000+0\n"
assure "0.0000e+00\n"

30
streamApp/tests/testFormats
View File

@ -58,51 +58,51 @@ startioc
# This is normal. E.g. -1 HAS a different number of 1 bits.
# Specify the width field in the format if this is a problem.
ioccmd {dbpf DZ:percent 1}
put DZ:percent 1
assure "%%%%%%%\n"
ioccmd {dbpf DZ:ao 0}
put DZ:ao 0
assure "0.00 0.00e+00 0.00E+00 0 0 32767 32767 32767 77777 7fff 0.00 0.00e+00 0.00E+00 0.0 0.0 32767 32767 32767 077777 0x7fff\n"
ioccmd {dbpf DZ:ao 10}
put DZ:ao 10
assure "10.00 1.00e+01 1.00E+01 10 10 65535 65535 65535 177777 ffff 10.00 1.00e+01 1.00E+01 10. 10. 65535 65535 65535 0177777 0xffff\n"
ioccmd {dbpf DZ:ao -10}
put DZ:ao -10
assure "-10.00 -1.00e+01 -1.00E+01 -10 -10 0 0 0 0 0000 -10.00 -1.00e+01 -1.00E+01 -10. -10. 0 0 0 0 000000\n"
ioccmd {dbpf DZ:ao 1e-6}
put DZ:ao 1e-6
assure "0.00 1.00e-06 1.00E-06 1e-06 1E-06 32768 32768 32768 100000 8000 0.00 1.00e-06 1.00E-06 1.0e-06 1.0E-06 32768 32768 32768 0100000 0x8000\n"
ioccmd {dbpf DZ:lo 0}
put DZ:lo 0
assure "0 0 000000 0 000000 0 000000 000000 . ......\n"
ioccmd {dbpf DZ:lo 12345}
put DZ:lo 12345
assure "12345 12345 012345 3039 003039 11000000111001 11000000111001 111001 !!......!!!..! !!......!!!..!\n"
ioccmd {dbpf DZ:lo 2147483647}
put DZ:lo 2147483647
assure "2147483647 2147483647 2147483647 7fffffff FFFFFF 1111111111111111111111111111111 1111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
ioccmd {dbpf DZ:lo -1}
put DZ:lo -1
if {$tcl_platform(machine) == "x86_64"} {
assure "-1 -1 -00001 ffffffffffffffff FFFFFF 1111111111111111111111111111111111111111111111111111111111111111 1111111111111111111111111111111111111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
} else {
assure "-1 -1 -00001 ffffffff FFFFFF 11111111111111111111111111111111 11111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
}
ioccmd {dbpf DZ:lo -1234}
put DZ:lo -1234
if {$tcl_platform(machine) == "x86_64"} {
assure "-1234 -1234 -01234 fffffffffffffb2e FFFB2E 1111111111111111111111111111111111111111111111111111101100101110 1111111111111111111111111111111111111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n"
} else {
assure "-1234 -1234 -01234 fffffb2e FFFB2E 11111111111111111111101100101110 11111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n"
}
ioccmd {dbpf DZ:lo 255}
put DZ:lo 255
assure "255 255 000255 ff 0000FF 11111111 11111111 111111 !!!!!!!! !!!!!!!!\n"
ioccmd {dbpf DZ:lo 65535}
put DZ:lo 65535
assure "65535 65535 065535 ffff 00FFFF 1111111111111111 1111111111111111 111111 !!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!\n"
ioccmd {dbpf DZ:bcd 1020304}
put DZ:bcd 1020304
if {$tcl_platform(machine) == "x86_64"} {
assure "\0\0\0\0\1\2\3\4 \0\0\0\0\1\2\3\4 \4 \3\4 \2\3\4 \1\2\3\4 \4\3\2\1\0\0\0\0 \4\3\2\1\0\0\0\0 \4 \4\3 \4\3\2\n"
} else {
assure "\1\2\3\4 \0\0\1\2\3\4 \4 \3\4 \2\3\4 \1\2\3\4 \4\3\2\1 \4\3\2\1\0\0 \4 \4\3 \4\3\2\n"
}
ioccmd {dbpf DZ:sbcd 1020304}
put DZ:sbcd 1020304
if {$tcl_platform(machine) == "x86_64"} {
assure "\0\0\0\0\0\1\2\3\4 \0\0\0\0\0\1\2\3\4 \0\4 \3\4 \0\2\3\4 \0\1\2\3\4 \4\3\2\1\0\0\0\0\0 \4\3\2\1\0\0\0\0\0 \4\0 \4\3 \4\3\2\0\n"
} else {
assure "\0\1\2\3\4 \0\0\0\1\2\3\4 \0\4 \3\4 \0\2\3\4 \0\1\2\3\4 \4\3\2\1\0 \4\3\2\1\0\0\0 \4\0 \4\3 \4\3\2\0\n"
}
ioccmd {dbpf DZ:sbcd -1020304}
put DZ:sbcd -1020304
if {$tcl_platform(machine) == "x86_64"} {
assure "\xf0\0\0\0\0\1\2\3\4 \xf0\0\0\0\0\1\2\3\4 \xf0\4 \xf3\4 \xf0\2\3\4 \xf0\1\2\3\4 \4\3\2\1\0\0\0\0\xf0 \4\3\2\1\0\0\0\0\xf0 \4\xf0 \4\xf3 \4\3\2\xf0\n"
} else {

6
streamApp/tests/testHalfInputTerminator
View File

@ -26,17 +26,17 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\r\n"
send "abc\r\n"
assure "abc\r\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\r\n"
send "x\r\n"
assure "x\r\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\r\n"
send "\r\n"
assure "\r\n"

240
streamApp/tests/testInteger
View File

@ -90,373 +90,373 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "-0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "-0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " 0x12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "0xffffffff\n"
assure "ffffffff\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "-12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " 012345\n"
assure "12345\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "-0x12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "-0xffffffff\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "-12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send " 12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send " -12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send " 0x12345\n"
assure "18\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send " 012345\n"
assure "83\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "-0x12345\n"
assure "-1\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "0xffffffff\n"
assure "255\n"
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "-0xffffffff\n"
assure "-15\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "12345\n"
assure "1234\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "-12345\n"
assure "-123\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send " 12345\n"
assure "1\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send " -12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send " 0x12345\n"
assure "1\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send " 012345\n"
assure "10\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "-0x12345\n"
assure "-1\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "0xffffffff\n"
assure "255\n"
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "-0xffffffff\n"
assure "-15\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "-12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send " 12345\n"
assure "12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send " -12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "- 12345\n"
assure "-12345\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test8.PROC 1}
process DZ:test8
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "-12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send " 12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send " -12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send " 0x12345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send " 012345\n"
assure "74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "-0x12345\n"
assure "-74565\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "0xffffffff\n"
assure "-1\n"
ioccmd {dbpf DZ:test9.PROC 1}
process DZ:test9
send "-0xffffffff\n"
assure "1\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "12345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "-12345\n"
assure "-5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send " 12345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send " -12345\n"
assure "-5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "- 12345\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "\n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send " \n"
assure "mismatch\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send " 0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send " 012345\n"
assure "5349\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "-0x12345\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "0xffffffff\n"
assure "0\n"
ioccmd {dbpf DZ:test10.PROC 1}
process DZ:test10
send "-0xffffffff\n"
assure "0\n"

2
streamApp/tests/testIoIntrPollTimeout
View File

@ -73,7 +73,7 @@ for {set i 1} {$i <= $rep} {incr i} {
send "with number $i\n"
after 100
}
ioccmd {dbpf "DZ:printresult.PROC" 1}
process DZ:printresult
assure "Last line received: $rep\n"
assure "Line count: $rep\n"
assure "Error count: 0\n"

6
streamApp/tests/testLongInputTerminator
View File

@ -27,17 +27,17 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\n"
send "abc\r\r\r"
assure "abc\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\n"
send "klm\rxyz\r\r\r"
assure "klm\rxyz\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "Give input\n"
send "123\r\rxyz\r\r\r"
assure "123\r\rxyz\n"

4
streamApp/tests/testLongUnsolicitedInput
View File

@ -65,9 +65,9 @@ for {set i 1} {$i <= $rep} {incr i} {
}
send $output
after 2000
ioccmd {dbpf "DZ:stringout.PROC" 1}
process DZ:stringout
assure "This is line $rep.\n"
ioccmd {dbpf "DZ:countout.PROC" 1}
process DZ:countout
assure "$rep\n"
finish

2
streamApp/tests/testMultiLineFormatString
View File

@ -447,7 +447,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:VP3.PROC 1}
process DZ:VP3
assure "Q"
send "Q:V3=0,V5=0,V+12=0,V12=0,T1=38,T2=40,T3=43,T4=45,F1=1350,F2=1361,F3=1373,F4=1384,F5=1396,F6=1407,F7=1419,F8=1430,F9=1442,PS1=0,PS2=0,POH=23.5,MAXTMP=45,PS1=0,PS2=0,MSG=0,SW=1,SN=8765,UN=APEX1,IP=128.12\r\n"
assure "0\n"

4
streamApp/tests/testOutTerminators
View File

@ -32,9 +32,9 @@ set startup {
set debug 0
startioc
ioccmd {dbpf DZ:test1 "string 1"}
put DZ:test1 "string 1"
assure "string 1A\n"
ioccmd {dbpf DZ:test2 "string 2"}
put DZ:test2 "string 2"
assure "string 2S\r\n"
finish

4
streamApp/tests/testParallelAccess
View File

@ -32,8 +32,8 @@ set debug 0
startioc
ioccmd {dbpf DZ:slow 1}
ioccmd {dbpf DZ:fast 1}
put DZ:slow 1
put DZ:fast 1
assure "slow start\n"
assure "slow finished\n"
assure "fast\n"

2
streamApp/tests/testPercent
View File

@ -27,7 +27,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 1}
put DZ:test1 1
assure "%\0331\033\033%\n"
finish

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

@ -33,7 +33,7 @@ set size 1
set timeout 600000
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "$message\n"
assure "$size\n"
@ -42,7 +42,7 @@ for {set log 1} {$log <= 21} {incr log} {
set output "$message\n"
set starttime [clock clicks]
send $output
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
assure "$size\n"
set duration [expr [clock clicks] - $starttime]
set performance($size) [expr $duration*1.0/$size]

2
streamApp/tests/testQuotes
View File

@ -31,7 +31,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 "X"}
put DZ:test1 "X"
assure "Escaped \"double\" quotes\n"
assure "Escaped 'single' quotes\n"
assure "Single 'quotes' in double quotes\n"

28
streamApp/tests/testRaw
View File

@ -60,7 +60,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 0}
put DZ:test1 0
assure "\x00\n"
assure "\x00\n"
assure "\x00\x00\n"
@ -92,7 +92,7 @@ assure "\x00\x00\x00\n"
assure "\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test1 1}
put DZ:test1 1
assure "\x01\n"
assure "\x01\n"
assure "\x00\x01\n"
@ -124,7 +124,7 @@ assure "\x01\x00\x00\n"
assure "\x01\x00\x00\x00\n"
assure "\x01\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test1 -1}
put DZ:test1 -1
assure "\xff\n"
assure "\xff\n"
assure "\xff\xff\n"
@ -156,7 +156,7 @@ assure "\xff\x00\x00\n"
assure "\xff\x00\x00\x00\n"
assure "\xff\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test1 269554195}
put DZ:test1 269554195
assure "\x13\n"
assure "\x13\n"
assure "\x12\x13\n"
@ -188,7 +188,7 @@ assure "\x13\x00\x00\n"
assure "\x13\x00\x00\x00\n"
assure "\x13\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test1 -559038737}
put DZ:test1 -559038737
assure "\xef\n"
assure "\xef\n"
assure "\xbe\xef\n"
@ -220,33 +220,33 @@ assure "\xef\x00\x00\n"
assure "\xef\x00\x00\x00\n"
assure "\xef\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "\x01\x02\x03\x04"
assure "01020304\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "\xde\xad\xbe\xef"
assure "deadbeef\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "\x00\x00\x00\x00"
assure "00000000\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "\x04\x03\x02\x01"
assure "00020304\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "\xde\xad\xbe\xef"
assure "ffbeadde\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "\x00\x00\x00\x00"
assure "00000000\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "\x04\x03\x02\x01"
assure "00020304\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "\xde\xad\xbe\xef"
assure "00beadde\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "\x00\x00\x00\x00"
assure "00000000\n"

8
streamApp/tests/testRawFloat
View File

@ -26,7 +26,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 "0"}
put DZ:test1 "0"
assure "\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\n"
@ -34,7 +34,7 @@ assure "\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\x00\x00\x00\x00\n"
ioccmd {dbpf DZ:test1 "1"}
put DZ:test1 "1"
assure "\x3f\x80\x00\x00\n"
assure "\x00\x00\x80\x3f\n"
assure "\x3f\x80\x00\x00\n"
@ -42,7 +42,7 @@ assure "\x00\x00\x80\x3f\n"
assure "\x3f\xf0\x00\x00\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\x00\x00\xf0\x3f\n"
ioccmd {dbpf DZ:test1 "-1"}
put DZ:test1 "-1"
assure "\xbf\x80\x00\x00\n"
assure "\x00\x00\x80\xbf\n"
assure "\xbf\x80\x00\x00\n"
@ -50,7 +50,7 @@ assure "\x00\x00\x80\xbf\n"
assure "\xbf\xf0\x00\x00\x00\x00\x00\x00\n"
assure "\x00\x00\x00\x00\x00\x00\xf0\xbf\n"
ioccmd {dbpf DZ:test1 "3.1415"}
put DZ:test1 "3.1415"
assure "\x40\x49\x0e\x56\n"
assure "\x56\x0e\x49\x40\n"
assure "\x40\x49\x0e\x56\n"

20
streamApp/tests/testSeverityAndStatus
View File

@ -33,42 +33,42 @@ set debug 0
startioc
# reply timeout
ioccmd {dbpf DZ:readTimeout.PROC 1}
process DZ:readTimeout
assure "Give me input\n"
after 1100
ioccmd {dbpf DZ:echo.PROC 1}
process DZ:echo
ioccmd {dbpr DZ:echo 1}
assure "Text:'' SEVR=3 STAT=10\n"
# read timeout
ioccmd {dbpf DZ:readTimeout.PROC 1}
process DZ:readTimeout
assure "Give me input\n"
send "Trulala"
after 200
ioccmd {dbpf DZ:echo.PROC 1}
process DZ:echo
assure "Text:'Trulala' SEVR=3 STAT=1\n"
# reply timeout again, old input stays
ioccmd {dbpf DZ:readTimeout.PROC 1}
process DZ:readTimeout
assure "Give me input\n"
after 1100
ioccmd {dbpf DZ:echo.PROC 1}
process DZ:echo
assure "Text:'Trulala' SEVR=3 STAT=10\n"
# mismatch, partially parsed
ioccmd {dbpf DZ:readTimeout.PROC 1}
process DZ:readTimeout
assure "Give me input\n"
send "bla extra\n"
after 200
ioccmd {dbpf DZ:echo.PROC 1}
process DZ:echo
assure "Text:'bla' SEVR=3 STAT=12\n"
# success
ioccmd {dbpf DZ:readTimeout.PROC 1}
process DZ:readTimeout
assure "Give me input\n"
send "Input\n"
after 200
ioccmd {dbpf DZ:echo.PROC 1}
process DZ:echo
assure "Text:'Input' SEVR=0 STAT=0\n"

2
streamApp/tests/testSkeleton
View File

@ -26,7 +26,7 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1 "string 1"}
put DZ:test1 "string 1"
assure "string 1\n"
finish

8
streamApp/tests/testSpyOnLongInput
View File

@ -64,18 +64,18 @@ set rep 500
startioc
ioccmd {dbpf "DZ:request.PROC" 1}
process DZ:request
assure "Give input\n"
for {set i 1} {$i <= $rep} {incr i} {
append output "This is line $i.\n"
}
send $output
after 2000
ioccmd {dbpf "DZ:echo.PROC" 1}
process DZ:echo
assure "This is line 253.\n"
ioccmd {dbpf "DZ:stringout.PROC" 1}
process DZ:stringout
assure "This is line $rep.\n"
ioccmd {dbpf "DZ:countout.PROC" 1}
process DZ:countout
assure "$rep\n"
finish

2
streamApp/tests/testStrangesum
View File

@ -27,7 +27,7 @@ set startup {
set debug 0
startioc
ioccmd {dbpf DZ:test1 "010304010001"}
put DZ:test1 "010304010001"
assure ":010304010001F6\r\n"
finish

42
streamApp/tests/testString
View File

@ -52,71 +52,71 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "foobar\n"
assure "foobar|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " foobar \n"
assure "foobar| \n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " foo bar \n"
assure "foo| bar \n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send " \n"
assure "|\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "ThisIsAVeryLongInputStringThatExceedsFouryCharacters right?\n"
assure "ThisIsAVeryLongInputStringThatExceedsFo| right?\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "foobar\n"
assure "foobar|\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " foobar \n"
assure " foobar| \n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " foo bar \n"
assure " foo| bar \n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send " \n"
assure " |\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "foobar\n"
assure "foobar|\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " foobar \n"
assure "foobar |\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " foo bar \n"
assure "foo bar |\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " \n"
assure "|\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "foobar\n"
assure "foobar|\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " foobar \n"
assure " foobar |\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " foo bar \n"
assure " foo bar |\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " \n"
assure " |\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "foobar\n"
assure "foobar|\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " foobar \n"
assure " foobar |\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " foo bar \n"
assure " foo bar |\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " \n"
assure " |\n"

44
streamApp/tests/testTimestamp
View File

@ -74,79 +74,79 @@ proc checkTS {pv timestamp} {
startioc
ioccmd {dbpf DZ:test1 1044068706.789}
put DZ:test1 1044068706.789
assure "01.02.2003 04:05:06.79 +0100\n"
ioccmd {dbpf DZ:test1 1057025106.789}
put DZ:test1 1057025106.789
assure "01.07.2003 04:05:06.79 +0200\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "2003-02-01 04:05:06\n"
assure "1044068706 2003-02-01 04:05:06\n";
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
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"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
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}
process DZ:test4
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}
process DZ:test5
send "12 a\n"
assure "00\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "01 a\n"
assure "01\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "2 a\n"
assure "02\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "11 a\n"
assure "11\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "12 p\n"
assure "12\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "01 p\n"
assure "13\n";
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "11 p\n"
assure "23\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "am 12\n"
assure "00\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "Am 01\n"
assure "01\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "aM 2\n"
assure "02\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "AM 11\n"
assure "11\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "p 12\n"
assure "12\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "P 01\n"
assure "13\n";
ioccmd {dbpf DZ:test6.PROC 1}
process DZ:test6
send "PM 11\n"
assure "23\n";
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "1.2.2010 12:56:32 +0000\n"
assure "01.02.2010 13:56:32 +0100 1265028992.000000\n";
ioccmd {dbpf DZ:test7.PROC 1}
process DZ:test7
send "1.7.2010 12:56:32 +0000\n"
assure "01.07.2010 14:56:32 +0200 1277988992.000000\n";
finish

4
streamApp/tests/testWaage
View File

@ -43,12 +43,12 @@ set debug 0
startioc
ioccmd {dbpf DZ:sign.PROC 1}
process DZ:sign
assure "w\n"
send " - 15.20 Kg\n"
assure "-15.20\n"
ioccmd {dbpf DZ:sign.PROC 1}
process DZ:sign
assure "w\n"
send " 15.00 Kg\n"
assure "15.00\n"

30
streamApp/tests/testWaveform
View File

@ -70,53 +70,53 @@ set debug 0
startioc
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "text 1.0,2.0,3.0 end\n"
assure "3 elements: 1.0,2.0,3.0\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "text 3, 2, 1 end\n"
assure "3 elements: 3.0,2.0,1.0\n"
ioccmd {dbpf DZ:test1.PROC 1}
process DZ:test1
send "text 7 end\n"
assure "1 elements: 7.0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "text 1.0,2.0,3.0 end\n"
assure "3 elements: 1.0,2.0,3.0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "text 3, 2, 1 end\n"
assure "3 elements: 3.0,2.0,1.0\n"
ioccmd {dbpf DZ:test2.PROC 1}
process DZ:test2
send "text 7 end\n"
assure "1 elements: 7.0\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "1 2 3\n"
assure "3 elements: 1 2 3\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send " 3 2 1 \n"
assure "3 elements: 3 2 1\n"
ioccmd {dbpf DZ:test3.PROC 1}
process DZ:test3
send "12345\n"
assure "2 elements: 123 45\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "1 2 3\n"
assure "3 elements: 1 2 3\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send " 3 2 1 \n"
assure "3 elements: 3 2 1\n"
ioccmd {dbpf DZ:test4.PROC 1}
process DZ:test4
send "12345\n"
assure "2 elements: 123 45\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send "1...2...3\n"
assure "1 elements: 1...2...3\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " 3 ... 2 ... 1\n"
assure "3 elements: 3 ... 2 ... 1\n"
ioccmd {dbpf DZ:test5.PROC 1}
process DZ:test5
send " 7 \n"
assure "1 elements: 7\n"