workflow::test::assert_user_actions (public)

 workflow::test::assert_user_actions -workflow_id workflow_id \
    -case_id case_id [ -user_id user_id ] \
    [ -expect_user_actions expect_user_actions ]

Defined in packages/workflow/tcl/test/workflow-test-procs.tcl

Make assertions about user actions.

Switches:
-workflow_id
(required)
-case_id
(required)
-user_id
(optional)
-expect_user_actions
(optional)

Partial Call Graph (max 5 caller/called nodes):
%3 aa_log aa_log (public) aa_true aa_true (public) util_sets_equal_p util_sets_equal_p (public) workflow::case::get_available_actions workflow::case::get_available_actions (public, deprecated) workflow::test::action_short_names workflow::test::action_short_names (public) workflow::test::assert_user_actions workflow::test::assert_user_actions workflow::test::assert_user_actions->aa_log workflow::test::assert_user_actions->aa_true workflow::test::assert_user_actions->util_sets_equal_p workflow::test::assert_user_actions->workflow::case::get_available_actions workflow::test::assert_user_actions->workflow::test::action_short_names

Testcases:
No testcase defined.
Source code:
    if { $user_id eq "" } {
        set user_id [workflow::test::admin_owner_id]
    }
    set user_actions [workflow::test::action_short_names  [workflow::case::get_available_actions  -case_id $case_id  -user_id $user_id]]
    
    if { ![aa_true "Available user actions for user $user_id should be: $expect_user_actions"  [util_sets_equal_p $user_actions $expect_user_actions]] } {
        aa_log "Available user actions are: $user_actions"
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: