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.13 -r1.1.2.14
--- openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	28 Jun 2021 11:03:16 -0000	1.1.2.13
+++ openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	28 Jun 2021 11:17:27 -0000	1.1.2.14
@@ -364,6 +364,7 @@
     template::data::validate
     template::data::validate::date
     template::data::validate::timestamp
+    template::data::validate::time_of_day
     template::util::date::validate
 } validate_date {
     Test validation for date data types
@@ -372,7 +373,8 @@
     @creation-date 28 June 2021
 } {
     #
-    #  date and timestamp are both validated by template::util::date::validate.
+    # date, time_of_day and timestamp are all validated by
+    # template::util::date::validate.
     #
     set date_true {
         "2021 06 28"
@@ -404,12 +406,14 @@
     }
     set message ""
     foreach value $date_true {
-        aa_true "Is $value a date?"      [template::data::validate date value message]
-        aa_true "Is $value a timestamp?" [template::data::validate timestamp value message]
+        aa_true "Is $value a date?"         [template::data::validate date value message]
+        aa_true "Is $value a timestamp?"    [template::data::validate timestamp value message]
+        aa_true "Is $value a time_of_day?"  [template::data::validate timestamp value message]
     }
     foreach value $date_false {
-        aa_false "Is $value a date?"      [template::data::validate date value message]
-        aa_false "Is $value a timestamp?" [template::data::validate timestamp value message]
+        aa_false "Is $value a date?"        [template::data::validate date value message]
+        aa_false "Is $value a timestamp?"   [template::data::validate timestamp value message]
+        aa_false "Is $value a time_of_day?" [template::data::validate time_of_day value message]
     }
 }