Index: openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl,v
diff -u -N -r1.5.2.6 -r1.5.2.7
--- openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl	25 Feb 2021 14:13:07 -0000	1.5.2.6
+++ openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl	25 Feb 2021 14:26:55 -0000	1.5.2.7
@@ -92,6 +92,21 @@
     aa_equals "Driver info" [tsearch2::driver_info] $expected_driver_info
 }
 
+aa_register_case -cats {
+    api
+    production_safe
+    smoke
+} -procs {
+    tsearch2::summary
+} summary {
+    Test tsearch2::summary
+} {
+    set query bold
+    set txt "wow, this is bold"
+    set expected "wow, this is <b>bold</b>"
+    aa_equals "Summary" [tsearch2::summary $query $txt] $expected
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4