Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl,v
diff -u -r1.1.2.26 -r1.1.2.27
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	17 Aug 2022 10:43:59 -0000	1.1.2.26
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	23 Aug 2022 11:10:22 -0000	1.1.2.27
@@ -741,7 +741,23 @@
             set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s]
             aa_true "$cmd query with provided bind variable from ns_set" {$r == -1}
         }
-
+        #
+        # Test combinations of "-columns_var" and "-with_headers" of db_list_of_lists
+        #
+        foreach {optionSet expected} {
+            {}                                  {1 0}
+            {-columns_var __cols}               {1 1}
+            {-with_headers}                     {2 0}
+            {-columns_var __cols -with_headers} {2 1}
+        } {            
+            set r [db_list_of_lists {*}$optionSet ..x {
+                select object_id, package_id from acs_objects where object_id = -1
+            }]
+            aa_equals "db_list_of_lists $optionSet" \
+                [list [llength $r] [info exists __cols]] \
+                $expected
+            unset -nocomplain __cols
+        }
     }
 
 aa_register_case \