Index: openacs-4/packages/search/tcl/test/search-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/test/search-procs.tcl,v diff -u -r1.1.2.5 -r1.1.2.6 --- openacs-4/packages/search/tcl/test/search-procs.tcl 9 Mar 2023 13:39:18 -0000 1.1.2.5 +++ openacs-4/packages/search/tcl/test/search-procs.tcl 14 Mar 2023 15:35:51 -0000 1.1.2.6 @@ -36,10 +36,13 @@ pptx application/vnd.openxmlformats-officedocument.presentationml.presentation } { set filename [acs_root_dir]/packages/search/tcl/test/data/test.$extension - aa_true "Text was extracted correctly for '.$extension'/'$mime_type'" { - [string first "OpenACS" [search::convert::binary_to_text \ - -filename $filename \ - -mime_type $mime_type]] >= 0 + set text [search::convert::binary_to_text \ + -filename $filename \ + -mime_type $mime_type] + set ok_p [expr {[string first "OpenACS" $text] >= 0}] + aa_true "Text was extracted correctly for '.$extension'/'$mime_type'" $ok_p + if {!$ok_p} { + aa_log "Extracted text: [ns_quotehtml $text]" } } }