file_storage::twt::upload_file (private)

 file_storage::twt::upload_file file_name file_description

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

Uploads a new file from the UI.

Parameters:

file_name
file_description

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

Testcases:

fs_upload_file, file-storage

Source code:

    set response 0

    # Follow the Upload 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::link find $short_file_name} errmsg]} {
             aa_error "file_storage::twt::upload_file failed $errmsg : Didn't upload a File"
         } else {
             aa_log "a File uploaded"
             set response 1
         }
     } else {
         aa_error "file_storage::twt::upload_file failed, bad response url : $response_url"
     }

     return $response

XQL Not present:

Generic, PostgreSQL, Oracle