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 -r1.1.2.18 -r1.1.2.19
--- openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	30 Jun 2021 06:50:39 -0000	1.1.2.18
+++ openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	30 Jun 2021 06:58:47 -0000	1.1.2.19
@@ -185,16 +185,20 @@
         aa_false "Is $value a number?" [template::data::validate number value message]
     }
 }
-
 aa_register_case -cats {
+
     api
     smoke
     production_safe
 } -procs {
     template::data::validate
     template::data::validate::text
+    template::data::validate::string
+    template::data::validate::checkbox_text
+    template::data::validate::radio_text
+    template::data::validate::select_text
 } validate_text {
-    Test validation for text data types
+    Test validation for text related data types
 
     @author Héctor Romojaro <hector.romojaro@gmail.com>
     @creation-date 28 June 2021
@@ -205,7 +209,11 @@
     set text_true {"" "my text" "lalala"}
     set message ""
     foreach value $text_true {
-        aa_true "Is $value text?" [template::data::validate text value message]
+        aa_true "Is $value text?"               [template::data::validate text value message]
+        aa_true "Is $value a string?"           [template::data::validate string value message]
+        aa_true "Is $value a checkbox_text?"    [template::data::validate checkbox_text value message]
+        aa_true "Is $value a radio_text?"       [template::data::validate radio_text value message]
+        aa_true "Is $value a select_text?"      [template::data::validate select_text value message]
     }
 }
 
@@ -215,29 +223,6 @@
     production_safe
 } -procs {
     template::data::validate
-    template::data::validate::string
-} validate_string {
-    Test validation for string data types
-
-    @author Héctor Romojaro <hector.romojaro@gmail.com>
-    @creation-date 28 June 2021
-} {
-    #
-    # Currently, all submitted strings to the validator are valid...
-    #
-    set string_true {"" "my string" "lalala"}
-    set message ""
-    foreach value $string_true {
-        aa_true "Is $value a string?" [template::data::validate string value message]
-    }
-}
-
-aa_register_case -cats {
-    api
-    smoke
-    production_safe
-} -procs {
-    template::data::validate
     template::data::validate::search
     template::data::validate::party_search
 } validate_search {
@@ -286,29 +271,6 @@
     production_safe
 } -procs {
     template::data::validate
-    template::data::validate::checkbox_text
-} validate_checkbox_text {
-    Test validation for checkbox_other data types
-
-    @author Héctor Romojaro <hector.romojaro@gmail.com>
-    @creation-date 28 June 2021
-} {
-    #
-    # Currently, all submitted checkbox_text strings to the validator are valid...
-    #
-    set checkbox_text_true {"" "my checkbox_text" "lalala"}
-    set message ""
-    foreach value $checkbox_text_true {
-        aa_true "Is $value a checkbox_text?" [template::data::validate checkbox_text 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