_acs-tcl__lc__commify_number (private)

 _acs-tcl__lc__commify_number

Defined in packages/acs-tcl/tcl/test/acs-tcl-test-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_equals "Empty value" [lc_numeric {} "" en_US] {}
    aa_equals "0" [lc_numeric 0 "" en_US] {0}
    aa_equals "0.0" [lc_numeric 0.0 "" en_US] {0.0}
    aa_equals ".0" [lc_numeric .0 "" en_US] {.0}
    aa_equals "100" [lc_numeric 100 "" en_US] {100}
    aa_equals "1000" [lc_numeric 1000 "" en_US] {1,000}
    aa_equals "1000000" [lc_numeric 1000000 "" en_US] {1,000,000}
    aa_equals "1000000000" [lc_numeric 1000000000 "" en_US] {1,000,000,000}
    aa_equals "1000000000.0002340" [lc_numeric 1000000000.0002340 "" en_US] {1,000,000,000.0002340}
    aa_equals "-0" [lc_numeric -0 "" en_US] {-0}
    aa_equals "-.0" [lc_numeric -.0 "" en_US] {-.0}
    aa_equals "-.0000" [lc_numeric -.0000 "" en_US] {-.0000}
    aa_equals "-100" [lc_numeric -100 "" en_US] {-100}
    aa_equals "-1000" [lc_numeric -1000 "" en_US] {-1,000}
    aa_equals "-1000000" [lc_numeric -1000000 "" en_US] {-1,000,000}
    aa_equals "-1000000000" [lc_numeric -1000000000 "" en_US] {-1,000,000,000}
    aa_equals "-1000000000.0002340" [lc_numeric -1000000000.0002340 "" en_US] {-1,000,000,000.0002340}
}} {
          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" "lc__commify_number (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle