Index: openacs-4/packages/acs-tcl/tcl/test/widget-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/widget-test-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/test/widget-test-procs.tcl	3 Sep 2019 06:35:55 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/widget-test-procs.tcl	23 Jun 2021 10:41:45 -0000	1.1.2.4
@@ -22,6 +22,25 @@
     }
 }
 
+aa_register_case -cats {
+    api
+    smoke
+    production_safe
+} -procs {
+    ad_future_years_list
+} ad_future_years_list {
+    Test the ad_future_years_list proc.
+} {
+    set future_years 25
+    set this_year [ns_fmttime [ns_time] %Y]
+    set next_years [ad_future_years_list $future_years]
+    set index 0
+    foreach year $next_years {
+        aa_equals "Next year" $year [expr {$this_year + $index}]
+        incr index
+    }
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4