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