_acs-api-browser__api__smells_of_hacking (private)
_acs-api-browser__api__smells_of_hacking
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 smells { hack hotfix todo ugly fixme quickfix } set rx ^.*([join $smells |]).*$ foreach proc_name [nsv_array names api_proc_doc] { set doc_elements [nsv_get api_proc_doc $proc_name] if {[dict exists $doc_elements deprecated_p]} { set deprecated_p [dict get $doc_elements deprecated_p] } else { set deprecated_p false } if {!$deprecated_p} { if {[dict exists $doc_elements main]} { set documentation [dict get $doc_elements main] } else { set documentation "" } set code [api_get_body $proc_name] set smells_p [regexp -nocase -- $rx $code m smell] set smell [expr {$smells_p ? "of '$smell'" : ""}] aa_false "'$proc_name' body smells $smell" $smells_p set smells_p [regexp -nocase -- $rx $documentation m smell] set smell [expr {$smells_p ? "of '$smell'" : ""}] aa_false "'$proc_name' doc smells $smell" $smells_p } } }} { 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" "api__smells_of_hacking (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle