#!/usr/bin/tclsh
#-------------------------------------------------------------------------
# This is the regression test for SICS on the POLDI instrument
#
# Mark Koennecke, November 2006
#------------------------------------------------------------------------
source sicstcldebug.tcl
source insttestutil.tcl
source poldiinventory.tcl

#------ If there is another argument, test at localhost: for debugging...
if {$argc > 0} {
	set instrument local
} else {
	set instrument poldi
} 

initSicsDebug $instrument
config rights lnsmanager lnsSICSlns

standardPreluse $instrument count

#---------- configuration
set notList [list chopperspeed]

lappend commandList "count timer 2"
lappend commandList "repeat 2"
lappend commandList "wwwsics"
lappend commandList "hm genbin 10 25 333"
lappend commandList "hm init"

lappend varList [list flightpathlength 13870 5]
lappend varList [list chopper_dia1 8000 5]
lappend varList [list dia1_dia2 2200 5]
lappend varList [list chopper_sample 11870 1]
lappend varList [list dia2_sample 1670 .5]
lappend varList [list detectordist 2000 .5]
lappend varList [list x0_det -840 .5]
lappend varList [list y0_det -880 .5]
lappend varList [list det_size 1.25 .5]

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) lnsSICSlns
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!!"

