#!/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!!"

