0023803: Mess with snapshot images in the test case reports
authorabv <abv@opencascade.com>
Thu, 28 Feb 2013 10:00:27 +0000 (14:00 +0400)
committerabv <abv@opencascade.com>
Thu, 7 Mar 2013 09:33:57 +0000 (13:33 +0400)
Adding a caption (the file name) to each image included in the HTML test log

src/DrawResources/TestCommands.tcl

index c2bb23a..1b057f1 100644 (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