69 lines
1.9 KiB
Tcl
Executable File
69 lines
1.9 KiB
Tcl
Executable File
#!/usr/bin/tclsh
|
|
#-------------------------------------------------------------------------
|
|
# This is the regression test for SICS on the FOCUS instrument
|
|
#
|
|
# Mark Koennecke, November 2006
|
|
#------------------------------------------------------------------------
|
|
source sicstcldebug.tcl
|
|
source insttestutil.tcl
|
|
source focusinventory.tcl
|
|
|
|
#------ If there is another argument, test at localhost: for debugging...
|
|
if {$argc > 0} {
|
|
set instrument local
|
|
} else {
|
|
set instrument focus
|
|
}
|
|
|
|
initSicsDebug $instrument
|
|
config rights lnsmanager lnsFOCUSlns
|
|
|
|
standardPrelude $instrument count
|
|
|
|
#---------- configuration
|
|
set notList [list fermispeed diskspeed phase ratio intervall ei mtt]
|
|
|
|
lappend commandList "count timer 2"
|
|
lappend commandList "repeat 2"
|
|
lappend commandList "wwwsics"
|
|
lappend commandList "hm genbin 10 25 333"
|
|
lappend commandList "hm init"
|
|
|
|
catch {sicscommand "exe upload"} msg
|
|
catch {sicscommand "exe append counter setthreshold 1 0"} msg
|
|
catch {sicscommand "exe append count timer 120"} msg
|
|
catch {sicscommand "exe forcesave insttestbatch.tcl"} msg
|
|
|
|
lappend varList [list flightpathlength 3000 5]
|
|
lappend varList [list fermidist 3000 5]
|
|
lappend varList [list detectordist 2500 5]
|
|
lappend varList [list sampledist 499.7 1]
|
|
lappend varList [list "mono dd" 3.355 .1]
|
|
|
|
lappend interruptList "count timer 120"
|
|
lappend interruptList "exe insttestbatch.tcl"
|
|
|
|
|
|
set par(inventory) $inventory
|
|
set par(driveCommand) drive
|
|
set par(motorList) $motors
|
|
set par(notList) $notList
|
|
set par(commandList) $commandList
|
|
set par(interruptList) $interruptList
|
|
set par(instrument) $instrument
|
|
set par(user) lnsmanager
|
|
set par(password) lnsFOCUSlns
|
|
set par(varList) $varList
|
|
#================= actually test =====================================
|
|
set counters [runStandardTests par]
|
|
|
|
|
|
standardRestore
|
|
|
|
#------------ print a summary
|
|
set inst [string toupper $instrument]
|
|
puts stdout "Test Summary for $inst"
|
|
printStandardSummary $counters
|
|
puts stdout "Chopper system NOT tested!!"
|
|
|