From d4608d814ec22f071391bcf593d9f6189dade993 Mon Sep 17 00:00:00 2001
From: koennecke <koennecke>
Date: Mon, 14 Jul 2008 07:24:30 +0000
Subject: [PATCH] - Had temperature updated during data file writing

---
 test/testini.tcl | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/test/testini.tcl b/test/testini.tcl
index b9c782be..56c567c9 100644
--- a/test/testini.tcl
+++ b/test/testini.tcl
@@ -327,6 +327,9 @@ hsetprop /sics/farm/schneggecon readCommand   schget
 hsetprop /sics/farm/schneggecon replyCommand  schreply
 }
 
+set farm 0
+
+if {$farm == 1} {
 #-------------- Test new async protocol controller
 makesctcontroller farmser std localhost:7070
 MakeSICSObj farm TestObj
@@ -448,16 +451,19 @@ proc schneggestatus {} {
 #---------------------------------------------
 hsetprop /sics/farm/schnegge checklimits schneggechecklimits
 hsetprop /sics/farm/schnegge checkstatus schneggestatus
-makesctdrive schnecke /sics/farm/schnegge farmser
+#makesctdrive schnecke /sics/farm/schnegge farmser
+makesctdriveobj schnecke /sics/farm/schnegge DriveAdapter farmser
 
+}
 
 #---------- test http
-set httptest 0
+set httptest 1
 
 if {$httptest == 1} {
-makesctcontroller amorhmsct sinqhttp amorhm data 60 spy 007
+makesctcontroller amorhmsct sinqhttp amorhm data 180 spy 007
 #makesctcontroller amorhmsct sinqhttp localhost:8080 data 60 spy 007
 MakeSICSObj amorhm HttpTest
+amorhmsct debug -1
 #------------------
 proc statget {} {
     sct send "admin/textstatus.egi"
@@ -471,12 +477,13 @@ proc statreply {} {
 }
 #-----------------
 proc readcollapse {} {
-    sct send "admin/processhmdata.egi?bank=0&command=sum:2:0:200"
+    sct send "admin/processhmdata.egi?bank=0&command=sum:2:0:400"
     return colread
 }
 #-----------------
 proc colreply {} {
     sct utime readtime
+    set data [sct result]
     return idle
 }
 #-------------------------
@@ -488,7 +495,7 @@ 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
+amorhmsct poll /sics/amorhm/collapse 20
 
 }