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 -N -r1.10.2.6 -r1.10.2.7
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	1 Sep 2022 15:52:09 -0000	1.10.2.6
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	1 Sep 2022 16:10:09 -0000	1.10.2.7
@@ -144,7 +144,22 @@
             [regexp {@} $result]
     }
 
+aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs {
+        ::template::adp_parse_string
+    } \
+    adp_parse_string {
 
+        Test template::adp_parse_string
+
+    } {
+        set adp {2 + 2 = <%= [expr {2 + 2}] %> !!!}
+        aa_equals "Result is correct" \
+            [template::adp_parse_string $adp] {2 + 2 = 4 !!!}
+    }
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4