file_storage::test::edit_folder (private)

 file_storage::test::edit_folder -last_request last_request folder_name

Defined in packages/file-storage/tcl/test/webtest-procs.tcl

Create a new folder via Web UI.

Switches:

-last_request

(required)

Parameters:

folder_name

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

Testcases:

fs_edit_folder, file-storage

Source code:

        #
        # Create a new folder based on the current page, which is from
        # a file-storage instance
        #
        set d [acs::test::follow_link -last_request $last_request -label {Edit Folder}]
        acs::test::reply_has_status_code $d 200

        set response [dict get $d body]
        set form [acs::test::get_form $response {//form[@id='folder-edit']}]
        aa_true "edit form was returned" {[llength $form] > 2}
        set d [::acs::test::form_reply  -last_request $d  -form $form  -update [subst {
                       folder_name "$folder_name"
                   }]]
        acs::test::reply_has_status_code $d 302
        set location [::acs::test::get_url_from_location $d]

        if { [string match  "*/\?folder_id*" $location] } {
            set d [acs::test::http -last_request $d $location]
            acs::test::reply_contains $d $folder_name
        } else {
            aa_error "file_storage::test::create_new_folder failed, bad response url : $location"
        }

        return $d

XQL Not present:

Generic, PostgreSQL, Oracle