_xowf__create_folder_with_page (private)
_xowf__create_folder_with_page
Defined in packages/xowf/tcl/test/xowf-test-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 {{ ::xowf::test::require_test_instance set instance $_xowf_test_instance_name set testfolder .testfolder set locale [lang::system::locale] set lang [string range $locale 0 1] # # Setup of test user_id and login # set user_info [::acs::test::user::create -email xowf@acs-testing.test -admin] set d [::acs::test::login $user_info] try { ########################################################### aa_section "Make sure we have a fresh test folder" ############################################################ set folder_info [::xowiki::test::require_test_folder -last_request $d -instance $instance -folder_name $testfolder -fresh ] set folder_id [dict get $folder_info folder_id] set package_id [dict get $folder_info package_id] aa_true "folder_id '$folder_id' is not 0" {$folder_id != 0} ########################################################### aa_section "Create a simple form page in the folder." ########################################################### ::xowiki::test::create_form_page -last_request $d -instance $instance -path $testfolder -parent_id $folder_id -form_name page.form -update [subst { _title "Sample page" _name hello _text "Hello world!" _nls_language $locale }] ########################################################### aa_section "Edit the form page." ########################################################### ::xowiki::test::edit_form_page -last_request $d -instance $instance -path $testfolder/hello -update [subst { _title "Sample page 2" _text "Brave new world!" _nls_language $locale }] } on error {errorMsg} { aa_true "Error msg: $errorMsg" 0 } finally { # # In case something has to be cleaned manually, do it here. # } }} { 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" "create_folder_with_page (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle