(David committed this to the wrong branch):

(kom_delete_text): New function. Use to delete a text from the test suite.

src/server/testsuite/config/prot-a.exp

@@ -256,6 +256,15 @@ proc kom_delete_conf { conf_no  { result "" } { testname "" } } {
     simple_expect $result $testname
 }
 
+proc kom_delete_text { text_no  { result "" } { testname "" } } {
+    global ref_no;
+
+    kom_next_call
+    send "$ref_no 29 $text_no\n"
+    set result [cres $result "=$ref_no"]
+    simple_expect $result $testname
+}
+
 
 proc kom_ping_server { } {
     global ref_no