Index: openacs-4/packages/acs-templating/tcl/test/file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/Attic/file-procs.tcl,v
diff -u -N -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/acs-templating/tcl/test/file-procs.tcl	30 Nov 2022 11:24:30 -0000	1.1.2.9
+++ openacs-4/packages/acs-templating/tcl/test/file-procs.tcl	21 Feb 2023 09:46:34 -0000	1.1.2.10
@@ -12,8 +12,12 @@
     template::util::file::get_property
     template::data::validate::file
     template::widget::file
+    template::element
     template::element::create
+    template::element::set_error
     template::form
+    template::form::is_valid
+    template::form::get_errors
     ad_form
     template::adp_eval
     template::adp_compile
@@ -43,12 +47,18 @@
                 set type      [template::util::file::get_property mime_type $upload_file]
 
                 if {$file_name eq ""} {
-                    ns_return 500 text/plain "Filename missing: '$upload_file'"
+                    ::template::element set_error test upload_file \
+                        "Filename missing: '$upload_file'"
                 }
                 if {![file exists $tmpfile]} {
-                    ns_return 500 text/plain "Tmpfile missing: '$upload_file'"
+                    ::template::element set_error test upload_file \
+                        "Tmpfile missing: '$upload_file'"
                 }
 
+                if {![::template::form is_valid test]} {
+                    ns_return 500 text/plain [::template::form get_errors test]
+                }
+
                 set tmpdir [file dirname $tmpfile]
                 set new_path $tmpdir/acs-templating-test-template-widget-file
                 file rename -force -- $tmpfile $new_path