tests/bugs/vis/bug23065

   1 puts "================"
   2 puts "OCC23065"
   3 puts "================"
   4 puts ""
   5 ##########################################################################################
   6 # This is desirable to add general DRAW command to estimate visualization performance
   7 ##########################################################################################
   8
   9 set BugNumber OCC23065
  10
  11 vinit
  12 set Log [vfps]
  13
  14 set status 0
  15 if { [llength ${Log}] == 5} {
  16    set word1 [string compare [lindex ${Log} end] "msec"]
  17    set word2 [string compare [lindex ${Log} end-2] "CPU:"]
  18    set word3 [string compare [lindex ${Log} end-4] "FPS:"]
  19    if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
  20       set status 0
  21    } else {
  22       set status 1
  23    }
  24 } else {
  25    set status 1
  26 }
  27
  28 # Resume
  29 puts ""
  30 if { ${status} == 0 } {
  31    puts "OK ${BugNumber}"
  32 } else {
  33    puts "Faulty ${BugNumber}"
  34 }