Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 12 Jan 2017 20:00:23 -0000 1.1.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl 15 Jan 2017 19:18:54 -0000 1.1.2.2
@@ -6,47 +6,62 @@
}
-aa_register_case -cats {api smoke} ad_sanitize_html {
+aa_register_case -cats {api smoke} ad_dom_sanitize_html {
Test if it HTML sanitization works as expected
} {
# - Weird HTML, nonexistent and unclosed tags, '<' and '>' chars:
# result should be ok, with '<' and '>' converted to entities
- lappend test_msgs "Invalid markup with single '<' and '>' chars ok?"
+ lappend test_msgs "Test case 1: invalid markup with single '<' and '>' chars ok"
lappend test_cases {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
- lappend test_result_trivial {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
- lappend test_result_no_js {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
- lappend test_result_no_outer_urls {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
+ lappend test_results_trivial {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
+ lappend test_results_no_js {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
+ lappend test_results_no_outer_urls {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
+ lappend test_results_fixing_markup {sadsa dfsdafs 3 > 2 dfsdfasdfsdfsad sasasadsasa < sadASDSA}
# - Weird HTML, nonexistent and unclosed tags, MULTIPLE '<' and '>' chars:
# some loss in translation, multiple '<' and '>' become single ones
- lappend test_msgs "Invalid markup with multiple '<' and '>' chars ok?"
+ lappend test_msgs "Test case 2: invalid markup with multiple '<' and '>' chars ok"
lappend test_cases {
sadsa dfsdafs 3 < 2 dfsdfasdfsdfsad <<<<<<<<<< a <<< a << <<< << sasasadsasa < sadASDSA
}
- lappend test_result_trivial {
+ lappend test_results_trivial {
sadsa dfsdafs 3 < 2 dfsdfasdfsdfsad < a < a < sasasadsasa < sadASDSA
}
- lappend test_result_no_js {
+ lappend test_results_no_js {
sadsa dfsdafs 3 < 2 dfsdfasdfsdfsad < a < a < sasasadsasa < sadASDSA
}
- lappend test_result_no_outer_urls {
+ lappend test_results_no_outer_urls {
sadsa dfsdafs 3 < 2 dfsdfasdfsdfsad < a < a < sasasadsasa < sadASDSA
}
+ lappend test_results_fixing_markup {
+ sadsa dfsdafs 3 < 2 dfsdfasdfsdfsad < a < a < sasasadsasa < sadASDSA
+ }
# - Half opened HTML into other markup: this markup will be completely rejected
- lappend test_msgs "Invalid unparseable markup ok?"
+ lappend test_msgs "Test case 3: invalid unparseable markup ok"
lappend test_cases {
sadsa dfsdafs 3 sadASDSA
}
- lappend test_result_trivial {}
- lappend test_result_no_js {}
- lappend test_result_no_outer_urls {}
+ lappend test_results_trivial {}
+ lappend test_results_no_js {}
+ lappend test_results_no_outer_urls {}
+ lappend test_results_fixing_markup {}
+ # - Formally invalid HTML: this markup will be rejected when the
+ # fix option is not enabled and parsed otherwise. Internal
+ # blank space into tags will be lost.
+ lappend test_msgs "Test case 4: formally invalid markup ok"
+ lappend test_cases {