- Implemented regresion tests for batch processing, scans,

histmem and peak optimization

test/testini.tcl

@@ -41,10 +41,14 @@ SicsUser User   User      2
 SicsUser Spy    Spy       3
 #SicsUser Spy    007       1
 
+#----------------- SICS Variable
+VarMake lotte Text User
+
 #----------------- Motors ---------------------------------------------------
 Motor brumm regress
 MakeDrive
-
+#----------------- Alias ----------------------------------------------------
+SicsAlias brumm miau
 #----------------- Counters -------------------------------------------------
 MakeCounter aba regress
 MakeCounter hugo SIM -1.
@@ -66,3 +70,69 @@ proc multitransfer {} {
 #-----------------------------------
 MakeMultiCounter multi aba hugo lieselotte
 multi transferscript multitransfer
+
+#------------- For Scanning ---------------------------------------------
+# This is with the tricky bit set: we use a multicounter and use the 
+# scantransfer function to return values of a gaussian for a4 positions.
+# This gives nice scan data which can be used to test all sorts of things.
+#-------------------------------------------------------------------------
+MakeDataNumber SicsDataNumber ./DataNumber
+VarMake SicsDataPath Text Mugger
+SicsDataPath ./
+SicsDataPath lock
+VarMake SicsDataPrefix Text Mugger
+SicsDataPrefix regression
+SicsDataPrefix lock
+VarMake SicsDataPostFix Text Mugger
+SicsDataPostFix .dat
+SicsDataPostFix lock
+
+Motor a4 SIM -180 180 -.1 10
+MakeMultiCounter scanCter aba
+
+proc scantransfer {} {
+    set FWHM 1.5
+    set pos 5.33
+    set height 700
+    set stddev [expr $FWHM/2.354]
+    set ftmp [expr ([SICSValue a4] - $pos)/$stddev]
+    set count [expr 10 + $height*0.4*exp(-.5*$ftmp*$ftmp)]
+    set counti [expr int($count)]
+    append res [SICSValue "lieselotte gettime"] " "
+    append res $counti " "
+    for {set i 1} {$i < 7} {incr i} {
+	append res [SICSValue "lieselotte getmonitor $i"] " "
+    } 
+    return $res
+}
+scancter transferscript scantransfer
+
+MakeScanCommand xxxscan scancter test.hdd recover.bin
+MakePeakCenter  xxxscan
+source scancommand.tcl
+MakeOptimise opti scancter
+MakeMaximize scancter
+
+#-------------------------------------------------------------------------
+# Histogram Memory 
+#------------------------------------------------------------------------
+MakeHM hm regress
+hm configure rank 1
+hm configure dim0 23
+hm configure testval 1
+hm configure errortype 0
+hm configure recover 1
+hm configure init 1
+hm init
+
+MakeHM tof regress
+tof configure rank 1
+tof configure HistMode  TOF
+tof configure dim0 23
+tof configure testval 1
+tof configure errortype 0
+tof configure recover 1
+tof genbin 10 12 100
+tof configure init 1
+tof init
+