Index: openacs-4/packages/acs-templating/tcl/test/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/Attic/util-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-templating/tcl/test/util-procs.tcl	30 Jun 2021 09:28:25 -0000	1.1.2.1
@@ -0,0 +1,42 @@
+ad_library {
+    Automated tests for template::util
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 30 June 2021
+    @cvs-id $Id: util-procs.tcl,v 1.1.2.1 2021/06/30 09:28:25 hectorr Exp $
+}
+
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    template::util::number_list
+} number_list {
+    Test template::util::number_list
+
+    @author Héctor Romojaro <hector.romojaro@gmail.com>
+    @creation-date 30 June 2021
+} {
+    set lists {
+        {0 5} {0 1 2 3 4 5}
+        {0 0} {0}
+        {9 20} {9 10 11 12 13 14 15 16 17 18 19 20}
+        {9999999 10000000} {9999999 10000000}
+        {1 0} {}
+        {-1 1} {-1 0 1}
+    }
+    dict for {value result} $lists {
+        set start_at    [lindex $value 0]
+        set last_number [lindex $value 1]
+        aa_equals "List from $start_at to $last_number" \
+            [template::util::number_list $last_number $start_at] \
+            $result
+    }
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: