simplify most commonly uses test commands

2018-06-19 14:41:25 +02:00
parent f462a35db3
commit f94e8bc746
32 changed files with 348 additions and 340 deletions
--- a/streamApp/tests/streamtestlib.tcl
+++ b/streamApp/tests/streamtestlib.tcl
@ -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