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 (required)
- file_description (required)
- 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 $responseXQL Not present: Generic, PostgreSQL, Oracle