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.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 "Foobar"] "Foobar"
+ aa_equals "" [util_close_html_tags "Foobar"] "Foobar"
aa_equals "" [util_close_html_tags "Foobar"] "Foobar"
aa_equals "" [util_close_html_tags "Foobar is a very long word"] "Foobar is a very long word"
- aa_equals "" [util_close_html_tags "Foobar is a very long word" 15] "Foobar is a"
+ aa_equals "" [util_close_html_tags "Foobar is a very long word" 15] "Foobar is a"
- aa_equals "" [util_close_html_tags "Foobar is a very long word" 0 20 "..."] "Foobar is a very..."
+ aa_equals "" [util_close_html_tags "Foobar is a very long word" 0 20 "..."] "Foobar is a very..."
}
@@ -81,7 +81,7 @@
set string "What?\nNever mind, buddy"
aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/html" -truncate_len 14 -- $string] \
- [ad_enhanced_text_to_html "What?\nNever..."]
+ [ad_enhanced_text_to_html "What?\nNever..."]
# 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] \
- "What?\nNever
..."
+ "What?\nNever
..."
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?
Never mind, buddy"
aa_equals "" [ad_html_text_convert -from "text/html" -to "text/html" -truncate_len 14 -- $string] \
- "What?
Never..."
+ "What?
Never..."
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
+}