_file-storage__fs_edit_folder (private)
_file-storage__fs_edit_folder
Defined in packages/file-storage/tcl/test/file-storage-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ try { aa_section "Create a test user" set user_info [acs::test::user::create -admin] aa_run_with_teardown -test_code { # # Go to the first instance of the file storage # set fs_page [aa_get_first_url -package_key file-storage] set d [acs::test::http -user_info $user_info $fs_page] # # Create a new folder with a random name in this instance # aa_section "Create a fresh folder" set folder_name [ad_generate_random_string] set folder_description [ad_generate_random_string] set d [file_storage::test::create_new_folder -last_request $d $folder_name $folder_description] acs::test::reply_has_status_code $d 200 aa_log "Folder $folder_name was created successfully" aa_section "Edit folder" set folder_name [ad_generate_random_string] set d [file_storage::test::edit_folder -last_request $d $folder_name] acs::test::reply_has_status_code $d 200 aa_log "Folder $folder_name was edited successfully" # # Finally, delete the folder # aa_section "Delete the empty folder" file_storage::test::delete_current_folder -last_request $d } } finally { # # Get rid of the user # aa_section "Delete test user" acs::test::user::delete -user_id [dict get $user_info user_id] } }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "fs_edit_folder (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle