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} \