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

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

initSicsDebug $instrument
config rights lnsmanager lnsSICSlns

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

set notList [list nv dil]

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


lappend interruptList "drive som 15"
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

#================= actually test =====================================
set counters [runStandardTests par]

#--------- put om 
drive som $sompos

standardRestore 

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


exit