Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl,v
diff -u -r1.1.2.24 -r1.1.2.25
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	13 Jan 2023 17:17:37 -0000	1.1.2.24
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	16 Jan 2023 10:51:24 -0000	1.1.2.25
@@ -563,17 +563,30 @@
         [template::multirow columns person_mr2] \
         "person_id first_names last_name"
 
-    aa_section "Now for some freestyle operations..."
+    aa_section "Create a new multirow via ::xo::dc, then append via the ::template api"
 
     # We set d outside the multirow body to show that the variable
     # will be reinitialized at every loop.
     set d a
 
     ::xo::dc multirow -local t -extend {d e} __test_multirow q {
         select *
-        from (values (1, 2, 3), (4, 5, 6)) as t (a, b, c)
+        from (values (1, 2, 3), (4, 5, 6), (7, 8, 9), (10, 11, 12), (666, 666, 666)) as t (a, b, c)
     } {
+        # Test issuing continue in the loop
+        if {$a == 7} {
+            continue
+        }
+
+        # Test issuing break in the loop
+        if {$c == 12} {
+            break
+        }
+
+        # Test changing a "native" column
         incr a
+
+        # Test changing an extended column (var existed outside)
         append d a
     }
 
@@ -597,14 +610,15 @@
         </ul>
     }
 
+    set code [template::adp_compile -string $template]
+
     set expected {
         <ul>
         <li>|2|2|3|a|</li>
         <li>|5|5|6|a|</li>
         </ul>
     }
 
-    set code [template::adp_compile -string $template]
     aa_equals "Template returns expected result" \
         [join [template::adp_eval code] ""] [join $expected ""]
 
@@ -618,9 +632,20 @@
         </ul>
     }
 
-    set code [template::adp_compile -string $template]
     aa_equals "Template returns expected result after appending to the multirow" \
         [join [template::adp_eval code] ""] [join $expected ""]
+
+
+    aa_section "Create a multirow via the ::template api, then append via the ::xo::dc interface"
+    template::multirow -local create __test_multirow_2 a b c
+    template::multirow -local append __test_multirow_2 1 2 3
+
+    ::xo::dc multirow -local t __test_multirow_2 q {
+        select *
+        from (values (4, 5, 6), (7, 8, 9)) as t (a, b, c)
+    }
+
+    aa_equals "size is 3" [template::multirow -local size __test_multirow_2] 3
 }
 
 # Local variables: