Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -r1.15.2.3 -r1.15.2.4
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	3 Apr 2019 14:39:50 -0000	1.15.2.3
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	7 Apr 2019 19:34:18 -0000	1.15.2.4
@@ -423,47 +423,6 @@
 
 }
 
-aa_register_case -cats {smoke production_safe} web_callable_methods_naming {
-    checks naming conventions of web callable methods
-
-    @author Gustaf Neumann
-} {
-    set count 0
-
-    foreach cl [::xowiki::Page info subclass -closure] {
-        foreach m [$cl info instprocs] {
-            if {[string match "www-*" $m]} {
-                incr count
-                regexp {www[-](.*)$} $m . suffix
-                set wrong [regexp {[^a-z0-9-]} $suffix]
-                aa_false "web callable method '$cl instproc $m' does not follow naming guidelines (just lower case, digit and dash)" $wrong
-            }
-        }
-    }
-    aa_log "Checked $count web callable methods"
-}
-
-aa_register_case \
-    -cats {smoke production_safe} \
-    -error_level warning \
-    web_callable_methods_doc {
-        Checks if documentation exists for web callable methods
-
-        @author Gustaf Neumann
-} {
-    set count 0
-    foreach cl [::xowiki::Page info subclass -closure] {
-        foreach m [$cl info instprocs] {
-            if {[string match "www-*" $m]} {
-                incr count
-                set exists [nsv_exists api_proc_doc "$cl instproc $m"]
-                aa_true "documentation for web callable method '$cl instproc $m'" $exists
-            }
-        }
-    }
-    aa_log "Checked $count web callable methods"
-}
-
 #
 # Local variables:
 #    mode: tcl