- First version of instrument regression tests

- sinqcom is the first version of a communication testing program
  for instruments

insttest/narzisstest

@@ -0,0 +1,61 @@
+#!/usr/bin/tclsh
+#-------------------------------------------------------------------------
+# This is the regression test for SICS on the NARZISS instrument
+#
+# Mark Koennecke, November 2006
+#------------------------------------------------------------------------
+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]
+
+set notList [list dil nv]
+
+lappend commandList "counter setthreshold 1 0"
+lappend commandList "cscan som 0 .1 2 2"
+lappend commandList "sscan som 0. .1 3 2"
+lappend commandList "wwwsics"
+
+exe upload
+exe append counter setthreshold 1 0 
+exe append co timer 120
+exe forcesave insttestbatch.tcl
+
+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
+
+#================= actually test =====================================
+set counters [runStandardTests par]
+
+#--------- put om 
+drive som $sompos
+
+#------------ print a summary
+set inst [string toupper $instrument]
+puts stdout "Test Summary for $inst"
+printStandardSummary $counters
+
+