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 -r1.5.2.1
--- openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	22 Jul 2018 11:37:20 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	25 Apr 2019 09:21:16 -0000	1.5.2.1
@@ -29,6 +29,31 @@
             }
         }
 }
+
+aa_register_case \
+    -procs {
+        template::util::date::now_min_interval
+    } \
+    date_minute_interval {
+        test minute interval
+    } {
+    aa_run_with_teardown \
+        -test_code {
+            
+            set clock [clock scan "2019-04-25 16:19:00"]
+            set date [template::util::date::now_min_interval -clock $clock]
+            aa_equals "interval up from 19" $date {2019 4 25 16 20 0 {DD MONTH YYYY}}
+            
+            set clock [clock scan "2019-04-25 16:20:00"]
+            set date [template::util::date::now_min_interval -clock $clock]
+            aa_equals "interval same " $date {2019 4 25 16 20 0 {DD MONTH YYYY}}
+
+            set clock [clock scan "2019-04-25 16:21:00"]
+            set date [template::util::date::now_min_interval -clock $clock]
+            aa_equals "interval up from 21 " $date {2019 4 25 16 25 0 {DD MONTH YYYY}}
+
+        }
+}
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4