OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0023803: Mess with snapshot images in the test case reports

Browse Source 
Adding a caption (the file name) to each image included in the HTML test log
This commit is contained in:
abv 2013-02-28 14:00:27 +04:00
parent b1fa9f3841
commit 3b21f8ae43
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/DrawResources/TestCommands.tcl
View File

@ -1175,7 +1175,7 @@ proc _log_html {file log {title {}}} {
# add images if present
set imgbasename [file rootname [file tail $file]]
foreach img [lsort [glob -nocomplain -directory [file dirname $file] -tails ${imgbasename}*.gif ${imgbasename}*.png ${imgbasename}*.jpg]] {
puts $fd "<p><img src=\"$img\"/><p>"
puts $fd "<p>[file tail $img]<br><img src=\"$img\"/><p>"
}
# print log body, trying to add HTML links to script files on lines like