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 -N -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	29 Aug 2008 17:42:39 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	12 Jul 2009 01:10:25 -0000	1.10
@@ -59,15 +59,15 @@
 aa_register_case -cats {api smoke} util_close_html_tags {
     Tests closing HTML tags.
 } {
-    aa_equals "" [util_close_html_tags "<b>Foobar"] "<b>Foobar</B>"
+    aa_equals "" [util_close_html_tags "<b>Foobar"] "<b>Foobar</b>"
 
     aa_equals "" [util_close_html_tags "<b>Foobar</b>"] "<b>Foobar</b>"
 
     aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>"] "<b>Foobar</b> is <i>a very long word</i>"
 
-    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 15] "<b>Foobar</b> is <i>a</I>"
+    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 15] "<b>Foobar</b> is <i>a</i>"
 
-    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 0 20 "..."] "<b>Foobar</b> is <i>a very</I>..."
+    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 0 20 "..."] "<b>Foobar</b> is <i>a very</i>..."
 }
 
 
@@ -81,7 +81,7 @@
     set string "What?\n<i>Never mind, buddy</i>"
     
     aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/html" -truncate_len 14 -- $string] \
-        [ad_enhanced_text_to_html "What?\n<i>Never</I>..."]
+        [ad_enhanced_text_to_html "What?\n<i>Never</i>..."]
 
     # The string is longer in plaintext, because the "_" symbol to denote italics is counted as well.
     aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/plain" -truncate_len 15 -- $string] "What?\n_Never..."
@@ -105,7 +105,7 @@
     set string "What?\nNever mind, buddy"
     
     aa_equals "" [ad_html_text_convert -from "text/fixed-width" -to "text/html" -truncate_len 14 -- $string] \
-        "<pre>What?\nNever</PRE>..."
+        "<pre>What?\nNever</pre>..."
     
     aa_equals "" [ad_html_text_convert -from "text/fixed-width" -to "text/plain" -truncate_len 14 -- $string] \
         "What?\nNever..."
@@ -118,7 +118,7 @@
     set string "What?<br><i>Never mind, buddy</i>"
     
     aa_equals "" [ad_html_text_convert -from "text/html" -to "text/html" -truncate_len 14 -- $string] \
-        "What?<br><i>Never</I>..."
+        "What?<br><i>Never</i>..."
     
     aa_equals "" [ad_html_text_convert -from "text/html" -to "text/plain" -truncate_len 15 -- $string] \
         "What?\n_Never..."
@@ -296,4 +296,4 @@
     aa_equals "Some HTML with Comment ok" $result "*Bold* _Italic_"
 
 
-}
\ No newline at end of file
+}