- Implemented regresion tests for batch processing, scans,

histmem and peak optimization

test/testutil.tcl

@@ -138,4 +138,19 @@ proc testInterruptedCount {startCommand} {
 		error "Failed to finish counting"
 	} 
 	return OK
-}
+}
+#------------------------------------------------------------------------
+proc testOK {command} {
+    set test [eval $command]
+    if {[string first OK $test] < 0} {
+	error [format "Expected OK, got %s" $test]
+    }
+}
+#------------------------------------------------------------------------
+proc testCommand {command response} {
+    set result [eval $command]
+    if {[string first $response $result] < 0} {
+	error "Expected $response, received $result"
+    }
+    return OK
+}