Index: openacs-4/packages/acs-templating/tcl/test/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/date-procs.tcl,v
diff -u -r1.5.2.5 -r1.5.2.6
--- openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	20 Feb 2023 16:17:11 -0000	1.5.2.5
+++ openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	20 Feb 2023 16:21:22 -0000	1.5.2.6
@@ -88,6 +88,8 @@
         api
         production_safe
     } -procs {
+        template::data::from_sql::time_of_day
+        template::data::from_sql::timestamp
         template::data::from_sql::date
         template::util::date::acquire
         template::util::date::create
@@ -109,6 +111,10 @@
         foreach {input expected} $test_data {
             aa_equals "template::data::from_sql::date on '$input' returns expected" \
                 [template::data::from_sql::date $input] $expected
+            aa_equals "template::data::from_sql::time_of_day on '$input' returns expected" \
+                [template::data::from_sql::time_of_day $input] $expected
+            aa_equals "template::data::from_sql::timestamp on '$input' returns expected" \
+                [template::data::from_sql::timestamp $input] $expected
         }
 
 
@@ -126,6 +132,12 @@
             aa_true "template::data::from_sql::date on '$input' returns error" [catch {
                 template::data::from_sql::date $input
             }]
+            aa_true "template::data::from_sql::time_of_day on '$input' returns error" [catch {
+                template::data::from_sql::time_of_day $input
+            }]
+            aa_true "template::data::from_sql::timestamp on '$input' returns error" [catch {
+                template::data::from_sql::timestamp $input
+            }]
         }
     }