linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Had temperature updated during data file writing

Browse Source
This commit is contained in:
koennecke
2008-07-14 07:24:30 +00:00
parent 39f76bccb7
commit d4608d814e
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
test/testini.tcl
View File

@ -327,6 +327,9 @@ hsetprop /sics/farm/schneggecon readCommand schget
hsetprop /sics/farm/schneggecon replyCommand schreply hsetprop /sics/farm/schneggecon replyCommand schreply
} }
set farm 0
if {$farm == 1} {
#-------------- Test new async protocol controller #-------------- Test new async protocol controller
makesctcontroller farmser std localhost:7070 makesctcontroller farmser std localhost:7070
MakeSICSObj farm TestObj MakeSICSObj farm TestObj
@ -448,16 +451,19 @@ proc schneggestatus {} {
#--------------------------------------------- #---------------------------------------------
hsetprop /sics/farm/schnegge checklimits schneggechecklimits hsetprop /sics/farm/schnegge checklimits schneggechecklimits
hsetprop /sics/farm/schnegge checkstatus schneggestatus 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 #---------- test http
set httptest 0 set httptest 1
if {$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 #makesctcontroller amorhmsct sinqhttp localhost:8080 data 60 spy 007
MakeSICSObj amorhm HttpTest MakeSICSObj amorhm HttpTest
amorhmsct debug -1
#------------------ #------------------
proc statget {} { proc statget {} {
sct send "admin/textstatus.egi" sct send "admin/textstatus.egi"
@ -471,12 +477,13 @@ proc statreply {} {
} }
#----------------- #-----------------
proc readcollapse {} { 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 return colread
} }
#----------------- #-----------------
proc colreply {} { proc colreply {} {
sct utime readtime sct utime readtime
set data [sct result]
return idle return idle
} }
#------------------------- #-------------------------
@ -488,7 +495,7 @@ amorhmsct poll /sics/amorhm/status 10
hattach /sics/amorhm data intvarar collapse hattach /sics/amorhm data intvarar collapse
hsetprop /sics/amorhm/collapse read readcollapse hsetprop /sics/amorhm/collapse read readcollapse
hsetprop /sics/amorhm/collapse colread colreply hsetprop /sics/amorhm/collapse colread colreply
amorhmsct poll /sics/amorhm/collapse 60 amorhmsct poll /sics/amorhm/collapse 20
} }