_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):
- 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