Index: openacs-4/packages/xowiki/tcl/test/api-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/Attic/api-test-procs.tcl,v
diff -u -r1.1.2.15 -r1.1.2.16
--- openacs-4/packages/xowiki/tcl/test/api-test-procs.tcl	1 Feb 2022 21:10:35 -0000	1.1.2.15
+++ openacs-4/packages/xowiki/tcl/test/api-test-procs.tcl	9 Apr 2022 11:00:45 -0000	1.1.2.16
@@ -123,9 +123,33 @@
             {key1=>value1,key2=>"a''b","k''y"=>value3,key4=>"1,2",c=>"before	after",d=>"hello world"}
     }
 
+
 aa_register_case \
     -cats {api smoke production_safe} \
     -procs {
+        "::xowiki::adp_parse_tags"
+    } \
+    adp_parse_tags {
+
+        Checks the helper xowiki::adp_parse_tags, which performs a
+        subset of template::adp_compile.
+
+    } {
+        set HTML {<p>foo <adp:icon name="edit">bar}
+        set result [::xowiki::adp_parse_tags $HTML]
+        aa_log [ns_quotehtml $result]
+        aa_true "test substitution of adp:icon contains either 'class' or 'src' attribute" \
+            [regexp {(class=|src=)} $result]
+        set HTML {<p>foo @a@ <adp:icon name="edit">bar @b@}
+        set result [::xowiki::adp_parse_tags $HTML]
+        aa_log [ns_quotehtml $result]
+        aa_true "test substitution contains still template variables" \
+            [regexp {@} $result]
+    }
+
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
         "::xowiki::formfield::dict_to_spec"
         "::xowiki::formfield::dict_value"
         "::xowiki::formfield::fc_to_dict"