- Added regression tests for a counter and the new MultiCounter

- Enhanced regression tests for motors

test/mottest.tcl

@@ -18,6 +18,7 @@
 # copyright: see file COPYRIGHT
 #
 # Mark Koennecke, July 2006
+#
 #------------------------------------------------------------------------------
 puts stdout "Testing motor code"
 
@@ -169,7 +170,7 @@ test motor-1.8 {Test Hardware Failure Recover} -body {
 
 brumm errortype 4
 
-test motor-1.9 {Test Consistent mispositioning} -body {
+test motor-1.9 {Test Consistent Mispositioning} -body {
 	set ans [drive brumm -20.3]
 	if { [string first "off position" $ans] < 0} {
 		error "Failed to trigger motor off position"
@@ -257,4 +258,46 @@ test motor-1.12 {Motor Alarm} -body {
 	return OK
 } -result OK
 		
-		
+brumm errortype 0
+config rights Mugger Mugger
+
+test motor-1.13 {Motor Sign} -body {
+	brumm sign 1
+    drive brumm 27.
+	set old [SICSValue brumm]
+	brumm sign -1 
+	set newVal [SICSValue brumm]
+	set br [brumm sign]
+	brumm sign 1
+	return [compareValue [expr $old * -1] $newVal]
+} -result OK	
+
+brumm sign 1.
+
+test motor-1.14 {Motor Recover} -body {
+	brumm sign -1.
+	brumm softzero 5
+	set data [brumm list]
+	backup hugo.bck
+	recover hugo.bck
+	set newData [brumm list]
+	if {[string compare $data $newData] != 0} {
+		backup hugo2.bck
+		error "Recovery failed: look at diff between hugo.bck and hugo2.bck"
+	}
+	brumm sign 1
+	brumm softzero 0
+	set data [brumm list]
+	backup hugo.bck
+	recover hugo.bck
+	set newData [brumm list]
+	if {[string compare $data $newData] != 0} {
+		backup hugo2.bck
+		error "Recovery failed: look at diff between hugo.bck and hugo2.bck"
+	}
+	return OK	
+} -result OK
+
+config rights Spy Spy
+test motorpar-1.15 {Test sign setting} -body {
+  testPar "brumm sign" -1 Mugger } -result OK