Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v diff -u -r1.15.2.17 -r1.15.2.18 --- openacs-4/packages/xowiki/tcl/test/test-procs.tcl 3 Mar 2021 13:59:32 -0000 1.15.2.17 +++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl 6 Mar 2021 14:25:45 -0000 1.15.2.18 @@ -344,13 +344,14 @@ acs::test::reply_has_status_code $d 302 aa_log "create_form_page: DONE" dict set d page_info $page_info + dict set d instance $instance return $d } ad_proc ::xowiki::test::edit_form_page { {-user_id 0} - {-last_request ""} - -instance:required + {-last_request ""} + {-instance ""} -path:required {-update ""} {-remove ""} @@ -361,7 +362,12 @@ In essence, this calls $instance/$path?m=edit } { - aa_log "edit page $path" + if {$instance eq ""} { + if {[dict exists $last_request instance]} { + set instance [dict get $last_request instance] + } + } + aa_log "edit page $instance/$path" set d [acs::test::http \ -user_id $user_id -last_request $last_request \ [export_vars -base $instance/$path $extra_url_parameter]] @@ -384,8 +390,9 @@ set f_creator [dict get $form fields _creator] aa_true "page_name '$f_page_name' non empty" {$f_page_name ne ""} - aa_true "creator '$f_creator' is nonempty" {$f_creator ne ""} - + #aa_true "creator '$f_creator' is nonempty" {$f_creator ne ""} + aa_log "creator '$f_creator'" + set f_form_action [dict get $form @action] aa_true "form_action '$f_form_action' is nonempty" {$f_form_action ne ""} @@ -411,6 +418,9 @@ $instance/$path] acs::test::reply_has_status_code $d 200 acs::test::reply_contains $d [dict get $form_content _title] + + dict set d instance $instance + return $d } ad_proc ::xowiki::test::create_form { @@ -460,7 +470,8 @@ set f_creator [dict get $form fields creator] set f_form_action [dict get $form @action] - aa_true "name '$f_page_name' is empty" {$f_page_name eq ""} + aa_true "name '$f_page_name' is empty" {$f_page_name eq ""} + #aa_log "creator '$f_creator'" aa_true "creator '$f_creator' is nonempty" {$f_creator ne ""} aa_true "form_action '$f_form_action' is nonempty" {$f_form_action ne ""}