From e6f7b6129565fd20ea1e80609592e516f63b7947 Mon Sep 17 00:00:00 2001
From: koennecke <koennecke>
Date: Wed, 11 Jun 2008 13:38:34 +0000
Subject: [PATCH] - Test new asynchronous code

---
 test/testini.tcl | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/test/testini.tcl b/test/testini.tcl
index 31c55643..27874023 100644
--- a/test/testini.tcl
+++ b/test/testini.tcl
@@ -1,4 +1,4 @@
->># --------------------------------------------------------------------------
+# --------------------------------------------------------------------------
 # Initialization script for testing SICS
 #
 # Started: Dr. Mark Koennecke, July 2006
@@ -452,6 +452,43 @@ hsetprop /sics/farm/schnegge checkstatus schneggestatus
 makesctdrive schnecke /sics/farm/schnegge farmser
 
 
+#---------- test http
+makesctcontroller amorhmsct sinqhttp amorhm data 60 spy 007
+#makesctcontroller amorhmsct sinqhttp localhost:8080 data 60 spy 007
+MakeSICSObj amorhm HttpTest
+#------------------
+proc statget {} {
+    sct send "admin/textstatus.egi"
+    return statrepl
+}
+#----------------- 
+proc statreply {} {
+    sct update [sct result]
+    sct utime readtime
+    return idle
+}
+#-----------------
+proc readcollapse {} {
+    sct send "admin/processhmdata.egi?bank=0&command=sum:2:0:200"
+    return colread
+}
+#-----------------
+proc colreply {} {
+    sct utime readtime
+    return idle
+}
+#-------------------------
+hfactory /sics/amorhm/status plain spy text
+hsetprop /sics/amorhm/status read statget
+hsetprop /sics/amorhm/status statrepl statreply
+amorhmsct poll /sics/amorhm/status 10
+
+hattach /sics/amorhm data intvarar collapse
+hsetprop /sics/amorhm/collapse read readcollapse
+hsetprop /sics/amorhm/collapse colread colreply
+amorhmsct poll /sics/amorhm/collapse 60
+
+
 #source sansdruck.tcl