file_storage::twt::add_file_to_folder (private)

 file_storage::twt::add_file_to_folder folder_name file_name \
    file_description

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

Adds a file to a folder from the UI.

Parameters:

folder_name
file_name
file_description

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

Testcases:

fs_add_file_to_folder_twt, file-storage

Source code:

    set response 0

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

    tclwebtest::form find ~n "file-add"
    tclwebtest::field find ~n "upload_file"
    tclwebtest::field fill $file_name
    tclwebtest::field find ~n "title"
    tclwebtest::field fill $file_name
    tclwebtest::field find ~n "description"
    tclwebtest::field fill $file_description
    tclwebtest::form submit

    set response_url [tclwebtest::response url]

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

        set list_words [split "$file_name" /]
        set short_file_name [lindex $list_words [llength $list_words]-1]

        if {[catch {tclwebtest::assert text $folder_name} errmsg] || [catch {tclwebtest::link find $short_file_name} errmsg]} {
            aa_error "file_storage::twt::add_file_to_folder failed $errmsg : Didn't add a file to folder"
        } else {
            aa_log "a File uploaded"
            set response 1
        }
    } else {
        aa_error "file_storage::twt::add_file_to_folder  failed, bad response url : $response_url"
    }

    return $response

XQL Not present:

Generic, PostgreSQL, Oracle