_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