file_storage::twt::delete_uploaded_file (private)
file_storage::twt::delete_uploaded_file file_name
Defined in packages/file-storage/tcl/test/tclwebtest-procs.tcl
Deletes a file from the UI.
- Parameters:
- file_name (required)
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set response 0 # Follow the Delete File Link tclwebtest::link follow properties tclwebtest::link follow {Delete File} tclwebtest::form find ~n "file-delete" tclwebtest::form submit set response_url [tclwebtest::response url] if { [string match "*\?folder*id*" $response_url] } { # Get the short filename 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::delete_file failed $errmsg : Didn't delete a File" } else { aa_log "a File deleted" set response 1 } } else { aa_error "file_storage::twt::delete_file failed, bad response url : $response_url" } return $responseXQL Not present: Generic, PostgreSQL, Oracle