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.1 -r1.5.2.2 --- openacs-4/packages/acs-templating/tcl/test/date-procs.tcl 25 Apr 2019 09:21:16 -0000 1.5.2.1 +++ openacs-4/packages/acs-templating/tcl/test/date-procs.tcl 15 Feb 2021 17:53:27 -0000 1.5.2.2 @@ -14,8 +14,9 @@ -procs { template::util::date::get_property template::util::date::now - } \ - sql_date { + db_type + db_version + } sql_date { test sql date transform } { aa_run_with_teardown \ @@ -39,11 +40,11 @@ } { 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}}