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.6 -r1.1.2.7
--- openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	28 Jun 2021 09:57:07 -0000	1.1.2.6
+++ openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	28 Jun 2021 10:05:14 -0000	1.1.2.7
@@ -107,10 +107,10 @@
     set int_false {0.0 5,3 0,1 ,3}
     set message ""
     foreach value $int_true {
-        aa_true "Is $value a integer?" [template::data::validate integer value message]
+        aa_true "Is $value an integer?" [template::data::validate integer value message]
     }
     foreach value $int_false {
-        aa_false "Is $value a integer?" [template::data::validate integer value message]
+        aa_false "Is $value an integer?" [template::data::validate integer value message]
     }
 }
 
@@ -186,6 +186,29 @@
     }
 }
 
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    template::data::validate
+    template::data::validate::text
+} validate_text {
+    Test validation for text data types
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 28 June 2021
+} {
+    #
+    # Currently, all submitted text to the validator is valid...
+    #
+    set text_true {"" "my text" "lalala"}
+    set message ""
+    foreach value $text_true {
+        aa_true "Is $value text?" [template::data::validate text value message]
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4