Index: openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/Attic/webtest-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	16 Apr 2019 20:08:23 -0000	1.1.2.1
+++ openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	17 Apr 2019 11:00:16 -0000	1.1.2.2
@@ -22,6 +22,7 @@
 
 	set response [dict get $d body]
 	set form [acs::test::get_form $response {//form[@id='folder-ae']}]
+	aa_true "create form was returned" {[llength $form] > 2}
 
 	set d [::acs::test::form_reply \
 		   -last_request $d \
@@ -44,6 +45,43 @@
 	return $d
     }
 
+    ad_proc ::file_storage::test::edit_folder {
+	-last_request:required
+	folder_name
+    } {
+	Create a new folder via Web UI.
+    } {
+	#
+	# Create a new folder based on the current page, which is from
+	# a file-storage instance
+	#
+	set d [acs::test::follow_link -last_request $last_request -label {Edit Folder}]
+	acs::test::reply_has_status_code $d 200
+
+	set response [dict get $d body]
+	set form [acs::test::get_form $response {//form[@id='folder-edit']}]
+	aa_true "edit form was returned" {[llength $form] > 2}
+	aa_log form=$form
+	set d [::acs::test::form_reply \
+		   -last_request $d \
+		   -url [dict get $form @action] \
+		   -update [subst {
+		       folder_name "$folder_name"
+		   }] \
+		   [dict get $form fields]]
+	acs::test::reply_has_status_code $d 302
+	set location [::xowiki::test::get_url_from_location $d]
+
+	if { [string match  "*/\?folder_id*" $location] } {
+	    set d [acs::test::http -last_request $d $location]
+	    acs::test::reply_contains $d $folder_name
+	} else {
+	    aa_error "file_storage::test::create_new_folder failed, bad response url : $location"
+	}
+
+	return $d
+    }
+
     ad_proc ::file_storage::test::delete_current_folder {
 	-last_request:required
     } {
@@ -55,6 +93,7 @@
 	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 \