file_storage::twt::create_new_folder (private)

 file_storage::twt::create_new_folder folder_name folder_description

Defined in packages/file-storage/tcl/test/tclwebtest-procs.tcl

Creates a new folder from the UI.

Parameters:
folder_name
folder_description

Partial Call Graph (max 5 caller/called nodes):
%3 test_file-storage file-storage (test ) file_storage::twt::create_new_folder file_storage::twt::create_new_folder test_file-storage->file_storage::twt::create_new_folder test_fs_add_file_to_folder_twt fs_add_file_to_folder_twt (test ) test_fs_add_file_to_folder_twt->file_storage::twt::create_new_folder aa_error aa_error (public) file_storage::twt::create_new_folder->aa_error aa_log aa_log (public) file_storage::twt::create_new_folder->aa_log

Testcases:
fs_add_file_to_folder_twt, file-storage
Source code:
    set response 0

    tclwebtest::link follow {New Folder}

    tclwebtest::form find ~n "folder-ae"
    tclwebtest::field find ~n "folder_name"
    tclwebtest::field fill $folder_name
    tclwebtest::field find ~n "description"
    tclwebtest::field fill $folder_description
    tclwebtest::form submit

    set response_url [tclwebtest::response url]

    if { [string match  "*/\?folder_id*" $response_url] } {

        if { [catch {tclwebtest::assert text $folder_name} errmsg]} {
            aa_error "file_storage::twt::create_new_folder failed $errmsg : Didn't Create a New Folder"
        } else {
            aa_log "a New Folder created"
            set response 1
        }
    } else {
        aa_error "file_storage::twt::create_new_folder failed, bad response url : $response_url"
    }

    return $response
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: