file_storage::test::delete_current_folder (private)

 file_storage::test::delete_current_folder -last_request last_request

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

Delete the current folder via Web UI.

Switches:
-last_request (required)

Partial Call Graph (max 5 caller/called nodes):
%3 test_file-storage file-storage (test ) file_storage::test::delete_current_folder file_storage::test::delete_current_folder test_file-storage->file_storage::test::delete_current_folder test_fs_create_folder fs_create_folder (test ) test_fs_create_folder->file_storage::test::delete_current_folder test_fs_edit_folder fs_edit_folder (test file-storage) test_fs_edit_folder->file_storage::test::delete_current_folder _ _ (public) file_storage::test::delete_current_folder->_ aa_true aa_true (public) file_storage::test::delete_current_folder->aa_true acs::test::follow_link acs::test::follow_link (public) file_storage::test::delete_current_folder->acs::test::follow_link acs::test::form_reply acs::test::form_reply (public) file_storage::test::delete_current_folder->acs::test::form_reply acs::test::get_form acs::test::get_form (public) file_storage::test::delete_current_folder->acs::test::get_form

Testcases:
fs_create_folder, file-storage, fs_edit_folder
Source code:
        #
        # Delete the current folder
        #
        set d [acs::test::follow_link -last_request $last_request -label {Delete this folder}]
        acs::test::reply_has_status_code $d 200
        set form [acs::test::get_form [dict get $d body] {//form[@id='folder-delete']}]
        aa_true "delete form was returned" {[llength $form] > 2}

        set d [::acs::test::form_reply -last_request $d -form $form  -update [subst {
                       formbutton:ok "OK"
                       __refreshing_p 0
                   }]]

        acs::test::reply_has_status_code $d 302
        return $d
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: