file_storage::twt::create_url (private)

 file_storage::twt::create_url url_title url url_description

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

Creates a new URL from the UI.

Parameters:
url_title (required)
url (required)
url_description (required)

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

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

    # Follow the Create URL link
    tclwebtest::link follow {Create a URL}

    tclwebtest::form find ~n "simple-add"
    tclwebtest::field find ~n "title"
    tclwebtest::field fill $url_title
    tclwebtest::field find ~n "url"
    tclwebtest::field fill $url
    tclwebtest::field find ~n "description"
    tclwebtest::field fill $url_description
    tclwebtest::form submit

    set response_url [tclwebtest::response url]

    if { [string match  "*\?folder*id*" $response_url] } {

        if {[catch {tclwebtest::link find $url_title} errmsg]} {
            aa_error "file_storage::twt::create_url $errmsg : Didn't create a URL"
        } else {
            aa_log "a URL created"
            set response 1
        }

    } else {
        aa_error "file_storage::twt::create_url  failed, bad response url : $response_url"
    }

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