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.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	12 Jul 2009 01:10:25 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	7 Aug 2017 23:48:00 -0000	1.11
@@ -93,7 +93,7 @@
     set string "What?\nNever mind, buddy"
     
     aa_equals "" [ad_html_text_convert -from "text/plain" -to "text/html" -truncate_len 14 -- $string] \
-        [ad_text_to_html "What?\nNever..."]
+        "What?<br>\nNever..."
     
     aa_equals "" [ad_html_text_convert -from "text/plain" -to "text/plain" -truncate_len 14 -- $string] \
         "What?\nNever..."
@@ -191,10 +191,10 @@
     Test if it quote and unquote html
 } {
     #quote html
-    set html "\"<&text>\""
+    set html {"<&text>"}
     aa_log "Unquote html=$html"
-    set result [ad_quotehtml $html]
-    aa_true "Quoute html=$result" [string equal "&quot;&lt;&amp;text&gt;&quot;" $result]
+    set result [ns_quotehtml $html]
+    aa_true "Quoute html=$result" [string equal "&#34;&lt;&amp;text&gt;&#34;" $result]
 
     #unquote html
     set html $result
@@ -297,3 +297,9 @@
 
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: