_acs-api-browser__acs_api_browser_api_proc_pretty_name (private)
_acs-api-browser__acs_api_browser_api_proc_pretty_name
Defined in packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ set proc api_proc_pretty_name set label [ad_generate_random_string] set bogus_proc [ad_generate_random_string] set proc_type [ad_generate_random_string] aa_true "A bogus proc returns the empty string" {[api_proc_pretty_name -hints_only $bogus_proc] eq ""} aa_true "A bogus proc returns the empty string" {[api_proc_pretty_name -link -hints_only $bogus_proc] eq ""} aa_true "A bogus proc returns the empty string" {[api_proc_pretty_name -include_debug_controls -link -hints_only $bogus_proc] eq ""} aa_true "Hints are printed in parentheses, 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 when XOTcl is installed" { [namespace which ::xo::api] eq "" || [ regexp {^.*<form[^>]*>.*</form[^>]*.*$} [ 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]] aa_true "-label will put the label somewhere if -link is specified" [string match *$label* [api_proc_pretty_name -link -label $label $proc]] }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "acs_api_browser_api_proc_pretty_name (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle