file_storage::twt::delete_folder (private)

 file_storage::twt::delete_folder

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

Deletes a folder from the UI.

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

Testcases:

No testcase defined.

Source code:

    set response 0

    tclwebtest::link follow {Delete this folder}

    tclwebtest::form find ~n "folder-delete"
    tclwebtest::form submit ~n {formbutton:ok}

    set response_url [tclwebtest::response url]

    if { [string match  "*\?folder_id*" $response_url] } {

        if { ![catch {tclwebtest::link find $folder_name} errmsg]} {
            aa_error "file_storage::twt::delete_folder failed $errmsg : Didn't Delete a Folder"
        } else {
            aa_log "a Folder deleted"
            set response 1
        }
    } else {
        aa_error "file_storage::twt::delete_folder failed, bad response url : $response_url"
    }

    return $response

XQL Not present:

Generic, PostgreSQL, Oracle