- First version of instrument regression tests

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

insttest/morpheustest

@@ -0,0 +1,66 @@
+#!/usr/bin/tclsh
+#-------------------------------------------------------------------------
+# This is the regression test for SICS on the MORPHEUS instrument
+#
+# Mark Koennecke, November 2006
+#------------------------------------------------------------------------
+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]
+
+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"
+
+lappend varList [list "mono dd" 3.354 .1]
+lappend varList [list "mono ss" -1 .1]
+
+
+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
+set par(varList) $varList
+
+#================= actually test =====================================
+set counters [runStandardTests par]
+
+#--------- put detector back where it was
+drive som $sompos
+
+#------------ print a summary
+set inst [string toupper $instrument]
+puts stdout "Test Summary for $inst"
+printStandardSummary $counters
+
+