_acs-bootstrap-installer__db__database_interface (private)
_acs-bootstrap-installer__db__database_interface
Defined in packages/acs-bootstrap-installer/tcl/test/00-proc-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 dbms [db_current_rdbms] aa_equals "dbms looks valid" [dict keys $dbms] "type version" aa_true "dbms type nonempty" {[dict get $dbms type] != ""} aa_true "dbms version nonempty" {[dict get $dbms version] != ""} set pools [db_available_pools ""] aa_true "pools '$pools' can be valid (need at least one pool)" {[llength $pools] > 0} set qn dbqd.acs-tcl.tcl.site-nodes-procs.site_node::mount.mount_object set full_statement_name [db_qd_get_fullname $qn 2] aa_true "full_statement_name '$full_statement_name'" {$full_statement_name ne ""} set full_query [db_qd_fetch $full_statement_name ""] aa_true "full_query '$full_query'" {$full_query ne ""} set sql [db_fullquery_get_querytext $full_query] aa_true "SQL:<pre>$sql</pre>" {$sql ne ""} set name [db_fullquery_get_name $full_query] aa_true "name: $name" {$name ne ""} # This call is rather useless, just here for completeness set type [db_fullquery_get_query_type $full_query] aa_true "type: $type" {$type eq ""} }} { 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" "db__database_interface (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle