Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v diff -u -r1.4.2.14 -r1.4.2.15 --- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 11 Sep 2019 18:57:44 -0000 1.4.2.14 +++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 25 Sep 2019 15:57:02 -0000 1.4.2.15 @@ -215,8 +215,8 @@ aa_true "Hints are printed in parenthesys, the proc type belongs to the hints" \ [regexp "^\(.*$proc_type.*\)$" [string trim [api_proc_pretty_name -proc_type $proc_type -hints_only $proc]]] - aa_true "-include_debug_controls prints out a form" \ - [regexp {^.*]*>.*]*.*$} [api_proc_pretty_name -include_debug_controls $proc]] + aa_true "-include_debug_controls prints out a form when XoTcl is installed" \ + {[info commands ::xo::api] eq "" || [regexp {^.*]*>.*]*.*$} [api_proc_pretty_name -include_debug_controls $proc]]} aa_true "-link will put the proc URL somewhere" \ [string match "*[ns_quotehtml [api_proc_url $proc]]*" [api_proc_pretty_name -link $proc]]