- Test new asynchronous code

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