_acs-subsite__group_localization (private)
_acs-subsite__group_localization
Defined in packages/acs-subsite/tcl/test/acs-subsite-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 group_name [ad_generate_random_string] aa_log "Creating group '$group_name'" set group_id [group::new -group_name $group_name] set package_key acs-translations set message_key "group_title_${group_id}" aa_true "Message key was registered correctly" [db_string get_key { select case when exists (select 1 from lang_message_keys where package_key = :package_key and message_key = :message_key) then 1 else 0 end from dual }] aa_equals "Pretty group name was stored correctly" $group_name [_ ${package_key}.$message_key] aa_log "Deleting group" group::delete $group_id aa_false "Message key was deleted correctly" [db_string get_key { select case when exists (select 1 from lang_message_keys where package_key = :package_key and message_key = :message_key) then 1 else 0 end from dual }] aa_silence_log_entries -severities {error} { aa_false "Message key has been flushed from all possible caches" {$group_name eq [_ ${package_key}.$message_key]} } set new_value [ad_generate_random_string] set pretty_name [lang::util::convert_to_i18n -message_key $message_key -text $new_value] aa_equals "One can override the previously existing message key safely" $new_value [_ ${package_key}.$message_key] aa_log "Cleaning up" lang::message::unregister $package_key $message_key }} { 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" "group_localization (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle