Index: openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/Attic/xowiki-test-procs.tcl,v
diff -u -N -r1.1.2.17 -r1.1.2.18
--- openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	27 Jun 2019 09:16:45 -0000	1.1.2.17
+++ openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	27 Jun 2019 18:00:03 -0000	1.1.2.18
@@ -141,6 +141,26 @@
             aa_true "same-named page: can resolve $pretty_link1 => $enpage_id" \
                 [expr {[dict get $item_info1 item_id] eq $enpage_id}]
 
+
+            #
+            # link rendering
+            #
+            aa_section "render links (\[\[somelink\]\]"
+            foreach pair [subst {
+                {f1 /f1}
+                {./f1 /f1}
+                {page /page}
+                {./page /page}
+                {f1/p1 /f1/p1}
+                {f1/f3 /f1/f3}
+            }] {
+                lassign $pair link pattern
+                set l [$enpage_id create_link $link]
+                set html [$l render]
+                aa_true "render link $link -> *'$instance$pattern'*" [string match *'$instance$pattern'* $html]
+                aa_log "[ns_quotehtml $html]"
+            }
+
         }
     }