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.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 23 Oct 2018 18:38:36 -0000 1.19
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 3 Nov 2018 11:15:16 -0000 1.20
@@ -83,13 +83,13 @@
following text
}} {
- set result [ad_html_to_text -- $html]
+ set result [ad_html_to_text -- $html]
- # make sure the desired text is in there and _before_ the
- # footnotes
+ # make sure the desired text is in there and _before_ the
+ # footnotes
- aa_true "contains link" [regexp {linktext.*\[1\]} $result]
- aa_true "contains following text" [regexp {following text.*\[1\]} $result]
+ aa_true "contains link" [regexp {linktext.*\[1\]} $result]
+ aa_true "contains following text" [regexp {following text.*\[1\]} $result]
}
}
@@ -315,7 +315,7 @@
set html "
some text to probe if it
remove all between \"<\" and \">\"
"
set result [util_remove_html_tags $html]
aa_equals "Without all between \"<\" and \">\" html=\"$result\""\
- "some text to probe if it remove all between \"\"" $result
+ "some text to probe if it remove all between \"\"" $result
}
aa_register_case \
@@ -357,27 +357,27 @@
aa_equals "Standard HTML Comments cleaned $result" $result ""
set html { }
+ {behavior:url(MESSAGE KEY MISSING: 'default'VML);} w\:* {behavior:url(MESSAGE KEY MISSING: 'default'VML);}
+ .shape {behavior:url(MESSAGE KEY MISSING: 'default'VML);} }
set result [ad_html_text_convert -from text/html -to text/plain $html]
@@ -481,22 +481,22 @@
-bugs 1450 \
-procs {ad_enhanced_text_to_html} \
acs_tcl__process_enhanced_correctly {
-
- Process sample text correctly
- @author Nima Mazloumi
+
+ Process sample text correctly
+ @author Nima Mazloumi
} {
-
- set string_with_img {}
- aa_log "Original string is $string_with_img"
- set html_version [ad_enhanced_text_to_html $string_with_img]
- aa_equals "new: $html_version should be the same" $html_version $string_with_img
+
+ set string_with_img {}
+ aa_log "Original string is $string_with_img"
+ set html_version [ad_enhanced_text_to_html $string_with_img]
+ aa_equals "new: $html_version should be the same" $html_version $string_with_img
}
aa_register_case \
-cats {api smoke} \
-procs {ad_html_to_text} \
text_to_html {
-
+
Test code the supposedly causes ad_html_to_text to break
} {
|