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.20.2.16 -r1.20.2.17 --- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 27 Aug 2024 13:21:23 -0000 1.20.2.16 +++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl 28 Aug 2024 06:44:32 -0000 1.20.2.17 @@ -367,12 +367,12 @@ aa_log "result is
[ns_quotehtml $result]
" set nrBr [regsub -all
$result
.] aa_true "text contains some [ns_quotehtml
] tags" {$nrBr > 0} - + if {[::acs::icanuse "ns_parsehtml"]} { aa_true "text contains $nrBr [ns_quotehtml
] tags" {$nrBr == 2} } - + } @@ -614,12 +614,12 @@ aa_log "result is
[ns_quotehtml $result]
" set nrBr [regsub -all
$result
.] aa_true "text contains [ns_quotehtml
] tags" {$nrBr > 0} - + if {[::acs::icanuse "ns_parsehtml"]} { aa_true "text contains $nrBr [ns_quotehtml
] tags" {$nrBr == 1} } #aa_equals "new: $html _version should be the same" $html_version $string_with_img - + } @@ -637,7 +637,7 @@ 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} \