_acs-lang__lang_test__lc_procs (private)
_acs-lang__lang_test__lc_procs
Defined in packages/acs-lang/tcl/test/acs-lang-localization-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 { lang::system::locale_set_enabled -locale de_DE -enabled_p true lang::system::locale_set_enabled -locale it_IT -enabled_p true lang::catalog::import -locales it_IT -package_key acs-lang lang::catalog::import -locales de_DE -package_key acs-lang aa_equals "format us number" [lc_numeric 123456.789 {} en_US] 123,456.789 aa_equals "format de number" [lc_numeric 123456.789 {} de_DE] 123.456,789 aa_equals "format it number" [lc_numeric 123456.789 {} it_IT] 123.456,789 aa_equals "parse us number" [lc_parse_number 123,456.789 en_US] 123456.789 aa_equals "parse de number" [lc_parse_number 123.456,789 de_DE] 123456.789 aa_equals "parse it number" [lc_parse_number 123.456,789 it_IT] 123456.789 set time [lc_time_fmt "2013-09-21 23:11:22" "%c" en_US] aa_equals "format us time" [lrange $time 0 end-1] "Sat September 21, 2013 11:11 PM" set time [lc_time_fmt "2013-09-21 23:11:22" "%c" de_DE] aa_equals "format us time" [lrange $time 0 end-1] "Sa, 21. September 2013 23:11" set time [lc_time_fmt "2013-09-21 23:11:22" "%c" it_IT] aa_equals "format us time" [lrange $time 0 end-1] "Sab 21 Settembre 2013 23:11" aa_equals "asian time " [lc_time_utc_to_local "2013-09-21 23:11:22" "Asia/Tokyo"] "2013-09-22 08:11:22" aa_equals "local time " [lc_time_local_to_utc "2013-09-22 08:11:22" "Asia/Tokyo"] "2013-09-21 23:11:22" set time [lc_time_fmt "2013-09-21 23:11:22" "%c" en_US] aa_equals "format en_US time" [lrange $time 0 end-1] "Sat September 21, 2013 11:11 PM" set time [lc_time_fmt "2013-09-21 23:11:22" "%c" de_DE] aa_equals "format de_DE time" [lrange $time 0 end-1] "Sa, 21. September 2013 23:11" set time [lc_time_fmt "2013-09-21 23:11:22" "%c" it_IT] aa_equals "format it_IT time" [lrange $time 0 end-1] "Sab 21 Settembre 2013 23:11" aa_equals "asian time " [lc_time_utc_to_local "2013-09-21 23:11:22" "Asia/Tokyo"] "2013-09-22 08:11:22" aa_equals "local time " [lc_time_local_to_utc "2013-09-22 08:11:22" "Asia/Tokyo"] "2013-09-21 23:11:22" set db_timestamp "2019-12-16 12:11:52.125541+01" set time [lc_time_fmt $db_timestamp "%c" en_US] aa_equals "format en_US time" [lrange $time 0 end-1] "Mon December 16, 2019 12:11 PM" set time [lc_time_fmt $db_timestamp "%c" de_DE] aa_equals "format de_DE time" [lrange $time 0 end-1] "Mo, 16. Dezember 2019 12:11" set time [lc_time_fmt $db_timestamp "%c" it_IT] aa_equals "format it_IT time" [lrange $time 0 end-1] "Lun 16 Dicembre 2019 12:11" set short_timestamp "2019-12-16 12:11" set time [lc_time_fmt $short_timestamp "%c" en_US] aa_equals "format en_US time" [lrange $time 0 end-1] "Mon December 16, 2019 12:11 PM" set time [lc_time_fmt $short_timestamp "%c" de_DE] aa_equals "format de_DE time" [lrange $time 0 end-1] "Mo, 16. Dezember 2019 12:11" set time [lc_time_fmt $short_timestamp "%c" it_IT] aa_equals "format it_IT time" [lrange $time 0 end-1] "Lun 16 Dicembre 2019 12:11" set time [lc_clock_to_ansi 1613657099] aa_equals "lc_clock_to_ansi" $time "2021-02-18 15:04:59" set time [lc_time_tz_convert -from Europe/Vienna -to Europe/Vienna -time_value "2021-02-18 15:04:59"] aa_equals "lc_time_tz_convert from and to Europe/Vienna" $time "2021-02-18 15:04:59" set time [lc_time_tz_convert -from Europe/Vienna -to America/New_York -time_value "2021-02-18 15:04:59"] aa_equals "lc_time_tz_convert from and to Europe/Vienna" $time "2021-02-18 09:04:59" set time [lc_time_tz_convert -from Europe/Vienna -to Europe/Vienna -time_value "2021-02-18 15:04"] aa_equals "lc_time_tz_convert from and to Europe/Vienna (short time format)" $time "2021-02-18 15:04:00" set time [lc_time_tz_convert -from Europe/Vienna -to America/New_York -time_value "2021-02-18 15:04"] aa_equals "lc_time_tz_convert from and to Europe/Vienna (short time format)" $time "2021-02-18 09:04:00" # # There is no easy way to change the conn::timezone. So set the # system timezone to the lang::conn::timezone to get a # reproducible result. Since we are running in a transaction, no # harm is done. # lang::system::set_timezone [lang::conn::timezone] set time [lc_time_conn_to_system "2021-02-18 15:04:59"] aa_equals "lc_time_conn_to_system" $time "2021-02-18 15:04:59" set time [lc_time_system_to_conn "2021-02-18 15:04:59"] aa_equals "lc_time_system_to_conn" $time "2021-02-18 15:04:59" } }} { 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" "lang_test__lc_procs (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle