Index: openacs-4/packages/acs-templating/tcl/test/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/Attic/data-procs.tcl,v
diff -u -N -r1.1.2.15 -r1.1.2.16
--- openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	30 Jun 2021 06:33:02 -0000	1.1.2.15
+++ openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	30 Jun 2021 06:44:36 -0000	1.1.2.16
@@ -261,6 +261,29 @@
     production_safe
 } -procs {
     template::data::validate
+    template::data::validate::file
+} validate_file {
+    Test validation for file data types
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 28 June 2021
+} {
+    #
+    # Currently, the file widget is assumed to never fail...
+    #
+    set file_true {my_file lalala}
+    set message ""
+    foreach value $file_true {
+        aa_true "Is $value a file?" [template::data::validate file value message]
+    }
+}
+
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    template::data::validate
     template::data::validate::keyword
 } validate_keyword {
     Test validation for keyword data types