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

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

initSicsDebug $instrument
config rights lnsmanager lnsSICSlns

#--------- remember soz position
set sompos [SICSValue som]
standardPrelude $instrument

set notList [list dil nv h k l cone utz uty sgx sgy scx scy chi phi po1 po2 \
		sch sph atx aty ana]

lappend commandList "cscan som 0 .1 2 2"
lappend commandList "sscan som 0. .1 3 2"
lappend commandList "wwwsics"

lappend varList [list "mono dd" 3.354 .1]
lappend varList [list "mono ss" -1 .1]

lappend interruptList "drive som 90"
lappend interruptList "co 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]

#--------- put detector back where it was
drive som $sompos

standardRestore

#------------ print a summary
set inst [string toupper $instrument]
puts stdout "Test Summary for $inst"
printStandardSummary $counters
exit