- Most instrument test files have been tested

- sinqcom undwerwent extension to cover more devices and is now more or
  less finished
This commit is contained in:
koennecke
2007-04-26 14:34:58 +00:00
parent 524dac0fbf
commit a24f56e7fb
14 changed files with 303 additions and 122 deletions

View File

@ -12,8 +12,15 @@ if {$argc < 3} {
source sicstcldebug.tcl
initSicsDebug [lindex $argv 0]
config rights [lindex $argv 1] [lindex $argv 2]
exec sleep 5
puts $socke "INT1712 3"
for {set i 0} {$i < 5} {incr i} {
exec sleep 5
set txt [sicscommand status]
if {[string first Eager $txt] < 0} {
puts $socke "INT1712 3"
break
}
}
sicscommand logoff
exit 0