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.10 -r1.1.2.11
--- openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	24 Aug 2022 07:05:21 -0000	1.1.2.10
+++ openacs-4/packages/file-storage/tcl/test/webtest-procs.tcl	25 Aug 2022 11:29:58 -0000	1.1.2.11
@@ -99,16 +99,24 @@
         set response [dict get $d body]
         set form [acs::test::get_form $response {//form[@id='file-add']}]
 
+        # A 'real' simulation would actually upload a file via
+        # multipart request, but this is enough for testing.
+        set tmpfile [ad_tmpnam]
+        set wfd [open $tmpfile w]
+        puts $wfd 1234
+        close $wfd
+
         aa_true "add form was returned" {[llength $form] > 2}
         set d [::acs::test::form_reply \
                    -last_request $d \
                    -form $form \
-                   -update [subst {
-                       upload_file {$file_name}
-                       upload_file.tmpfile {$file_name}
-                       title {$file_name}
-                       description {$file_description}
-                   }]]
+                   -update [list \
+                                upload_file $file_name \
+                                "upload_file.tmpfile" $tmpfile \
+                                "upload_file.content-type" text/plain \
+                                title $file_name \
+                                description $file_description]
+              ]
         acs::test::reply_has_status_code $d 302
         set location [::acs::test::get_url_from_location $d]