- Added many more regression tests for the SICServer

2006-11-24 15:57:41 +00:00
parent e58bd5fc30
commit dca149c242
13 changed files with 995 additions and 17 deletions
--- a/test/testutil.tcl
+++ b/test/testutil.tcl
@ -145,6 +145,15 @@ proc testOK {command} {
    if {[string first OK $test] < 0} {
 	error [format "Expected OK, got %s" $test]
    }
+    return OK
+}
+#------------------------------------------------------------------------
+proc testNoError {command} {
+    set test [eval $command]
+    if {[string first ERROR $test] >= 0} {
+	error [format "Located Error:  %s" $test]
+    }
+    return OK
 }
 #------------------------------------------------------------------------
 proc testCommand {command response} {