_acs-developer-support__ds_features_enabled_test (private)

 _acs-developer-support__ds_features_enabled_test

Defined in packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 aa_false aa_false (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_true aa_true (public) ad_conn ad_conn (public) _acs-developer-support__ds_features_enabled_test _acs-developer-support__ds_features_enabled_test _acs-developer-support__ds_features_enabled_test->aa_false _acs-developer-support__ds_features_enabled_test->aa_log _acs-developer-support__ds_features_enabled_test->aa_log_result _acs-developer-support__ds_features_enabled_test->aa_true _acs-developer-support__ds_features_enabled_test->ad_conn

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
        aa_log "Init variables"
        ds_init
        aa_true "Init worked correctly" {
            ![ds_enabled_p] ||
            (
             (![ds_collection_enabled_p] ||
              ([info exists ::ds_collection_enabled_p] && $::ds_collection_enabled_p == 1)) &&
             (![ds_profiling_enabled_p] ||
              ([info exists ::ds_profiling_enabled_p] && $::ds_profiling_enabled_p == 1)) &&
             (![ds_show_p] ||
              ([info exists ::ds_show_p] && $::ds_show_p == 1))
             )
        }

        set old_enabled_state [ds_enabled_p]
        set old_db_state [ds_database_enabled_p]
        set old_pr_state [ds_profiling_enabled_p]

        try {
            set collection_enabled_p 0
            foreach pattern [nsv_get ds_properties enabled_ips] {
                if { [string match $pattern [ad_conn peeraddr]] } {
                    set collection_enabled_p 1
                    break
                }
            }
            aa_true "collection enabled value is correct" {
                ($collection_enabled_p && [ds_collection_enabled_p]) ||
                (!$collection_enabled_p && ![ds_collection_enabled_p])
            }

            ds_set_database_enabled 0
            aa_false "database enabled is OFF"  [ds_database_enabled_p]
            ds_set_database_enabled 1
            aa_true "database enabled is ON"  [ds_database_enabled_p]

            aa_true "page fragment cache enabled value is correct" {
                ([nsv_get ds_properties page_fragment_cache_p] && [ds_page_fragment_cache_enabled_p]) ||
                (![nsv_get ds_properties page_fragment_cache_p] && ![ds_page_fragment_cache_enabled_p])
            }

            ds_set_profiling_enabled 0
            aa_false "profiling enabled is OFF"  [ds_profiling_enabled_p]
            ds_set_profiling_enabled 1
            aa_true "profiling enabled is ON"  [ds_profiling_enabled_p]

            set enabled_p 0
            nsv_set ds_properties enabled_p $enabled_p
            set ::ds_enabled_p $enabled_p
            aa_false "enabled value is OFF" [ds_enabled_p]
            aa_false "show value is OFF" [ds_show_p]

            set enabled_p 1
            nsv_set ds_properties enabled_p $enabled_p
            set ::ds_enabled_p $enabled_p
            aa_true "enabled value is ON" [ds_enabled_p]
            aa_true "show value is the permission enabled value" {
                ([ds_permission_p] && [ds_show_p]) ||
                (![ds_permission_p] && ![ds_show_p])
            }

        } finally {
            ds_set_database_enabled $old_db_state
            ds_set_profiling_enabled $old_pr_state
            nsv_set ds_properties enabled_p $old_enabled_state
            set ::ds_enabled_p $old_enabled_state
        }
    }} {
          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" "ds_features_enabled_test (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: