file_storage::twt::rename_file (private)

 file_storage::twt::rename_file file_name

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

Renames a file from the UI.

Parameters:

file_name

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

Testcases:

No testcase defined.

Source code:

    set response 0

    tclwebtest::link follow {properties}

    # Follow the Rename File link
    tclwebtest::link follow {Rename File}

    tclwebtest::form find ~n "file-edit"
    tclwebtest::field find ~n "title"
    tclwebtest::field fill $file_name
    tclwebtest::form submit

    set response_url [tclwebtest::response url]

    if { [string match  "*/file\?file_id*" $response_url] } {

        if {[catch {tclwebtest::link find $file_name} errmsg]} {
            aa_error "file_storage::twt::rename_file $errmsg : Didn't rename a file"
        } else {
            aa_log "a File ranamed"
            set response 1
        }

    } else {
        aa_error "file_storage::twt::rename_file failed, bad response url : $response_url"
    }

    return $response

XQL Not present:

Generic, PostgreSQL, Oracle