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 -r1.11.2.14 -r1.11.2.15
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	8 Jul 2024 15:10:23 -0000	1.11.2.14
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	10 Jul 2024 13:57:00 -0000	1.11.2.15
@@ -870,83 +870,6 @@
 
 }
 
-aa_register_case \
-    -cats {api smoke production_safe} \
-    -procs {
-        util_expand_entities
-        util_expand_entities_ie_style
-    } \
-    util_expand_entities {
-
-        Test if apis to expand certain entities work as expected.
-
-    } {
-
-        aa_section "util_expand_entities"
-
-        foreach {input expected} {
-            {A text without any entity}
-            {A text without any entity}
-
-            {A text with & entity}
-            {A text with & entity}
-
-            {A text with &amp entity without semicolon}
-            {A text with &amp entity without semicolon}
-
-            {A text with markup inside: <a href="#link">Ciao</a> <span>Text</span>}
-            {A text with markup inside: <a href="#link">Ciao</a> <span>Text</span>}
-
-            {This test contains all supported entities: &lt;, &gt;, &quot;, &amp;, &mdash; and &#151;}
-            {This test contains all supported entities: <, >, ", &, -- and --}
-
-            {This test contains all supported entities without semicolon: &lt, &gt, &apmquot, &amp, &mdash and &#151}
-            {This test contains all supported entities without semicolon: &lt, &gt, &apmquot, &amp, &mdash and &#151}
-        } {
-            aa_equals [ns_quotehtml $input] [util_expand_entities $input] $expected
-        }
-
-        aa_section "util_expand_entities_ie_style"
-
-        foreach {input expected} {
-            {A text without any entity}
-            {A text without any entity}
-
-            {A text with &amp; entity}
-            {A text with & entity}
-
-            {A text with &amp entity without semicolon}
-            {A text with & entity without semicolon}
-
-            {A text with markup inside: <a href="#link">Ciao</a> <span>Text</span>}
-            {A text with markup inside: <a href="#link">Ciao</a> <span>Text</span>}
-
-            {This test contains various supported entities by name: &lt;, &gt;, &quot;, &amp;, &ob; and &cb;}
-            "This test contains various supported entities by name: <, >, \", &, { and }"
-
-            {This test contains various supported entities by number: &#60;, &#62;, &#34;, &#38; and &#8212;}
-            {This test contains various supported entities by number: <, >, ", & and —}
-
-            {This test contains various supported entities by number with extra 0s: &#0000000000060;, &#0000000000000000000000000000062;, &#034;, &#0038; and &#0008212;}
-            {This test contains various supported entities by number with extra 0s: <, >, ", & and —}
-
-            {This test contains various supported entities by hex: &#x3C;, &#x3E;, &#x22;, &#x26; and &#x2014}
-            {This test contains various supported entities by hex: <, >, ", & and —}
-
-            {This test contains various supported entities by name without semicolon: &lt;, &gt;, &quot;, &amp;, &ob; and &cb;}
-            "This test contains various supported entities by name without semicolon: <, >, \", &, { and }"
-
-            {This test contains various supported entities by number without semicolon: &#60;, &#62;, &#34;, &#38; and &#8212;}
-            {This test contains various supported entities by number without semicolon: <, >, ", & and —}
-
-            {This test contains various supported entities by hex without semicolon: &#x3C;, &#x3E;, &#x22;, &#x26; and &#x2014}
-            {This test contains various supported entities by hex without semicolon: <, >, ", & and —}
-        } {
-            aa_equals [ns_quotehtml $input] [util_expand_entities_ie_style $input] $expected
-        }
-
-    }
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4