_file-storage__fs_add_file_to_folder (private)

 _file-storage__fs_add_file_to_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 {

        #
        # Setup of test user_id and login
        #
        set user_info [::acs::test::user::create -admin]
        aa_log "user_info = $user_info"
        set request_info [::acs::test::login $user_info]
        ns_log notice "user logged in"

        set d [file_storage::test::call_fs_page -last_request $request_info]
        aa_log "call_fs_page done"

        # Create a new folder
        set folder_name [ad_generate_random_string]
        set folder_description [ad_generate_random_string]
        set folder_reply [file_storage::test::create_new_folder -last_request $d  $folder_name $folder_description]
        aa_log "new folder created"

        # Add a file to folder
        set uploaded_file_name [file_storage::test::create_file [ad_generate_random_string]]
        set uploaded_file_description [ad_generate_random_string]
        set d [file_storage::test::add_file_to_folder  -last_request $d  $folder_name  $uploaded_file_name  $uploaded_file_description]

        #aa_display_result -response $response -explanation {for uploading a file in a folder}
        aa_log "now delete file again"
        file_storage::test::delete_first_file -last_request $d $uploaded_file_name

        #
        # Finally, delete the folder
        #
        aa_section "Delete the folder"
        file_storage::test::delete_current_folder -last_request $folder_reply

        ::acs::test::logout -last_request $d

    } finally {
        #
        # Get rid of the user
        #
        set user_id [dict get $user_info user_id]
        aa_section "Delete test user (user_id $user_id)"
        acs::test::user::delete -user_id $user_id -delete_created_acs_objects
    }

}} {
          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_add_file_to_folder (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo"
          }
          incr body_count
        }

XQL Not present:

Generic, PostgreSQL, Oracle