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

- Tests for scriptcontext

Browse Source
This commit is contained in:
koennecke
2008-06-18 14:11:15 +00:00
parent b0a1f0b244
commit 8f50089f7c
1 changed files with 26 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
test/testini.tcl
View File

@ -344,10 +344,7 @@ proc farmparread {} {
} }
set data [string range $rply 3 end] set data [string range $rply 3 end]
set node [sct] set node [sct]
# hupdate $node $data
# hdelprop $node geterror
sct update $data sct update $data
sct utime readtime
return idle return idle
} }
#-------------------------- #--------------------------
@ -370,7 +367,6 @@ proc farmsetreply {} {
if {[string first ERR $rply] >= 0} { if {[string first ERR $rply] >= 0} {
sct print $rply sct print $rply
} }
sct utime settime
return idle return idle
} }
#-------------------------- #--------------------------
@ -425,25 +421,28 @@ proc schneggechecklimits {} {
} }
#----------------------------- #-----------------------------
proc schneggestatus {} { proc schneggestatus {} {
set runtime [SICSValue "hgetprop /sics/farm/schneggerunning readtime"] farmser queue /sics/farm/schneggerunning progress read
set status [catch {SICSValue "hgetprop /sics/farm/schnegge settime"} starttime] set status [sct writestatus]
if {$status != 0} { switch $status {
#-------- not yet started! commandsent {
set runtime [SICSValue "hgetprop /sics/farm/schneggerunning read_time"]
set starttime [sct write_time]
if {$runtime > $starttime} {
sct writestatus evalcheck
}
return busy return busy
} }
if {$runtime > $starttime} { evalcheck {
#--------- only look at status values older then the starttime!
set tst [hval /sics/farm/schneggerunning] set tst [hval /sics/farm/schneggerunning]
if {$tst == 1} { if {$tst == 1} {
return busy return busy
} else { } else {
farmser poll /sics/farm/schneggerunning 10
hdelprop /sics/farm/schnegge settime
return idle return idle
} }
} else { }
farmser poll /sics/farm/schneggerunning .5 progress default {
return busy error "schneggestatus called in bad state $status"
}
} }
} }
#--------------------------------------------- #---------------------------------------------
@ -453,6 +452,9 @@ makesctdrive schnecke /sics/farm/schnegge farmser
#---------- test http #---------- test http
set httptest 0
if {$httptest == 1} {
makesctcontroller amorhmsct sinqhttp amorhm data 60 spy 007 makesctcontroller amorhmsct sinqhttp amorhm data 60 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
@ -488,6 +490,7 @@ 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 60
}
#source sansdruck.tcl #source sansdruck.tcl
@ -498,4 +501,6 @@ amorhmsct poll /sics/amorhm/collapse 60
#sadu sendterminator 0x04 #sadu sendterminator 0x04
#sadu timeout 1000 #sadu timeout 1000
#source ../sim/mars/julcho.tcl