acs::test::login (public)

 acs::test::login user_info

Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl

Login (register operation) in a web session

Parameters:

user_info - dict containing at least email, last_name, username and password

Partial Call Graph (max 5 caller/called nodes):

Testcases:

webtest_example

Source code:

        #aa_log "acs::test::login with user_info $user_info"
        set d [acs::test::http -user_id 0 /register/]
        acs::test::reply_has_status_code $d 200

        set form [acs::test::get_form [dict get $d body ] {//form[@id='login']}]
        set fields [acs::test::form_get_fields $form]
        if {[dict exists $fields email]} {
            aa_log "login via email [dict get $user_info email]"
            dict set fields email [dict get $user_info email]
        } else {
            aa_log "login via username [dict get $user_info username]"
            dict set fields username [dict get $user_info username]
        }
        dict set fields password [dict get $user_info password]
        set form [acs::test::form_set_fields $form $fields]

        set d [::acs::test::form_reply -user_id 0 -form $form]
    ns_log notice "::acs::test::form_reply $form -->\n$d"
        acs::test::reply_has_status_code $d 302
        set ::__aa_testing_mode 1

        return $d

XQL Not present:

Generic, PostgreSQL, Oracle