Index: openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl,v
diff -u -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	27 Jan 2022 09:23:59 -0000	1.10.2.2
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	20 Apr 2022 08:51:01 -0000	1.10.2.3
@@ -87,6 +87,30 @@
 
 }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        ::template::adp_parse_tags
+    } \
+    adp_parse_tags {
+
+        Checks the helper template::adp_parse_tags, which performs a
+        subset of template::adp_compile.
+
+    } {
+        set HTML {<p>foo <adp:icon name="edit">bar}
+        set result [::template::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 [::template::adp_parse_tags $HTML]
+        aa_log [ns_quotehtml $result]
+        aa_true "test substitution contains still template variables" \
+            [regexp {@} $result]
+    }
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4