- Added regression tests for a counter and the new MultiCounter

- Enhanced regression tests for motors

test/testini.tcl

@@ -41,5 +41,28 @@ SicsUser User   User      2
 SicsUser Spy    Spy       3
 #SicsUser Spy    007       1
 
+#----------------- Motors ---------------------------------------------------
 Motor brumm regress
 MakeDrive
+
+#----------------- Counters -------------------------------------------------
+MakeCounter aba regress
+MakeCounter hugo SIM -1.
+MakeCounter lieselotte SIM -1.
+#------------------------------
+proc SICSValue {command} {
+	set txt [eval $command]
+	set l [split $txt =]
+	return [string trim [lindex $l 1]]
+}
+#-----------------------------
+proc multitransfer {} {
+    append res [SICSValue "aba gettime"] " "
+    for {set i 0} {$i < 7} {incr i} {
+	append res [SICSValue "aba getmonitor $i"] " "
+    } 
+    return $res
+}
+#-----------------------------------
+MakeMultiCounter multi aba hugo lieselotte
+multi transferscript multitransfer