_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"

    #
    # 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