- First version of instrument regression tests

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

insttest/polditest

@@ -0,0 +1,66 @@
+#!/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
+
+#---------- 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]
+
+exe upload
+exe append count timer 120
+exe forcesave insttestbatch.tcl
+
+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]
+
+#------------ print a summary
+set inst [string toupper $instrument]
+puts stdout "Test Summary for $inst"
+printStandardSummary $counters
+puts stdout "Chopper system NOT tested!!"
+