Index: openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	17 Jul 2018 14:25:54 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	18 Jul 2018 17:26:05 -0000	1.15
@@ -87,6 +87,20 @@
     aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/plain" -truncate_len 15 -- $string] "What?\n_Never..."
 
     #----------------------------------------------------------------------
+    # from text/markdown
+    #----------------------------------------------------------------------
+
+    if {[expr ![catch {package present Markdown}]]} {
+        set string "What?\n*Never mind, buddy*"
+
+        aa_equals "" [ad_html_text_convert -from "text/markdown" -to "text/html" -truncate_len 14 -- $string] \
+            "What?\n<i>Never</i>..."
+
+        aa_equals "" [ad_html_text_convert -from "text/markdown" -to "text/plain" -truncate_len 15 -- $string] \
+            "What?\n_Never..."
+    }
+
+    #----------------------------------------------------------------------
     # from text/plain
     #----------------------------------------------------------------------