_acs-tcl__util_user_messages (private)

 _acs-tcl__util_user_messages

Defined in packages/acs-tcl/tcl/test/utilities-procs.tcl

Partial Call Graph (max 5 caller/called nodes):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) aa_section aa_section (public) template::multirow template::multirow (public) _acs-tcl__util_user_messages _acs-tcl__util_user_messages _acs-tcl__util_user_messages->aa_equals _acs-tcl__util_user_messages->aa_log _acs-tcl__util_user_messages->aa_log_result _acs-tcl__util_user_messages->aa_section _acs-tcl__util_user_messages->template::multirow

Testcases:
No testcase defined.
Source code:
        
        set _aa_export {}
        set body_count 1
        foreach testcase_body {{
    aa_section "Replacing existing messages"

    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message miao
    util_user_message -message ciao

    util_user_message -replace -message test

    util_get_user_messages -multirow test_util_get_user_messages

    aa_equals "We have only one message"  [template::multirow size test_util_get_user_messages] 1
    aa_equals "Message is the last one"  [template::multirow get test_util_get_user_messages 1 message] test


    aa_section "Quoting HTML in messages"

    util_user_message -html -message <div>ciao</div>
    util_user_message -message <div>ciao</div>

    util_get_user_messages -multirow test_util_get_user_messages

    aa_equals "We have only one message"  [template::multirow size test_util_get_user_messages] 2
    aa_equals "First message was NOT quoted"  [template::multirow get test_util_get_user_messages 1 message] <div>ciao</div>
    aa_equals "Second message was quoted"  [template::multirow get test_util_get_user_messages 2 message] [ns_quotehtml <div>ciao</div>]


    aa_section "Repeating messages"

    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message miao
    util_user_message -message ciao

    util_get_user_messages -multirow test_util_get_user_messages

    aa_equals "We have 2 messages"  [template::multirow size test_util_get_user_messages] 2
    aa_equals "Repeated message includes a counter"  [template::multirow get test_util_get_user_messages 1 message] "ciao (4)"
    aa_equals "Single message is unchanged"  [template::multirow get test_util_get_user_messages 2 message] miao


    aa_section "Keeping messages"

    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message ciao
    util_user_message -message miao
    util_user_message -message ciao

    util_get_user_messages -keep -multirow test_util_get_user_messages

    aa_equals "We have 2 messages"  [template::multirow size test_util_get_user_messages] 2

    aa_log "Creating multirow"
    util_get_user_messages -multirow test_util_get_user_messages

    aa_equals "We have 2 messages again"  [template::multirow size test_util_get_user_messages] 2
}} {
          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" "util_user_messages (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: