From 6bd46e0470ab31d7beaaa61f23ff23beeb157608 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Thu, 16 May 2013 08:47:16 +0000
Subject: [PATCH] *** empty log message ***

---
 streamApp/tests/testStrangesum | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 streamApp/tests/testStrangesum

diff --git a/streamApp/tests/testStrangesum b/streamApp/tests/testStrangesum
new file mode 100755
index 0000000..65203e1
--- /dev/null
+++ b/streamApp/tests/testStrangesum
@@ -0,0 +1,33 @@
+#!/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 (stringout, "DZ:test1")
+    {
+        field (DTYP, "stream")
+        field (OUT,  "@test.proto test1 device")
+    }
+}
+
+set protocol {
+    Terminator="\r\n";
+    test1 {
+        out ":%s%01<-hexsum8>";
+    }
+}
+
+set startup {
+}
+
+set debug 0
+
+startioc
+ioccmd {dbpf DZ:test1 "010304010001"}
+assure ":010304010001F6\r\n"
+                
+finish