_acs-lang__test_catalog_import_export (private)
_acs-lang__test_catalog_import_export
Defined in packages/acs-lang/tcl/test/lang-catalog-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_run_with_teardown -rollback -test_code { set catalog_path [lang::catalog::get_catalog_file_path -package_key acs-lang -locale en_US] set catalog_checksum [ns_md file $catalog_path] set catalog_mtime [file mtime $catalog_path] lang::catalog::export -package_key acs-lang -locales en_US aa_equals "Catalog was unchanged after export" $catalog_checksum [ns_md file $catalog_path] aa_true "File was actually touched" { $catalog_mtime < [file mtime $catalog_path] } set n_messages [db_string count { select count(*) from lang_messages where package_key = 'acs-lang' and locale = 'en_US' }] db_1row get_one_message { select message_key, message from lang_messages where package_key = 'acs-lang' and locale = 'en_US' fetch first 1 rows only } set key acs-lang.${message_key} aa_true "Message key '$message_key' exists" [lang::message::message_exists_p -varname exist_var en_US $key] aa_equals "Message key '$message_key' was retrieved" $exist_var $message set old_description [db_string desc { select description from lang_message_keys where message_key = :message_key and package_key = 'acs-lang' }] aa_log "Update description for '$key'" lang::message::update_description -package_key acs-lang -message_key $message_key -description {Test Description} aa_equals "Description was updated" [db_string desc { select description from lang_message_keys where message_key = :message_key and package_key = 'acs-lang' }] {Test Description} aa_log "Reset description for '$key'" lang::message::update_description -package_key acs-lang -message_key $key -description $old_description aa_log "Store an audit message for '$key'" lang::audit::changed_message $message acs-lang $message_key en_US {Audit Comment} false [clock format [clock seconds] -format {%Y-%m-%d %H:%M:%S}] false "no_upgrade" db_1row get_audit { select audit_id, comment_text, overwrite_user from lang_messages_audit order by audit_id desc fetch first 1 rows only } aa_equals "The comment text was stored" $comment_text {Audit Comment} aa_equals "The comment user is us" $overwrite_user [ad_conn user_id] aa_log "Cleanup test audit message" db_dml cleanup {delete from lang_messages_audit where audit_id = :audit_id} set result [lang::catalog::import -package_key acs-lang -locales en_US] aa_equals "All keys for this package and locale have been processed" [dict get $result processed] $n_messages aa_equals "All keys added" [dict get $result added] 0 aa_equals "No keys deleted" [dict get $result deleted] 0 aa_equals "No keys updated" [dict get $result updated] 0 aa_log "Delete all message keys and reload them" lang::catalog::package_delete -package_key acs-lang aa_equals "There are no messages for this package anymore" [db_string count { select count(*) from lang_message_keys where package_key = 'acs-lang' }] 0 unset -nocomplain exist_var aa_false "Message key '$message_key' does not exist" [lang::message::message_exists_p -varname exist_var en_US $key] aa_false "Message key '$message_key' was not retrieved" [info exists exist_var] set result [lang::catalog::import -package_key acs-lang -locales en_US] # # Avoid test side-effects by re-loading also other locales # lang::catalog::import -package_key acs-lang -locales [lang::system::get_locales] aa_equals "All keys for this package and locale have been processed" [dict get $result processed] $n_messages aa_equals "No keys added" [dict get $result added] $n_messages aa_equals "No keys deleted" [dict get $result deleted] 0 aa_equals "No keys updated" [dict get $result updated] 0 aa_true "Message key '$message_key' exists" [lang::message::message_exists_p -varname exist_var en_US $key] aa_equals "Message key '$message_key' was retrieved" $exist_var $message } }} { 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" "test_catalog_import_export (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle