0023803: Mess with snapshot images in the test case reports

Adding a caption (the file name) to each image included in the HTML test log

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index c2bb23ad3be07a9500f00c66b59131f7868fc92c..1b057f196a7a01cd1d0120300912f3b35a860c4e 100644 (file)
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -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