- Added many more regression tests for the SICServer

test/testini.tcl

@@ -87,7 +87,14 @@ VarMake SicsDataPostFix Text Mugger
 SicsDataPostFix .dat
 SicsDataPostFix lock
 
+Motor a1 SIM   -2 180 -.1 10
+Motor a2 SIM  30  150 -.1 10
+Motor a3 SIM -360 360 -.1 10
 Motor a4 SIM -180 180 -.1 10
+Motor a5 SIM -180 180 -.1 10
+Motor a6 SIM -180 180 -.1 10
+Motor sgu SIM -20 20 -.1 10
+Motor sgl SIM -20  20 -.1 10
 MakeMultiCounter scanCter aba
 
 proc scantransfer {} {
@@ -136,3 +143,42 @@ tof genbin 10 12 100
 tof configure init 1
 tof init
 
+#-------------------------------------------------------------------------
+# NXscript
+#-------------------------------------------------------------------------
+MakeNXScript
+#-------------------------------------------------------------------------
+proc makearray {} {
+    global ar
+    for { set i 10} {$i < 20} {incr i} {
+	set ar([expr $i - 10]) [expr $i*1.0]
+    }
+}
+#------------------------------------------------------------------------
+proc makeintarray {} {
+    global ar
+    for { set i 10} {$i < 20} {incr i} {
+	set ar([expr $i - 10]) $i
+    }
+}
+Publish makearray User
+Publish makeintarray User
+Publish parray User
+
+#------------------------------------------------------------------------
+# SicsData
+#------------------------------------------------------------------------
+sicsdatafactory new data
+sicsdatafactory new duta
+#-----------------------------------------------------------------------
+# tasub 
+#-----------------------------------------------------------------------
+MakeTasUB tasub
+#-----------------------------------------------------------------------
+# MultiMotors
+#----------------------------------------------------------------------
+MakeMulti sa
+sa alias  a3 om
+sa alias  a4 stt
+sa pos noeff om 24 stt 48
+sa endconfig