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.27 -r1.1.2.28 --- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl 23 Aug 2022 11:10:22 -0000 1.1.2.27 +++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl 21 Feb 2023 10:49:37 -0000 1.1.2.28 @@ -134,6 +134,14 @@ lappend results [lsort [array get things]] } aa_equals "db_foreach with four columns" "{a a1 b b1 c {c 1} d d1}" $results + + set results "" + db_foreach query {select * from (values ('a1','b1','c 1','d1')) as X(a,b,c,d)} \ + -column_set set_things { + lappend results [lsort [ns_set array $set_things]] + } + aa_equals "db_foreach with four columns" "{a a1 b b1 c {c 1} d d1}" $results + } aa_register_case \